Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Zelleninhalt x-mal in bestimmte Zellen kopieren
zurück: Lohnberechnung Problem weiter: Hilfe Excel2007 mit BetAngel / Fehler Ländercode/Old Format Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
AlVespa
C64 Basic kenner


Verfasst am:
30. Mai 2010, 12:14
Rufname:

Zelleninhalt x-mal in bestimmte Zellen kopieren - Zelleninhalt x-mal in bestimmte Zellen kopieren

Nach oben
       Version: Office 2007

Hallo,

Ich würde gerne folgendes realisieren.
Aber weiss leider nicht wie Sad vielleicht mit autofill aber ich bekomme es nicht hin.

In A1 möchte ich eine Zahl eingeben.
In B1 eienen 4-Buchstarben Text.

Dann soll Excel in den Bereich D10:D20 den Text B1 x-mal A1 schreiben.
Sollte die Zahl A1 größer als D10:20 wäre es super wenn es möglich wäre
den Text in G10:20 weiter zuschreiben.

Ich bin für jeden rat dankbar.

LG Markus
Jürgen_H
aus Freude an Excel...


Verfasst am:
30. Mai 2010, 12:37
Rufname: Henne
Wohnort: Brüggen Niederrhein


AW: Zelleninhalt x-mal in bestimmte Zellen kopieren - AW: Zelleninhalt x-mal in bestimmte Zellen kopieren

Nach oben
       Version: Office 2007

Hallo Markus,

mit VBA ist es natürlich möglich. Hilft dir das weiter?

Code:

Public Sub Ausfuellen()
'Code für ein allgemeines Modul
Dim lngZ As Long

For lngZ = 1 To Range("A1").Value
 If lngZ > 11 Then
  Cells(lngZ - 2, 7).Value = Range("B1").Value
    Else
  Cells(lngZ + 9, 4).Value = Range("B1").Value
 End If
Next

End Sub


Gruß Jürgen

_________________
Freue mich über eine kurze Rückmeldung.
AlVespa
C64 Basic kenner


Verfasst am:
31. Mai 2010, 11:38
Rufname:

AW: Zelleninhalt x-mal in bestimmte Zellen kopieren - AW: Zelleninhalt x-mal in bestimmte Zellen kopieren

Nach oben
       Version: Office 2007

Hallo Jürgen,

Funktioniert super ! Vielen Dank ! Very Happy

Wäre es auch möglich das diese Routine auch funktioniert wenn in A2/B2 und A3/B3
jeweils Anzhal und Text eingeben wird es auch in die Zellen D10:D20 und G10:G20 geschrieben wird. Aber nur in freie Zellen,
- nicht das überschreiben was zuvor von A1/B1 und evtl. A2/B2 geschrieben wurde ?

LG Markus
Jürgen_H
aus Freude an Excel...


Verfasst am:
31. Mai 2010, 22:25
Rufname: Henne
Wohnort: Brüggen Niederrhein

AW: Zelleninhalt x-mal in bestimmte Zellen kopieren - AW: Zelleninhalt x-mal in bestimmte Zellen kopieren

Nach oben
       Version: Office 2007

Hallo Markus,

hier mal ein Vorschlag. Ich kann mir nicht so richtig vorstellen, wofür man das brauchen könnte. Smile Deshalb hoffe ich, dass es so OK ist.

Code:

Public Sub Ausfuellen2()
'Code für ein allgmeines Modul
Dim QZelle As Range
Dim ZZelle As Range
Dim intI As Integer
Dim lngC As Long
Dim lngFZ As Long
Dim rng As Range

'Prüfung ob Eingaben numerisch
For Each QZelle In Range("A1:A3")
  If Not IsNumeric(QZelle) Then
     MsgBox "In den Zellen A1 bis A3 sind nur Zahlen erlaubt.", 48
     Exit Sub
        Else
     lngC = lngC + QZelle.Value
  End If
Next

'Maximale Summe A1:A3 = 22
If lngC > 22 Then
  MsgBox "Die Summe der Zahlen in A1 bis A3 ergibt [ " & lngC & " ]" & vbCr _
  & "Erlaubt ist maximal 22", 48
  Exit Sub
End If

'Anzahl freie Zellen
lngFZ = Application.WorksheetFunction.CountBlank(Range("D10:D20")) + _
        Application.WorksheetFunction.CountBlank(Range("G10:G20"))
If lngC > lngFZ Then
  MsgBox "Die Summe der Zahlen in A1 bis A3 ist größer als die Anzahl freier Zellen.", 48
  Exit Sub
End If

'Text eintragen
For Each QZelle In Range("A1:A3")
  For Each ZZelle In Range("D10:D20,G10:G20")
    If IsEmpty(ZZelle) Then
      ZZelle.Value = QZelle.Offset(0, 1).Value
      intI = intI + 1
        If intI >= QZelle.Value Then
          intI = 0
          Exit For
        End If
    End If
  Next
Next

End Sub


Gruß Jürgen

_________________
Freue mich über eine kurze Rückmeldung.
AlVespa
C64 Basic kenner


Verfasst am:
03. Jun 2010, 18:30
Rufname:


AW: Zelleninhalt x-mal in bestimmte Zellen kopieren - AW: Zelleninhalt x-mal in bestimmte Zellen kopieren

Nach oben
       Version: Office 2007

Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy Very Happy

Hallo Jürgen,

Es funktioniert wunderbar !!! Vielen vielen dank für deine Hilfe.

Very Happy Very Happy Very Happy

Allerbeste Grüße

Markus
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Berechnung mit ausgeblendeten Zellen 2 Urban 1123 11. Nov 2004, 08:25
Günni Berechnung mit ausgeblendeten Zellen
Keine neuen Beiträge Excel Formeln: Gelbe Zellen zählen! 6 Axis_Sonnenflieger 4453 27. Okt 2004, 14:50
Axis_Sonnenflieger Gelbe Zellen zählen!
Keine neuen Beiträge Excel Formeln: Formel als Text in Nachbarzelle kopieren 6 blauvogel 1129 19. Okt 2004, 16:54
blauvogel Formel als Text in Nachbarzelle kopieren
Keine neuen Beiträge Excel Formeln: Summe verschiedener Zellen mit Suchkreterium (sverweis) 3 Ralli 11135 13. Okt 2004, 23:12
ae Summe verschiedener Zellen mit  Suchkreterium (sverweis)
Keine neuen Beiträge Excel Formeln: In Zellen nach mehreren 'Strings' suchen... 4 Schmalhans 2373 16. Sep 2004, 12:45
Schmalhans In Zellen nach mehreren 'Strings' suchen...
Keine neuen Beiträge Excel Formeln: automatische Farbänderung mehrerer Zellen 5 Gast 2777 14. Sep 2004, 15:11
Cubitus007 automatische Farbänderung mehrerer Zellen
Keine neuen Beiträge Excel Formeln: Kopieren von Zellen, Problem mit Datumsformatierung 4 Mick 1431 08. Sep 2004, 18:59
Mick Kopieren von Zellen, Problem mit Datumsformatierung
Keine neuen Beiträge Excel Formeln: Datum aus 3 Zellen zusammenstellen 13 Aloha 3497 07. Sep 2004, 17:29
ae Datum aus 3 Zellen zusammenstellen
Keine neuen Beiträge Excel Formeln: werte in neue tabelle mit neuen spalten kopieren 1 Timo 1723 03. Sep 2004, 07:37
ae werte in neue tabelle  mit neuen spalten kopieren
Keine neuen Beiträge Excel Formeln: Hyperlink per VBA kopieren 1 Gast 1118 03. Aug 2004, 16:57
ae Hyperlink per VBA kopieren
Keine neuen Beiträge Excel Formeln: Zelleninhalt als Verküpfung auf Tabellenname? 1 pinguin2k 1007 01. Aug 2004, 23:17
Klaus-Dieter Zelleninhalt als Verküpfung auf Tabellenname?
Keine neuen Beiträge Excel Formeln: Auf Zellen einer Datei im Web verweisen. 1 kha 812 30. Jul 2004, 13:18
kha Auf Zellen einer Datei im Web verweisen.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Excel Tipps