Ich hab untenstehend ne ganz tolle Programmierung gefunden die ich nach meinen Vorstellungen umgeschrieben habe. Allerdings bin ich in der ganzen VBA Geschichte sehr unerfahren und brauch jetzt eure Hilfe.
Ich hätte gerne das er mir die gefundene Kopierte Zelle in dem jeweiligen Tabellenblatt erst ab Spalte 25 einfügt. Wenn ich das unten dementsprechend im Offset eingebe kommt folgende Fehlermeldung:
Laufzeitfehler '1004'
"Die Informationen können nicht eingefügt werden, da der Bereich Kopieren und der Bereich zum Einfügen unterschiedliche Formen und Größen haben." ...
Ich denke er nimmt den Spaltenoffset nicht weil er aus der vorherigen Tabelle aus der die Information kopiert wird jeweils die komplette Zelle kopiert. Allerdings weiß ich nicht wie ich das dahingehend ändern muss, damit er mir die Kopie nur von "A:AB" macht.
If wks1 Is Nothing Then
MsgBox "Lieferant " & Lieferant & " hat keinen Eintrag!"
Else
sfirstaddress = wks1.Address
Do
wks1.EntireRow.Copy
Worksheets("Lieferant A").Cells(Rows.Count, "A").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll
Set wks1 = Worksheets("EINGABE").Range("AA:AA").FindNext(wks1)
Loop While Not wks1 Is Nothing And wks1.Address sfirstaddress
End If
Ich danke für eure Hilfe!
Gruß Bo