Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1240to1244
1240to1244
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

0 bzw. 0:00 entfernen

Forumthread: 0 bzw. 0:00 entfernen

0 bzw. 0:00 entfernen
Franz
Hallo,
wer kann mir VBA-mässig helfen. Suche ein Makro, was einen vordefinierten Bereich prüft und alle Zellen mit 0 oder 0:00 entfernt. Die Zelle soll also geleert werden.
Der Bereich wäre B8:N30
Danke!
Gruß
Franz
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: 0 bzw. 0:00 entfernen
22.12.2011 15:13:13
Helmut
Löscht nur die 0 und 0:00 in einem markierten (Selection) Bereich
Sub Löschen()
dim x as range
for each x in selection
if x.value=0 then x.value=Empty
next x
End Sub

hier ein Bsp. mit For Each ...
22.12.2011 15:15:45
Matthias
Hallo Franz
Das heißt also, ist das erste Zeichen eine 0 (Null), dann löschen?
Probier mal das
Sub NullWeg()
Dim Bereich As Range, Rng As Range
Set Bereich = Tabelle1.Range("B8:N30")
For Each Rng In Bereich
If Left(Rng.Text, 1) = 0 Then Rng.ClearContents 'oder nur Clear
Next
Set Bereich = Nothing
End Sub

oder Du meinst es so? (nur 0 oder "00:00")
Sub NullWeg()
Dim Bereich As Range, Rng As Range
Set Bereich = Range("B8:N30")
For Each Rng In Bereich
If Rng.Value = 0 Or Rng.Value = "00:00" Then Rng.ClearContents
Next
Set Bereich = Nothing
End Sub
Gruß Matthias
Anzeige
Hyperlink setzen
22.12.2011 16:13:06
Franz
Hallo Ihr zwei,
funktioniert beides. Danke für Eure Hilfe!
Habe aber noch eine NEUE Frage.
In A2:A10 des Reiters Übersicht stehen Pfadangaben, z.B.
P:\Test\Test.xls
Hier möchte ich ein Link setzen, damit ich die Tabellen direkt öffenen kann.
Nochmals Danke!
AW: Hyperlink setzen
22.12.2011 16:25:39
Reinhard
Hallo Franz, 
Sub Makro1()
Dim Zelle As Range
For Each Zelle In Range("A2:A10")
If Right(Zelle.Value, 4) = ".xls" Then
ActiveSheet.Hyperlinks.Add Anchor:=Zelle, Address:=Zelle.Value, _
TextToDisplay:=Mid(Zelle.Value, InStrRev(Zelle.Value, "\") + 1)
End If
Next Zelle
End Sub

Gruß
Reinhard
Anzeige
Zeitgleich, danke Reinhard!
22.12.2011 16:32:29
Franz
erledigt - habs selbst gefunden
22.12.2011 16:32:12
Franz
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige