Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: gehe zu Zelle mit Inhalt (Leer)

gehe zu Zelle mit Inhalt (Leer)
Hugo
Guten Morgen allerseits
Wie bringe ich es mittels VBA fertig, dass der Curser von irgendeiner Stelle im Tabellenblatt auf die Zelle in Spalte A springt in welcher (Leer) steht?
Zudem möchte ich, dass anschliessend die enstsprechenden Zellen (mit sämtlichen Inhalten) in Spalten A-G gelöscht werden.
Kann mir jemand weiterhelfen?
Besten Dank im Voraus.
Gruss Hugo
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: gehe zu Zelle mit Inhalt (Leer)
15.01.2010 07:55:24
Tino
Hallo,
vieleicht geht es hiermit.
Sub GeheZuLeer()
Dim vRow
vRow = Application.Match("Leer", Columns(1), 0)
If IsNumeric(vRow) Then
Application.Goto Cells(vRow, 1), True
Cells(vRow, 1).Resize(, 7).ClearContents
Else
MsgBox "Zelle mit 'Leer' nicht gefunden"
End If
End Sub
Gruß Tino
Anzeige
AW: gehe zu Zelle mit Inhalt (Leer)
15.01.2010 08:01:09
Josef
Hallo Hugo,
das geht so.
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub leerWeg()
  Dim rng As Range, rngDel As Range
  Dim strFirst As String
  
  Set rng = Range("A:G").Find(What:="leer", LookAt:=xlPart, LookIn:=xlValues, MatchCase:=False)
  
  If Not rng Is Nothing Then
    strFirst = rng.Address
    
    Do
      
      If rngDel Is Nothing Then
        Set rngDel = rng.EntireRow
      Else
        Set rngDel = Union(rngDel, rng.EntireRow)
      End If
      
      Set rng = Range("A:G").FindNext(rng)
      
    Loop While Not rng Is Nothing And strFirst <> rng.Address
    
  End If
  
  If Not rngDel Is Nothing Then rngDel.Delete
  
  Set rng = Nothing
  Set rngDel = Nothing
End Sub

Gruß Sepp

Anzeige
AW: gehe zu Zelle mit Inhalt (Leer)
15.01.2010 08:12:40
Hugo
Hallo Tino, Hallo Sepp
Besten Dank, beide Lösungen führen zum gewünschten Ergebnis!!
Ich wünsche Euch einen erfolgreichen Tag und ein schönes Wochenende.
Gruss Hugo
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige