Makro Aufnahme
21.08.2017 15:21:29
Tina.
dies geht aber immer bis Zeile 650.
Kann man dies ändern so das es immer in Spalte A bei der erste frei Zeile aufhört?
Eine Abgespeckte Datei füge ich mal hinzu.
Mit der Formel Wenn(Oder(...) geht es nicht,da werden die Nr. in einem
anderen Arbeitsblatt nicht mehr angezeigt.
https://www.herber.de/bbs/user/115613.xls
Sucht die Nr. und löscht die Zeile
Private Sub CommandButton3_Click()
Worksheets("Adressen").Rows(TextBox15).Delete
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox15 = ""
Sheets("Adressen").Select
Range("A10:A25").Select
Selection.AutoFill Destination:=Range("A10:A650")
Range("A10:A650").Select
ActiveWindow.ScrollRow = 24
ActiveWindow.ScrollRow = 91
ActiveWindow.ScrollRow = 120
ActiveWindow.ScrollRow = 222
ActiveWindow.ScrollRow = 247
ActiveWindow.ScrollRow = 276
ActiveWindow.ScrollRow = 308
ActiveWindow.ScrollRow = 338
ActiveWindow.ScrollRow = 373
ActiveWindow.ScrollRow = 394
ActiveWindow.ScrollRow = 421
ActiveWindow.ScrollRow = 480
ActiveWindow.ScrollRow = 521
ActiveWindow.ScrollRow = 537
ActiveWindow.ScrollRow = 569
ActiveWindow.ScrollRow = 572
ActiveWindow.ScrollRow = 574
ActiveWindow.ScrollRow = 572
ActiveWindow.ScrollRow = 499
ActiveWindow.ScrollRow = 252
ActiveWindow.ScrollRow = 126
ActiveWindow.ScrollRow = 10
ActiveWindow.ScrollRow = 8
End Sub