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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen