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
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen