Leider sitze ich hier vor einem Problem, was von der Logik her eigentlich keins ist.
auch das Kopieren von aufgenommenen Makros half nicht:
Ich habe ein Tabellenblatt, wo ich die Zellen C3-C28 mit dem String strText vergleiche. Jede Spalte, in dem der Zellinhalt nicht mit strText übereinstimmt soll gelöscht werden.
Aktuell habe ich folgendes in VBA programmiert, aber ich bekomme erstaunlicher Weise den Zellinhalt C3-C28 nicht ausgelesen und auch das löschen klappt nicht, obwohl ja jetzt jedesmal der If-Fall eintritt.
Quellcode:
For varElement = 3 To 28
If strText Cells(4, varElement).text Then
ActiveSheet.colums(varElement).Delete Shift:=xlShiftToLeft
End If
Next varElement