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
Sub Löschen()
dim x as range
for each x in selection
if x.value=0 then x.value=Empty
next x
End Sub
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
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ß MatthiasSub 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