|
Hallo,
ich schreibe momentan ein VBA-Programm in Excel. Wenn ich die Datei öffne, kopiert es aus einer anderen Datei den Inhalt und formatiert es so wie ich das haben will.
Die Werte der Tabellen sind einzelne Buchstaben, ich brauche aber nur den Buchstaben "H" und "K", den Rest will ich löschen.
Bis jetzt hatte ich das so geschrieben:
Dim wert As Range
Dim h, k As String 'ich habe das auch schon ohne Variablen versuchst, also nur mit "K" und "H"
h = "H"
k = "K"'
For Each wert In Range("B3:L33") 'Testbereich; sollte eig. das ganze Tabellenblatt bzw. einen großen Bereich durchsuchen
' If wert.Value <> h Or wert.Value <> k Then 'mit not habe ich das auch versucht und statt <> habe ich "[!H]" auch schon versucht
' wert.Value = "" 'da habe ich auch schon sehr vieles versucht
' ' wert.ClearContents
'
' ' ' Selection.ClearContents
End If
' Next wert
Im Internet habe ich nur Lösungen zu einzelnen bzw. bestimmten Zellen gefunden, trotzdem habe ich versucht das auf mein Programm umzuschreiben und nichts hat geklappt.
Dann habe ich mir gedacht, dass ich die Löschung des Inhalts erst mal bei einer Zelle versuche.
Das habe ich wie folgt gemacht:
If Not Cells(3, 7).Value Like "H" Or Not Cells(3, 7).Value Like "K" Then
Cells(3, 7).ClearContents
End If
Mit dieser If-Anweisung konnte ich zwar endlich Zellen löschen, aber auch die die nicht gelöscht werden sollten.
Also so gesagt löscht sie alle Zellen die ich anspreche, egal wie dieBedinung ausfällt und das verstehe ich nicht.
Ich habe hier ebenfalls viele Varianten ausprobiert und zum Schluss bin ich jetzt bei not gelandet.
Ich bin am verzweifeln und komme nicht mehr weiter.
Danke schon mal an die, die versuchen mir zu helfen! :)
|