Hallo Leute,
wie soll man vorgehen, wenn ich nächste unbeschreibene Zeile in einem Blatt finden und dort einen Wert(z.B. eine Zahl) reinschreiben will? Mit Schleife?
Danke
probiere mal:
Sub letztezelleaktivieren()
Sheets(„Tabelle1“).Range(„A65536“).End(xlUp).Select
MsgBox ActiveCell.Address
End Sub
mfG
Hermes
Hallo Hermes
Ich habe Dein Makro ganz leicht angepasst:
a) Das Makro soll in allen Arbeitsblättern funktionieren, nicht nur in „Tabelle1“.
b) In der nächsten unbeschriebenen Zelle in Spalte A wird, wie Oliver es gerne hätte, ein Eintrag vorgenommen.
Ein Manko hat mein Vorschlag: Auch wenn das ganze Blatt leer ist, wird nicht die Zelle A1 beschrieben, sondern die Zelle A2. Auf die Schnelle habe ich die Lösung dazu noch nicht gefunden.
Grüsse Niclaus
Sub letztezelleaktivieren_v2()
ActiveSheet.Range(„A65536“).End(xlUp).Select
Selection.Offset(1, 0).Select
Selection.Range(„a1“) = "Zeile " & Selection.Row
End Sub
Ein Manko hat mein Vorschlag: Auch wenn das ganze Blatt leer
ist, wird nicht die Zelle A1 beschrieben, sondern die Zelle
A2. Auf die Schnelle habe ich die Lösung dazu noch nicht
Hallo Niclaus,
man kann das mit IF abprüfen.
Tipp, laß die 65536 weg und benutze Rows.count, wegen den vielen Zeilen in XL2007.
Ein Problem besteht noch, es muß noch abgefangen werden wenn die unterste Zelle belegt ist.
z.B. so:
If Letzte=rows.count and Range(„A“ & Letzte)"" Then
Msgbox „voll“
Exit sub
End if
Sub UnterLetzteZelleEintragen()
Dim Letzte As Long
Letzte = ActiveSheet.Range(„A“ & Rows.Count).End(xlUp).Row
If Letzte = 1 And Range(„A1“) = „“ Then Letzte = 0
Range(„A“ & Letzte + 1) = 4711
End Sub
Gruß
Reinhard
Na - das ist doch echte Teamarbeit - da kannst Du nicht jammern 