Office: (Office 2010) VBA - Rows.Count

Hallo zusammen,

ich bin neu hier und habe mich angemeldet, weil ich mit einem VBA nicht weiter kommer...

Ich habe eine Eingabemaske über die UserForm erstellt und möchte die eingebenen Daten gerne immer in die nächste freie Zeile schreiben. Das klappt auch soweit ganz gut, nur möchte ich, dass erst ab Zeile 15 Daten in die nächste freie Zeile geschrieben werden und dabei bräuchte ich jetzt hilfe.

Mein Code bisher:

Dim last As Integer
last = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row + 1


Danke schonmal vorab und Grüße
YBERION

 

Hallo Verion,

if last<15 then
last=15
end if

 

Danke, es hat funktioniert :D

schönen Sonntag

 

Moin!
Gerade weil Du VBA-Anfänger bist, solltest Du die Datentypen kennen:
vb@rchiv · Befehlsreferenz · Datentypen
Dein Dim last As Integer läuft ab Zeile 32768 in den Laufzeitfehler 6 (Überlauf).
Excel hat aber 2^20 (also 1.048.576) Zeilen.
Daher Dim last As Long

Gruß Ralf