Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Wenn farbige Schrift, dann in neues Blatt kopieren
zurück: Optionsfelder mehrmals anklicken weiter: Existiert Verzeichnis überhaupt? & Fertig! Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
meppche
Anwender mit Formelkenntnissen ohne VBA


Verfasst am:
20. Jan 2009, 16:50
Rufname: Dirk
Wohnort: Offstein

Wenn farbige Schrift, dann in neues Blatt kopieren - Wenn farbige Schrift, dann in neues Blatt kopieren

Nach oben
       Version: Office 2003

Und nochmal ein Hallo zusammen,

ich habe eine Tabelle mit ganz vielen Zeilen. In dieser Preisliste stehen Zeilen, welche in ROTER Schrift angelegt sind. Nun soll ein Makro mir die Zeilen mit Roter Schrift suchen und in ein neues Blatt kopieren und die Formatierung dementsprechend beibehalten.

Ich weiß nicht ob dies überhaupt über ein Makro möglich ist. Ich scheitere beim aufzeichnen schon daran, dass ich nicht weiß, wie ich nach der farbigen Schrift suchen kann, da bei jedem Kunden eine andere Zeile betroffen sein kann.

Ich bitte um ausführlich Mithilfe der Spezialisten. Denke mal, dass dieses Problem schon öfters angesprochen wurde, ich finde es nur nicht im Forum.

Ich bin über jeden Tipp dankbar.

Vielen Dank schon mal und Grüße aus Worms

Dirk
pefeu
Im Profil kannst Du frei den Rang ändern


Verfasst am:
20. Jan 2009, 17:41
Rufname: Peter
Wohnort: Hamburg


AW: Wenn farbige Schrift, dann in neues Blatt kopieren - AW: Wenn farbige Schrift, dann in neues Blatt kopieren

Nach oben
       Version: Office 2003

Hallo Dirk,

so sollte es funktionieren, wobei ich davon ausgegangen bin, dass deine Daten in Tabelle1 ab Spalte 1 = A und Zeile 1 stehen und auch so kopier werden sollen.
Sonst musst du ein wenig anpassen.

Public Sub WennRotKopieren()

Dim WkSh_Q As Worksheet
Dim WkSh_Z As Worksheet
Dim lZeile_Q As Long
Dim lZeile_Z As Long

Application.ScreenUpdating = False

Set WkSh_Q = ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattname ggf. anpassen !
Set WkSh_Z = ThisWorkbook.Worksheets("Tabelle2") ' den Tabellenblattname ggf. anpassen !

For lZeile_Q = 1 To WkSh_Q.Cells(Rows.Count, 1).End(xlUp).Row
If WkSh_Q.Range("A" & lZeile_Q).Font.ColorIndex = 3 Then
lZeile_Z = WkSh_Z.Cells(Rows.Count, 1).End(xlUp).Row + 1
WkSh_Q.Rows(lZeile_Q).Copy Destination:=WkSh_Z.Rows(lZeile_Z)
End If
Next lZeile_Q

Application.ScreenUpdating = True

End Sub

Gruß Peter
meppche
Anwender mit Formelkenntnissen ohne VBA


Verfasst am:
22. Jan 2009, 15:34
Rufname: Dirk
Wohnort: Offstein

AW: Wenn farbige Schrift, dann in neues Blatt kopieren - AW: Wenn farbige Schrift, dann in neues Blatt kopieren

Nach oben
       Version: Office 2003

Hallo Peter,

erstmal vielen Dank für die schnelle Antwort. Aber ...

Zum Teil funktioniert das Makro, allerdings habe ich das Problem, dass er nicht alle Zeile kopiert. Ich habe momentan ca. 50 Zeilen. Von diesen 50 Zeilen sind 45 Zeilen in Rot geschrieben. Wenn das Makro läuft, werden diese Zeilen auch gefunden, kurz kopiert und dann wieder von der nächsten Zeile überschrieben. Zum Schluss werden dann tatsächlich zwei Zeilen ausgegeben.

Zum zweiten wird nur die Zeile kopiert mit den Inhalten. Aber nicht die Formate. Gibt es auch hierfür ein Möglichkeit?

Vielen Dank für Deine (Eure) Mithilfe

Gruß Dirk
meppche
Anwender mit Formelkenntnissen ohne VBA


Verfasst am:
23. Jan 2009, 09:12
Rufname: Dirk
Wohnort: Offstein


AW: Wenn farbige Schrift, dann in neues Blatt kopieren - AW: Wenn farbige Schrift, dann in neues Blatt kopieren

Nach oben
       Version: Office 2003

Und nochmal ein hallo zusammen,

habe mich langsam an die Lösung ran getastet. Musste von der farbigen Schrift auf farbige Zellen umstellen. Nun werden die Zeilen richtig kopiert und aufgelistet. Aber:

die Leerzeilen, ohne Inhalt und nur farbig (die Zelle und nicht die Schrift) markiert, werden nicht mit kopiert bzw. unterdrückt. diese sind aber wichtig wegen der Formatierung der neuen Liste. Ebenso werden nicht die Format übernommen.

Hat jemand eine Idee wie ich dies beheben kann? wenn gewünscht poste ich auch gerne mal meinen momentanen code.

Vielen Dank für die Mithilfe.

Gruß Dirk
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Excel Formeln: Datum aus Steuerelment Kombinationsfeld in Zelle kopieren? 2 lemmi-g 675 02. Aug 2005, 19:18
Loomex Datum aus Steuerelment Kombinationsfeld in Zelle kopieren?
Keine neuen Beiträge Excel Formeln: Runden über Tabellenblatt kopieren 2 CK_one_Gast 1489 27. Jul 2005, 10:01
CK_one_Gast Runden über Tabellenblatt kopieren
Keine neuen Beiträge Excel Formeln: farbige Datumsgestaltung im Diagramm 1 Tina 509 22. Jun 2005, 14:40
fl618 farbige Datumsgestaltung im Diagramm
Keine neuen Beiträge Excel Formeln: Excelliste ohne Leerzeilen in neues Arbeitsblatt kopieren! 1 8Ball 1994 02. Jun 2005, 14:42
mruettler Excelliste ohne Leerzeilen in neues Arbeitsblatt kopieren!
Keine neuen Beiträge Excel Formeln: Selbständiges Suchen einer Zelle und kopieren i andere Datei 2 Gerson 2322 19. Mai 2005, 04:48
Gerson Selbständiges Suchen einer Zelle und kopieren i andere Datei
Keine neuen Beiträge Excel Formeln: Muß Daten kopieren mit Bezug auf mehrer Zeilen 3 Anke 1487 07. Apr 2005, 10:54
Anke Muß Daten kopieren mit Bezug auf mehrer Zeilen
Keine neuen Beiträge Excel Formeln: Autoausfüllen bzw. Kopieren von Zellen mit Formeln 3 UnitedBlue 1585 23. Feb 2005, 18:08
The BOO-M-AN Autoausfüllen bzw. Kopieren von Zellen mit Formeln
Keine neuen Beiträge Excel Formeln: Flexible Referenz auf Zelle in anderem Blatt 2 Aloha 4555 31. Jan 2005, 15:35
Aloha Flexible Referenz auf Zelle in anderem Blatt
Keine neuen Beiträge Excel Formeln: Teilinhalt einer Zelle in einer neuen Zelle kopieren 2 nastromo2001 2812 24. Jan 2005, 18:48
nastromo2001 Teilinhalt einer Zelle in einer neuen Zelle kopieren
Keine neuen Beiträge Excel Formeln: Zahl um 1 erhöhen pro gedrucktes Blatt 0 redfin 496 18. Jan 2005, 10:22
redfin Zahl um 1 erhöhen pro gedrucktes Blatt
Keine neuen Beiträge Excel Formeln: Datensätze automatisch kopieren 2 Gast 2731 04. Jan 2005, 20:57
Gast Datensätze automatisch kopieren
Keine neuen Beiträge Excel Formeln: neues Problem!!!!! 3 bluesunkat 497 21. Dez 2004, 15:57
bluesunkat neues Problem!!!!!
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: HTML CSS