Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1128to1132
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
Inhaltsverzeichnis

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

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

313 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige