Vergleich zweier Variablen gelingt mir nicht
17.02.2024 14:13:37
Acenoid
Habe mir schon mehrfach Tipps aus dem Archiv gefunden, die mir weitergeholfen haben.
Nun habe ich auch eine kurze Frage. Vielleicht weiß jemand weiter:
Ich habe eine Liste die bereits per Autofilter gefiltert wird.
Über
SpecialCells(xlCellTypeVisible).Rows.Count
habe ich versucht die Zahl Elemente der Liste auszulesen. Leider erhalte ich nur 4.
quelleBereich.SpecialCells(xlCellTypeVisible) weist 12 Elemente aus.
Das scheint daran zu liegen, dass die Liste doppelte Werte enthält? ( Die gefilterte Spalte enthält 11 Elemente: sechsmal den Wert 6, einmal den Wert 7, zweimal den Wert 8 , zweimal den Wert 9)
Hier ist der darumliegende code...
VisibleCellsCount = quelleBereich.SpecialCells(xlCellTypeVisible).Rows.Count
If freieZeilenImZiel >= VisibleCellsCount Then
' Kopiere den sichtbaren Bereich des Quellbereichs in den Zielbereich ab der aktuellen Zeile
quelleBereich.SpecialCells(xlCellTypeVisible).Copy
zielBereich.Cells(ersteFreieZeile, 1).PasteSpecial Paste:=xlPasteValues