Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Gehe zu leerzelle "j" / Vba

Gehe zu leerzelle "j" / Vba
juergen
Guten Morgen zusammen,
endlich etwas besseres Wetter, lol.
Versuche mich mit u. stehendes Makro. Funzt soweit, aber ich möchte dass, dass wenn "gelöcht" wurde, der Cursor auf die nächst leer Zeile in Spalte "J" zurück geht. Könnt Ihr mir bitte Helfen?
Gruß
Juergen
Private Sub dav()
' dav Makro
If MsgBox("Soll duckt werden?", vbYesNo + vbQuestion, "Paketliste") = vbYes Then
Druck:
Sheets("Tabelle4").Select
Sheets("Druckversion Endlos").Select
With ActiveSheet
.Unprotect "Name"
Range("B6").Select
ActiveSheet.Range("$A$7:$l$2708").AutoFilter Field:=1, Criteria1:=""
ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"
Sheets("Druckversion Endlos").Select
.Protect "Name", UserInterfaceOnly:=True
.EnableAutoFilter = True
Sheets("Tabelle4").Select
If MsgBox("Soll der Druck wiederholt werden?", vbYesNo + vbDefaultButton2) = vbYes Then  _
GoTo Druck
Columns("y:y").Select
Selection.ClearContents
? Gehe zur letzten leeren Zeile in Spalte "J" ? _
ActiveWindow.ScrollWorkbookTabs Position:=xlFirst        - vieleicht hier etwas ändern ? _
?End With
Else
MsgBox "Der Druckauftrag wurde von Ihnen abgebrochen"
End If
End Sub

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Gehe zu leerzelle "j" / Vba
29.04.2011 11:41:00
Rudi
Hallo,
Application.Goto Cells(Rows.Count, 10).End(xlUp).Offset(1), True
Gruß
Rudi
AW: Gehe zu leerzelle "j" / Vba
29.04.2011 12:01:13
juergen
Hallo Rudi,
vielen Dank, schönen Tag und schönes Wochende.....
Gruß
Juergen
Anzeige

330 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige