ich habe folgendes Anliegen:
In Spalte D habe ich manchmal das Wort "Hinweis:" oder "Hinweis" stehen, welches aber um eine Zelle nach links verschoben werden soll.
Das Makro beginnt ab Zeile 12 mit einer Loop in der Spalte D zu suchen ob das Wort Hinweis vorhanden ist... Danach wird eine Zelle nach Links verschoben.
Folgenden Code habe ich bisher probiert:
Sub HinweisVerschieben()
Dim letzteZeileD As Long
Dim ws As Worksheet
Dim zahl As Long
Dim zeile As Long
Set ws = ThisWorkbook.Worksheets("Tabelle2")
letzteZeileD = ws.Cells(ws.Rows.Count, "D").End(xlUp).Row
If letzteZeileD letzteZeileD
If ws.Cells(zeile, "D") = "Hinweis:" Then
ws.Cells(zeile, "D").Offset(-1, 0).Select
End If
zeile = zeile + 1
Loop
End Sub
Wenn ich es ausführe passiert leider gar nichts.
Kann mir jemand bitte helfen?
Gruß =)