na klar, du verstehst Code nicht, dann muß der erstmal weg. Klingt für mich nach einer Vermeidungsstrategie. Scheint ja gut zu funktionieren. Du könntest auch versuchen dir die Codebestandteile zu erklären, denn sooo schwer sind die nicht.
Lrow ist eine Variable, welche die letzte belegte Zeilennummer aufnehmen soll.
Ist die Tabelle leer, ergibt die letzte belegte Zeilennummer eine 1, auch wenn die Zeile 1 leer ist.
Deshalb das iif() . Darin wird die lrow geprüft und wenn eine 1 drin steht und die erste Zelle(A1) leer ist, bleibt es so, sonst wird die Zeilennummer hochgezählt. Ein "inner if" ist eine if abfrage innerhalb eines Ausdruckes.
Das hier ist der Grund für die Überschreibungen and Sheets(zieltab).Cells(Rows.Count, 1).End(xlUp).Row
Dieser Code gibt die letzte belegte Zeile zurück. du willst aber eine Zeile weiter unten einfügen.
Die Schleife über alle Scheets ist total unnötig, da du die betreffenden Blattnahmen als Parameter übergibst.
|