michael1306
Goto Top

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

Content-ID: 669919

Url: https://administrator.de/contentid/669919

Ausgedruckt am: 02.12.2024 um 23:12 Uhr

ukulele-7
ukulele-7 02.12.2024 um 15:20:19 Uhr
Goto Top
Wie wäre es mit einem richtigen Tabellen-Design. Attribute sollten Spalten sein, keine Zeilen in einem wiederkehrenden Abstand.
kpunkt
kpunkt 02.12.2024 um 15:26:42 Uhr
Goto Top
Jupp, versuch mal zu transponieren. Excel kopiert zwar auch mit Abständen, ist aber bei bereits befüllten Zellen dann etwas mühseliger.
Oskar44
Oskar44 02.12.2024 aktualisiert um 18:44:20 Uhr
Goto Top
Wert hat denn den M... verbrochen?? Naja so denn ...

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
Oder gleich den ganzen Mist transponieren.
Zelleninhalte mit bestimmtem Abstand transponieren mit Schleife