In Abhängigkeit vom Inhalt einer Zelle will ich eine Spalte einfügen.
Der Vergleich mit dem Zellinhalt ist aber immer negativ (obwohl der Debugger
mir den Inhalt "Stadt" anzeigt.) Kann mir jemand den Fehler zeigen.
Vielen Dank im vorraus
Ludi
------------------------------
Public
Function Test()
Dim N As Integer, _
Wert1 As String
For N = 1 To 5
Wert1 = Cells(1, N)
Trim (Wert1)
If Wert1 = "Stadt" Then
Columns("C:C").Select
Selection.Insert Shift:=xlToRight
Exit For
End If
Next
End Function