Nächste freie Zeile schreiben
#11
Hallo Stefan,

Code:
Last = Application.Min(34, Sheets("Netzwerkkabel").Cells(35, 1).End(xlUp).Row + 1)

Gruß Uwe
[-] Folgende(r) 1 Nutzer sagt Danke an Kuwer für diesen Beitrag:
  • Stefan87
Antworten Top
#12
Danke Uwe. Jetzt funktioniert es wie gewünscht.
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 2 Gast/Gäste