ich versuche, aus einer großen Tabelle alle Spalten zu löschen, die z.B. nicht die Zeichenfolge "6/2002" enthalten (d.h. alle Spalten löschen außer z.B. "USD 6/2002", "EUR 6/2002", etc.).
Die Spaltenüberschriften sind dabei folgendermaßen angeordnet:
..., USD 6/2002, USD 7/2002, ..., EUR 6/2002, EUR 7/2002, ...
Mit folgendem Code komme ich leider nicht weiter. Die erste Spalte, die "6/2002" enthält, wird zwar beibehalten, aber falls eine weitere Spaltenüberschrift die Zeichenfolge "6/2002" enthält, wird diese gelöscht.
Sub test()
Dim Time As String
Time = "6/2002"
With Worksheets(1)
Range("B1").Select
Set Wert = ActiveCell.Find(What:=Time, LookIn:=xlValues, LookAt:=xlPart)
Do While Not ActiveCell.Value = ""
If ActiveCell.Value = Wert Then
ActiveCell.Offset(0, 1).Select
Else
ActiveCell.EntireColumn.Select
Selection.Delete
ActiveCell.Offset(0, 0).Select
End If
Loop
End With
End Sub
Ich wäre Euch sehr dankbar, wenn mir jemand weiterhelfen könnte.
Viele Grüße
Deepy