vba formatierte Zeilen einfügen falls Bedingung
28.08.2018 17:50:49
Rami
ich bin noch ziemlich neu in vba und habe nach etlichen Fehlversuchen und Recherchen entschlossen, die Frage hier mal zu stellen:
Ich habe eine Spalte (A16 bis A31) und füge in diesen leeren Zellen nun Daten einer anderen Excel Datei X (B19 bis B34) ein.
Es soll aber möglich sein, dass man bei der EDatei X nun Zeilen einfügen darf (quasi B35 usw.). Wenn also mehr Zeilen existieren als die Hauptdatei nun zu Verfügung hat soll einfach eine Zeile hinzugefügt werden, allerdings soll sie die selbe Formatierung haben wie die Zeile von A31 usw.
Ich habe bisher dies:
Set ext_wb = Workbooks.Open(ThisWorkbook.Path ...)
Dim a, b As Integer
a = 16
b = 19
Do While ext_wb.Sheets(1).Cells(b, 2) ""
If (ThisWorkbook.Sheets(1).Cells(a, 1).Address = "lastGewerk") Then
ThisWorkbook.Sheets(1).Cells(a, 1).Insert (xlShiftDown)
ThisWorkbook.Sheets(1).Cells(a, 1) = ext_wb.Sheets(1).Cells(b, 2).Value
a = a + 1
b = b + 1
Else
ThisWorkbook.Sheets(1).Cells(a, 1) = ext_wb.Sheets(1).Cells(b, 2).Value
a = a + 1
b = b + 1
End If
Loop
es funktioniert allerdings nicht, er fügt hier keine Zeilen ein.
PS: "lastGewerk" ist ein definierter Name der die Zelle A32 zugewiesen bekommen hat damit ich erkenne, wann ich die Zeile einfügen soll.