ich habe folgendes anliegen:
Ich habe eine Zeile folgend aufgebaut:
G H I J K L M N O P
1 2 3 4 5 0 0 0 0 0
Nun will ich ein Code schreiben der mir die erste 0 findet und dann alle 0 löscht.
Quasi soll dann die Spalte K noch beschrieben sein und ab da bis P gelöscht werden.
Dabei dürfen die weiteren Zellen nach P nicht nach links verschoben werden.
Ich habe folgendes Probiert um den Wert überhaupt zu finden:
Sub test()
Dim bereich As Range
Dim y As Variant
y = 0
Set bereich = Sheets("Auswertung").Rows(7).Find(y, LookAt:=xlWhole)
If bereich Is Nothing Then
MsgBox "Nicht gefunden"
Else
MsgBox "Zahl in Spalte " & bereich.Column & " gefunden"
End If
End Sub
Allerdings erkennt dieser Code den Wert erst wenn ich ihn händisch eintippe. Ursprünglich kommt der Wert aus einer anderen Tabelle und wurde einfach per =Tabelle1!C3 verknüpft. Alle Werte sind als Zahl formatiert.
Vielen Dank