wer kann mir auf die Sprünge helfen:
Ich will in Excel aus einer Spalte(nennen wir sie mal A) die erste freie Zele ermitteln um dann über eine Inputbox/Textbox
genau in diese Zelle Daten hineinzuschreiben.
Gruss HoFi
wer kann mir auf die Sprünge helfen:
Ich will in Excel aus einer Spalte(nennen wir sie mal A) die erste freie Zele ermitteln um dann über eine Inputbox/Textbox
genau in diese Zelle Daten hineinzuschreiben.
Gruss HoFi
falls in der Spalte keine leerzellle zwischen drin gesucht werden soll Z.B 1 bis A4 belegt, A4 Frei, A5 bis A10 belegt ermittelst Du wie folgt die letzte belegte Zeile
If [a65536] = "" Then
letzte = [a65536].End(xlUp).Row
Else
letzte = 65536
End If
die Variable letzte hat die Zeilen Nr die freie Zeile ist dann letzte +1
Gruß Hajo
dazu musst du die spalte zellenweise abgrasen, und überprüfen, ob in der zelle etwas steht...ungefähr so:
dim x as integer
dim variable as boolean
x=1
do
if Worksheets("Tabelle1").Range("A"&x) <> "" then
x = x+1
variable = false
else
Ausführen von der funktion die du möchtest
variable = true
end if
loop until variable <> true
müsste so funktionieren, ich hoffe, ich konnte dir helfen...
falls in der Spalte keine leerzellle zwischen drin gesucht werden soll Z.B 1 bis A4 belegt, A4 Frei, A5 bis A10 belegt ermittelst Du wie folgt die letzte belegte Zeile
If [a65536] = "" Then
letzte = [a65536].End(xlUp).Row
Else
letzte = 65536
End If
die Variable letzte hat die Zeilen Nr die freie Zeile ist dann letzte +1
Gruß Hajo
Private Sub cmdVZBNeu_Click()
'Unload frmHauptmenü
Dim x As Integer
Dim y As Boolean
Worksheets("VZBListe").Select
x = 1
Do
If Worksheets("VZBListe").Range("B" & x) <> "" Then
x = x + 1
y = False
Else
y = True
Worksheets("VZBListe").Range("B" & x) = InputBox("Namen eingeben")
End If
Loop Until y = True
End Sub