Excel Zellen mit Wert befüllen
Hallo,
ich benötige Unterstützung von euch. Ich habe eine Excel Datei mit sehr vielen Zeilen. Hierbei geht es um Kunden und ich habe pro Kunde immer 15 Zeilen mit unterschiedlichen Angaben. In jeder Zelle muss ich aber einen Wert setzen. Bedeutet, dass der Wert bei meinem ersten Kunde in Zelle F2 gleich ist wie bei meinem Kunden in Zelle F17 und dann wieder bei einem weiteren Kunden in Zelle F32. Also immer alle 15 Zellen soll Excel mir einen Wert setzen den ich angebe.
Wie kann ich so etwas umsetzen?
Danke für eure Hilfe.
Gruß Michael
ich benötige Unterstützung von euch. Ich habe eine Excel Datei mit sehr vielen Zeilen. Hierbei geht es um Kunden und ich habe pro Kunde immer 15 Zeilen mit unterschiedlichen Angaben. In jeder Zelle muss ich aber einen Wert setzen. Bedeutet, dass der Wert bei meinem ersten Kunde in Zelle F2 gleich ist wie bei meinem Kunden in Zelle F17 und dann wieder bei einem weiteren Kunden in Zelle F32. Also immer alle 15 Zellen soll Excel mir einen Wert setzen den ich angebe.
Wie kann ich so etwas umsetzen?
Danke für eure Hilfe.
Gruß Michael
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 669919
Url: https://administrator.de/contentid/669919
Ausgedruckt am: 02.12.2024 um 23:12 Uhr
3 Kommentare
Neuester Kommentar
Wert hat denn den M... verbrochen?? Naja so denn ...
F2 -> F15 Daten eintragen
Ab F17 Formel eintragen
z.B. so wenn in der Überschrift für jeden Kunden in Spalte F immer was steht, werden die Werte aus F2:F15 drunter kopiert
Oder gleich den ganzen Mist transponieren.
Zelleninhalte mit bestimmtem Abstand transponieren mit Schleife
F2 -> F15 Daten eintragen
Ab F17 Formel eintragen
=F2
und dann Formel runter ziehen :-P oder Makro was das erledigt.z.B. so wenn in der Überschrift für jeden Kunden in Spalte F immer was steht, werden die Werte aus F2:F15 drunter kopiert
Sub KopiereWerte()
Dim cRow As Long
cRow = 16
With ActiveSheet
While .Cells(cRow, "F").Value <> ""
.Range("F2:F15").Copy .Cells(cRow, "F").Offset(1, 0)
cRow = cRow + 15
Wend
End With
End Sub
Zelleninhalte mit bestimmtem Abstand transponieren mit Schleife