Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Gefilterte Zeile vergleichen und kopieren
08.12.2021 08:33:20 Mark Z
NotSolved
08.12.2021 09:30:38 Gast36103
NotSolved
08.12.2021 11:14:17 Gast29392
NotSolved

Ansicht des Beitrags:
Von:
Mark Z
Datum:
08.12.2021 08:33:20
Views:
148
Rating: Antwort:
  Ja
Thema:
VBA Gefilterte Zeile vergleichen und kopieren

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

Gruß Mark


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Gefilterte Zeile vergleichen und kopieren
08.12.2021 08:33:20 Mark Z
NotSolved
08.12.2021 09:30:38 Gast36103
NotSolved
08.12.2021 11:14:17 Gast29392
NotSolved