Hallo Experten,

benötige nochmal von euch die VBA-Hilfe.

Ich habe eine Datei mit der Tabelle die z.B. folgendermaßen aussieht:

12345 / 3 / Schraube / Messing / Kiste 1 von 3

12345 / 3 / Schraube / Messing / Kiste 2 von 3

12345 / 3 / Schraube / Messing / Kiste 3 von 3

67890 / 2 / Bolzen / Messing / Kiste 1 von 2

67890 / 2 / Bolzen / Messing / Kiste 2 von 2

Jetzt möchte gerne diese Daten in eine neu Datei die ich als Vorlage erstellt habe mit der Endung .xltx übertragen und zwar:

Die Vorlage besteht bei mir aus 9 Karten auf eine Seite, die mit der Daten aus der andere Datei siehe Beispiel oben befühlt werden muss.

Das bedeutet eine Zeile von oberem Beispiel wird in die erste Karte eingetragen und der zweite in die zweite Karte usw...

erste Datei erste Zeile sollen nur A2, C2, F2, G2 und J2 genommen werden und in die zweite Datei (Vorlage) Karte1 ins A5, B2, B3, A7 und B7 eingetragen werden. Die zweite Zeile aus der erste Datei dann in die zweite Karte von der Vorlagedatei in E5, F2, F3, E7 und F7 und so weiter bis alle Zeilen von der erste Datei übertragen sind. Also maximal 9 Karten die als Vorlage in der zweite Datei vorhanden sind.

Ist das so möglich?

Vielen Dank in Voraus

VG Sash

Hi Leute, benötige eure Hilfe. Ich möchte gerne diesen Code was ich im Internet gefunden habe so anpassen, das er mir statt die 1 in die kopierten zellen reinschreibt sondern in der Abhängigkeit von der Spalte B in die untereinander kopierten Zeilen in die Spalte N zu jede Zeile z.B. Kiste 1 von 2 und Kiste 2 von 2 reinschreibt.

Sub Erweitern()

Dim lRow As Long
Dim lCnt As Long, lCntTop As Long
Application.ScreenUpdating = False
With ActiveSheet
    For lRow = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
        If IsNumeric(.Cells(lRow, 2)) Then
            lCntTop = .Cells(lRow, 2)
            .Cells(lRow, 2) = 1
            For lCnt = lCntTop To 2 Step -1
                .Rows(lRow).Insert
                .Rows(lRow + 1).Copy Destination:=Cells(lRow, 1)
            Next lCnt
        End If
    Next lRow
End With
Application.ScreenUpdating = True

End Sub

Ich hoffe ihr könnt mich verstehen was ich meine. Schonmal vielen Dank in Voraus

VG Sash

Hi Leute, benötige eure Hilfe. Ich möchte gerne diesen Code was ich im Internet gefunden habe so anpassen, das er mir statt die 1 in die kopierten zellen reinschreibt sondern in der Abhängigkeit von der Spalte B in die untereinander kopierten Zeilen in die Spalte N zu jede Zeile z.B. Kiste 1 von 2 und Kiste 2 von 2 reinschreibt.

Sub Erweitern()

Dim lRow As Long
Dim lCnt As Long, lCntTop As Long
Application.ScreenUpdating = False
With ActiveSheet
    For lRow = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
        If IsNumeric(.Cells(lRow, 2)) Then
            lCntTop = .Cells(lRow, 2)
            .Cells(lRow, 2) = 1
            For lCnt = lCntTop To 2 Step -1
                .Rows(lRow).Insert
                .Rows(lRow + 1).Copy Destination:=Cells(lRow, 1)
            Next lCnt
        End If
    Next lRow
End With
Application.ScreenUpdating = True

End Sub

Ich hoffe ihr könnt mich verstehen was ich meine. Schonmal vielen Dank in Voraus

VG Sash

Hi Leute, benötige eure Hilfe. Ich möchte gerne diesen Code was ich im Internet gefunden habe so anpassen, das er mir statt die 1 in die kopierten zellen reinschreibt sondern in der Abhängigkeit von der Spalte B in die untereinander kopierten Zeilen in die Spalte N zu jede Zeile z.B. Kiste 1 von 2 und Kiste 2 von 2 reinschreibt.

Sub Erweitern()

Dim lRow As Long
Dim lCnt As Long, lCntTop As Long
Application.ScreenUpdating = False
With ActiveSheet
    For lRow = .Range("B" & .Rows.Count).End(xlUp).Row To 2 Step -1
        If IsNumeric(.Cells(lRow, 2)) Then
            lCntTop = .Cells(lRow, 2)
            .Cells(lRow, 2) = 1
            For lCnt = lCntTop To 2 Step -1
                .Rows(lRow).Insert
                .Rows(lRow + 1).Copy Destination:=Cells(lRow, 1)
            Next lCnt
        End If
    Next lRow
End With
Application.ScreenUpdating = True

End Sub

Ich hoffe ihr könnt mich verstehen was ich meine. Schonmal vielen Dank in Voraus

VG Sash