VBA Zweite sichtbare Zelle ansprechen

Hallo zusammen,
ich als blutiger VBA-Anfänger brauche unbedingt Hilfe für ein sicherliches banales Problem:
Mit einem erweiterten Filter filtere ich "Tabelle 2". Soweit so gut. Nun möchte ich die ersten gefilterten Ergebnisse aus Spalte C vergleichen. Wenn die erste sichtbare Zelle in Spalte C den gleichen Namen hat wie die zweite sichtbare Zelle, dann soll die zweite Zelle aus Spalte C in "Tabelle 1" in das Feld B30 kopiert werden. Mein Problem ist, dass ich nur die Zelle unter der ersten sichtbaren Zelle kopiert bekomme, aber nicht die zweite sichtbare Zelle.
Über jegliche Hilfe bin ich dankbar, denn ich verzweifel mittlerweile an diesem Problem
Hier mein Code, der leider nicht so wie gewünscht funktioniert:


Sub Zellen_vergleichen_und_kopieren()
Sheets("Tabelle2").Select
If Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(1) = Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(2)
Then Range("C1").Value = Range("C2:C" & Cells(Rows.Count, "C").End(xlUp).Row).SpecialCells(xlCellTypeVisible).Cells(3).Select
Selection.Copy
Sheets("Tabelle1").Select
Range("B30").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
End Sub

Vielen Dank im Voraus.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Mark,
alles ok.
Ich versuch mal, dir zu beschreiben, wieso sogenanntes Crossposting nicht gern gesehen wird.
Stell dir vor, du wirst von einem Kollegen um Hilfe gebeten. Er hat ein Problem, welches er dir auch gut beschreiben kann.
Du hast auch gleich ein paar Ideen, weißt aber auch, dass du einige Tage brauchen wirst, bis du eine Lösung für deinen Kollegen hast.
Nun, einige Tage später, gehst du hin zu deinem Kollegen und willst ihm deine Lösung präsentieren, für die du echt Zeit + Mühe aufbringen musstest.
Dein Kollege aber sagt dir: "Oh! Danke schön! Aber ich brauch das nicht mehr. Ich hatte auch Kollege xxx um Hilfe gebeten. Er konnte mir sofort helfen, weil er das selbe Problem auch schon mal hatte. Es tut mir leid, dass ich dir nicht bescheid gesagt habe."
DAS, Mark, ist Crossposting!
Dein Kollege hat dir UND Kollege xxx die gleiche Frage gestellt und euch um Hilfe gebeten, OHNE euch beide darüber zu informieren, dass er mehrere Leute gefragt hat.
Na Mark, was denkst du jetzt?
Deine Arbeit, Mühe, Zeitaufwand war....UMSONST!
Bist du jetzt noch immer überfordert?
Ciao
Thorsten

Sub Unit() Dim ersteZelle As Range, zweiteZelle As Range With Worksheets("Tabelle2").Columns("C").SpecialCells(xlCellTypeVisible) If IsArray(.Areas(1)) Then Set ersteZelle = .Areas(1).Cells(2) If .Areas(1).Cells.Count > 2 Then Set zweiteZelle = .Areas(1).Cells(3) Else Set zweiteZelle = .Areas(2).Cells(1) End If Else Set ersteZelle = .Areas(2).Cells(1) If IsArray(.Areas(2)) Then Set zweiteZelle = .Areas(2).Cells(2) Else Set zweiteZelle = .Areas(3).Cells(1) End If End If End With MsgBox ersteZelle.Address MsgBox ersteZelle.Value MsgBox zweiteZelle.Address MsgBox zweiteZelle.Value Set ersteZelle = Nothing: Set zweiteZelle = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

VBA Zweite sichtbare Zelle ansprechen

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Zweite sichtbare Zelle ansprechen

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread