title image


Smiley Daten in Zellen mit Sollwerten vergleichen
Hallo Excel Freunde. Folgendes Problem bringt mich zur Verzweifelung. In der Zelle A1 meines Projektes befindet sich der Text "Position" oder nicht. In Abhängigkeit ob inb dieser Zelle das Wort steht oder nicht, soll die Spalte gelöscht werden eben oder auch nicht. Ohne die Abfrage wird problemlos die Spalte A entfernt. Mit der Abfrage

der Wert in der Variablen Kopf mird mit dem Wert der Zelle A1 verglichen lande ich immer bei unter else stehenden Anweisungen, obwohl in der Testtabelle in der Zelle A1

der Wert eingetragen ist.



Es gibt in meinem Projekt eine reziproge Routine die wieder in Abhängigkeit des Eintrages die Spalte einfügen soll oder auch nicht. Auch hier lande ich immer im gleichen Anweisungsteil, egal welchen Wert die Zelle hat.



Wer kann mir hier einen Tip geben.



Gruß

Bernd





Private Sub Posentfernen_Click()

Dim wksworksheet As Worksheet

Dim wert As String

kopf = "Position"

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

With Sheets("Blatt für Angebote")

.Activate

.Range("A1").Select

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

If wert = (Position) Then

.Range("A1:A1150").Select

Selection.Delete Shift:=xlToLeft

.Range("A2").Select

MsgBox "Spalte entfernt"

Else

MsgBox "Keine Spalte für Positionsnummern vorhanden"

GoTo retour

End If

End With

retour:

With Sheets("Formular")

.Activate

End With

End Sub

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: