Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
124to128
124to128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

freie Zelle in Spalte ermitteln

freie Zelle in Spalte ermitteln
11.06.2002 09:52:10
HoFi
Hallo zusammen,

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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: freie Zelle in Spalte ermitteln
11.06.2002 09:57:19
Hajo
Hallo 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

Re: freie Zelle in Spalte ermitteln
11.06.2002 09:59:31
Havoc_Jupp
des kannste nur mit vba lösen...

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...

Anzeige
Re: freie Zelle in Spalte ermitteln
11.06.2002 10:10:21
HoFi
Danke Dir.Hört sich gut an, denke müsste funktionieren.
Re: freie Zelle in Spalte ermitteln
11.06.2002 10:11:32
Hajo
Hallo 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

Re: freie Zelle in Spalte ermitteln
11.06.2002 11:15:03
hofi
dein vorschlag war einwandfrei danke läuft super

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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige