Danke für Deinen Beitrag, das Problem hat sich durch das Einfügen der TRIM Funktion gelöst.

Die Konstante stand in dem Listing als Variable, weil ziemlich hilflos herum probiert hatte. Schätze ich weiß eh noch viel zu wenig von VBA und dann fängt man eben an zu probieren.

Die Option explicit habe ich noch ausprobiert. Wo käme sie hin und was bewirkt Sie?



Gruß

Bernd







Private Sub Posentfernen_Click()



Dim wksworksheet As Worksheet

Dim kopf As String

Dim wert As Variant

kopf = "Position"

Set wksworksheet = ThisWorkbook.Worksheets("Blatt für Angebote")

With Sheets("Blatt für Angebote")

.Activate

.Range("A1").Select

wert = Trim(wksworksheet.Cells(1, 1).Value)

MsgBox wert

If wert = kopf Then

.Range("A1:A1150").Select

Selection.Delete Shift:=xlToLeft

.Range("A2").Select

MsgBox "Spalte entfernt"

Else

MsgBox "Keine Spalte für Positionsnummern vorhanden"

End If

End With



retour:

With Sheets("Formular")

.Activate

End With

End Sub

geschrieben von becrapeter , 03.04.2006, 21:00 Uhr , 71 mal gelesen