title image


Smiley Re: Daten in Zellen mit Sollwerten vergleichen
Hallo Worti,



danke f�r Deinen Beitrag, die L�sung war es zwar nicht, aber dadurch kam mir die Idee

bei der Wertzuweisung der Variablen wert die Funktion TRIM mit einzuf�gen und Wunder �ber Wunder, auf einmal funktioniert es.



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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: