Thema Datum  Von Nutzer Rating
Antwort
Rot Zeilen kopieren bis bestimmte Schriftfarbe
 15.12.2020 18:09:27 Volibär
NotSolved
15.12.2020 18:51:26 Gast80090
NotSolved
16.12.2020 08:32:17 Volibär
NotSolved
16.12.2020 09:06:36 volti
*****
Solved

Ansicht des Beitrags:
Von:
Volibär		 Datum:
15.12.2020 18:09:27		 Views:
779		 Rating:
     
Antwort:
  Ja
Thema:
Zeilen kopieren bis bestimmte Schriftfarbe

Moin allerseits.

Ich bin grad nen Code am schreiben und brauche Hilfe. Mir zeigt Excel beim Ausführen des Makros, dass ich ein Objekt bräuchte aber nicht wo genau.

 

Sub Colorfinder()

Dim rngCell As Excel.Range

rngCell = Active.Worksheet.Cells.Range("A")

Do Until rngCell.Font.Color = RGB(84, 130, 53)

With Sheets("Tabelle1" & "Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row
Rows(rngCell.Row).Copy
Sheets("Tabelle3").PasteSpecial Paste:=xlValues

End With

Loop

 End Sub

 

Kontext:

 

In den Tabellen 1 und 2 stehen in Spalte A nach unten hin Texte in Schwarz und Grün.

Meine Idee war es von der letzten beschriebenen Zeile aus nach oben hin auszulesen bis der Text von Schwarz auf Grün wechselt, und den dann in Tabelle3 zu kopieren.

Klappt aber nicht wie ich es mir vorgestellt habe.

 

Hat wer Ideen woran es liegen könnte?

 

Mfg Voli

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 Zeilen kopieren bis bestimmte Schriftfarbe
 15.12.2020 18:09:27 Volibär
NotSolved
15.12.2020 18:51:26 Gast80090
NotSolved
16.12.2020 08:32:17 Volibär
NotSolved
16.12.2020 09:06:36 volti
*****
Solved