Office: erste Freie Zelle selektieren...

zipmen · 23. Mai 2015

Moin Moin, ich habe da nochmal ein Problem...

Ich suche mit einem Makro die erste freie Zelle in einer bestimmten Spalte , dummerweise kann es vorkommen das in Zeile G2 nichts steht und mir einen Fehler meldet... Das habe ich mit "On Error Resume Next" umgangen und lief für meine Zwecke. (G1 ist nur Überschrift)

Nun ist es Aber so, dass ich in z.B. Zeile G 22,23 und 24 schon einträge habe
aber in G2 nicht, dann selektiert Excel mir Zeile G23 und nicht G2.

Hat da jemand ein Tipp für mich?

Code:

Range("G2").Select
On Error Resume Next
Cells(, 7).End(xlDown).Offset(1, 0).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

LG zip

:)

Hajo_Zi · 25. Mai 2015

das sagst Du auch Excel mit Deinem Code.
Code:

Sub naechste_leere_Zelle()
'**************************************************
'* H. Ziplies *
'* 11.06.2012 *
'* erstellt von HajoZiplies@WEB.de Spam *
'* Homeseite - Hajo's Excelseiten *
'**************************************************
Dim RaFound As Range
' Spalte A
Set RaFound = Range("A1:A" & Rows.Count).Find("", , , xlPart, , xlNext)
If Not RaFound Is Nothing Then
MsgBox RaFound.Address
End If
Set RaFound = Nothing
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

zipmen · 25. Mai 2015

Danke Hajo, dein Code hilft mir sehr weiter *Smilie

slowboarder · 25. Mai 2015

Hi

Code:

if Range("G2").Value = "" then
Range("G2").Select
Else
Range("G1").End(xlDown).Offset(1, 0).Select
End if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder:
Code:

range("G:G").Find(what:="", lookat:=xlwhole, lookin:=xlvalues, searchdirection:=xlNext).Select
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gruß Daniel

Office: erste Freie Zelle selektieren...

erste Freie Zelle selektieren...

erste Freie Zelle selektieren...

erste Freie Zelle selektieren...

erste Freie Zelle selektieren... - Similar Threads - Zelle selektieren

Eine Zelle blinken lassen

Daten Einlesen aus mehre Zellen in Verbindung einer Verbundene Zelle

Hochzählen Zelle Excel oder Office365?

Zelleninhalte in andere Zelle mit Komma getrennt

In einer Zelle Zahlen erkennen und trennen

Keine Zelle selektieren

Werte mehrfach selektieren und in Zelle schreiben