title image


Smiley Re: Daten in Zellen mit Sollwerten vergleichen
Hallo,

versuch es mal so:



Private Sub Posentfernen_Click()



Dim wksworksheet As Worksheet

Dim kopf



kopf = "Position"

Set wksworksheet = ThisWorkbook.Worksheets(1)

With wksworksheet

.Activate

If .Cells(1, 1).Value = kopf Then

.Range("A1:A1150").Delete Shift:=xlToLeft

.Range("A2").Select

MsgBox "Spalte entfernt"

Else

MsgBox "Keine Spalte für Positionsnummern vorhanden"

End If

End With



retour:

With Sheets(2)

.Activate

End With



End Sub


Gruß Worti <img src="http://media2.giga.de/2015/06/snapchat-smiley-sonnenbrille.png">



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: