Wie kann man Zeilen entfernen die einen Doppelpunkt enthalten?

[Merkur]

Wie kann man Zeilen entfernen die einen Doppelpunkt enthalten?
 
Hallo, liebe Leute,
ich habe grad euer interessantes Forum entdeckt und gleich mal eine Frage:
 
In einer großen Excel-Tabelle habe ich in einer Spalte in verschiedenen Zeilen Zeitangaben, die alle einen (oder manchmal 2) Doppelpunkte enthalten.

Das sieht innerhalb dieser Spalte etwa so aus:
 Text (irgendwelcher...)
12:54
Text
02:77:00
Text
Text
45:59
usw.

Hier möchte ich per Klick alle Zeilen die solch eine Angabe enthalten verschwinden lassen (also in einem Rutsch komplett rauslöschen).
Ich würde mich über Antwort freuen.
 
Grüße von Herold19

[Der Steuerfuzzi]

Hallo,

verwende den Autofilter, gebe in der Filtermaske einen Doppelpunkt ein und auf ok. Alle Zeilen außer der Überschrift markieren und löschen.

[HKindler]

Hi,

PHP-Code:

Sub WegMit()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Intersect(Range("A:A"), ActiveSheet.UsedRange)
For Each Zelle In Bereich
    If Zelle.Text Like "*:*" Then Zelle.ClearContents
Next Zelle
End Sub 


[Der Steuerfuzzi]

Hallo Helmut,

er ist Copperfield und möchte die Zeilen verschwinden lassen und nicht den Inhalt löschen

[schauan]

Hallöchen,

mal stibitzt und erweitert:

Code:

Sub WegMit()
Dim Bereich As Range
Dim Zelle As Range
Dim Loescher As Range
'benutzten Bereich zuweisen
Set Bereich = Intersect(Range("A:A"), ActiveSheet.UsedRange)
'Schleife ueber alle Zellen im benutzten Bereich
For Each Zelle In Bereich
    'wenn da ein : drin ist, dann
    If Zelle.Text Like "*:*" Then
        'beim ersten Treffer Variable Loescher zuweisen, bei jedem weiteren Treffer um die Zelle erweitern
        If Not Loescher Is Nothing Then Set Loescher = Union(Loescher, Zelle) Else Set Loescher = Zelle
    'Ende wenn da ein : drin ist, dann
    End If
'Ende Schleife ueber alle Zellen im benutzten Bereich
Next
'Zeilen loeschen. Erzeugt Fehler bei keinem Treffer. Siehe weiter oben If Not ... zur Vermeidung
Loescher.Delete
End Sub

[HKindler]

Na dann:

PHP-Code:

Sub WegMit()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Intersect(Range("A:A"), ActiveSheet.UsedRange)
For Each Zelle In Bereich
    If Zelle.Text Like "*:*" Then Zelle.RowHeight = 0
Next Zelle
End Sub 


Jetzt ist sie verschwunden (aber nicht gelöscht).

[Merkur]

Hallo und danke erstmal.

Ich muß jetzt erstmal suchen wo ich den Autofilter finde. Ich nutze noch Version 2007...

[Der Steuerfuzzi]

Na dann:

Nein, nicht den Inhalt, er möchte die Zeile verschwinden lassen

[schauan]

... siehe meine Antwort

Nein, nicht den Inhalt, er möchte die Zeile verschwinden lassen 

[Der Steuerfuzzi]

@André: War doch nur ein Spaß und auf Helmuts Beiträge bezogen ... bitte nicht ernst nehmen