Eintrag aus Variant/Variant entfernen
08.12.2021 13:13:31
LeoLeo
ich habe folgendes Problem:
ich speichere in zwei verschiedenen Variant ("Label1", "Label2") jeweils mit dem .Range Befehl einzelne Spalten. Im Lokal-Fenster wird dann angezeigt, dass die zB Label2 nach dem Speichern den Datentyp Variant/Variant hat (also kein Array oder so, siehe Bild unten).
Mit zwei For-Schleifen durchlaufe ich beide davon und suche nach gleichen Einträgen. Wenn gleiche gefunden wurden, möchte ich aus einem der beiden Variant den entsprechenden Eintrag löschen. Wie mache ich das?
Zum Kontext: Alle Labels in Label2 gibt es in Label1 (in Label1 gibts halt noch paar mehr, alle sind jedoch einzigartig). Damit nicht immer alle Label2 durchsucht werden müssen, will ich das schon gefundene entfernt werden, und damit die Laufzeit verkürzt wird.
Vielen Dank schon mal im Voraus :)
So ungefähr hab ich es ausgebaut:
Dim Label1 As Variant, Label2 As Variant, Label1Zelle as Variant, Label2Zelle As Variant
Label1 = Sheets("Test").Range("E1: E60000")
Label2 = Sheets("Test").Range("C5: C6000")
For Each Label1Zelle In Label1
For Each Label2Zelle In Liste Label2
If StrComp(Label1Zelle, Label2Zelle) = 0 Then
'hier möchte ich den Entsprechenden Eintrag in Label2 löschen
Exit For
End If
Next Label2Zelle
Next Label1Zelle
