nach laaaaaaanger Suche habe ich
im Archiv eine Lösung gefunden, die meinem Problem
sehr nahe kommt - - - es muß nur andersherum laufen :-)
Dieser Code unten sucht in einer Spalte nach einem best. Wert
und löscht die entsprechende Zeile, ich bräuchte genau
das Gegenteil, Excel soll in Zeile 14 nach einem "x" suchen
und die Spalte löschen.
Wäre toll, wenn mir jemand den Code entsprechend
umbauen könnte :-)
Sub Löschen()
Dim i As Single
Application.ScreenUpdating = False
For i = 1 To 65536
If Cells(i, 1).Value = "0" Then
'1 steht für Spalte A, 2 wäre Spalte B etc.
Rows(i).Delete Shift:=xlUp
i = i - 1
End If
Next i
Application.ScreenUpdating = True
End Sub
Viele :-) Grüße
Ralf