farbige Zelle = ganze Zeile kopieren am Ende der Tabelle
Alena Plesar
habe mehrere Zellen (Spalte H) mit verschiedenen Farben markiert (Auswahl
verschiedene Gruppen von Produkten). Jetzt brauche ich die mit grün- 56 Zeilen
(rot, blau, gelb) markierte Zelle die ganze Zeile (A-L) kopieren am Ende der
Tabelle damit ich die ganze Gruppe zusammen habe. VBA??
Bitte um Hilfe, der Montag kommt sicher und mit ihm diese 'super Arbeit'.
Danke und schönes Wochenende
Alena
--
_____________________________________________________________
NewsGroups Suchen, lesen, schreiben mit http://netnews.web.de
Peter Plank
Wenn ich dein Problem richtig verstehe, möchtest du eigendlich nur die
daten, die du zuvor markiert hast filtern?!
Ich würde an deiner Stelle durch ein Makro den Wert der farbe auslesenlassen
und in die nächste Spalte eintragen. Darauf kannst du dann ein Autofilter
anwenden oder die ganze Tabelle sortieren ...
Das Makro würde so aussehen:
Sub backcolor()
For i = 1 To Cells(Rows.Count, 8).End(xlUp).Row
Range("h" & i).Select
Range("i" & i).Value = Selection.Interior.ColorIndex
Next i
End Sub
HTH
Peter Plank
Alena Plesar <ple...@access.ch> schrieb in im Newsbeitrag:
39d4d091$1...@netnews.web.de...
Robert Feldmann
eine Möglichkeit, statt zu kopieren, sortieren.
Füge die Function in ein Modulblatt ein und verwende sie in einer
Hilfsspalte. Dort könnte z.B. drin stehen: =farbe(H2) Sie liefert Dir
die Farbnummer der Zelle H2. Die Formel kannst Du über den relevanten
Teil ziehen. Danach kannst Du den Bereich sortieren und dazu die
Hilfsspalte verwenden. Dann hast Du alle Farbblöcke zusammen. Aber
Achtung!! Wenn Du in Zellen mit der Farbmarkierung die Farbe änderst,
bekommt die Function das nur mit, wenn sich auch am Inhalt was ändert.
Wenn Du nur die Farbe änderst wird der Colorindex nicht neu berechnet,
wenn Du auch den Inhalt neu rein schreibst, oder änderst, wird auch
der Farbindex neu ermittelt.
Public Function farbe(bezug As Object)
Application.Volatile
farbe = bezug.Interior.ColorIndex
End Function
Alena Plesar schrieb:
>
> Hallo Excel Leute
>
> habe mehrere Zellen (Spalte H) mit verschiedenen Farben markiert (Auswahl
> verschiedene Gruppen von Produkten). Jetzt brauche ich die mit grün- 56 Zeilen
> (rot, blau, gelb) markierte Zelle die ganze Zeile (A-L) kopieren am Ende der
> Tabelle damit ich die ganze Gruppe zusammen habe. VBA??
>
> Bitte um Hilfe, der Montag kommt sicher und mit ihm diese 'super Arbeit'.
>
> Danke und schönes Wochenende
> Alena
> --
> _____________________________________________________________
> NewsGroups Suchen, lesen, schreiben mit http://netnews.web.de
--
bis dann,
Robert
Nicht was Du sagst ist entscheidend,
sondern was verstanden wird.
Alena Plesar
ich glaube ich habe mein Problem falsch beschrieben.
in eine Tabelle mit 1000 Artikel muss ich 4 verschiedene Gruppen machen z.B.
Zeile 34,88,234 usw.
ist eine Gruppe. So habe ich in der Zeile 34 in der Spalte H wo nummer der
Artikel ist farbig markiert. Jetzt brauche ich die ganze Zeile 34, 88,234 usw.
zusammen auf ein Blatt bringen (Später sind da 4 verschieden Tabellen). So habe
ich gedacht am Ende der Tabelle kopieren zuerst die grüne und dann einfach
kopieren auf neue Blatt. Dasselbe mit blaue Gruppe usw.
Alena
"Peter Plank" <Plank...@cityweb.de> wrote:
>Hi Alena
>Wenn ich dein Problem richtig verstehe, möchtest du eigendlich nur die
>daten, die du zuvor markiert hast filtern?!
>Ich würde an deiner Stelle durch ein Makro den Wert der farbe auslesenlassen
>und in die nächste Spalte eintragen. Darauf kannst du dann ein Autofilter
>anwenden oder die ganze Tabelle sortieren ...
>Das Makro würde so aussehen:
>Sub backcolor()
>For i = 1 To Cells(Rows.Count, 8).End(xlUp).Row
>Range("h" & i).Select
>Range("i" & i).Value = Selection.Interior.ColorIndex
>Next i
>End Sub
>
>HTH
>
>Peter Plank
>Alena Plesar <ple...@access.ch> schrieb in im Newsbeitrag:
>39d4d091$1...@netnews.web.de...
Alena Plesar
sorry,
ich habe gestern abend gar nicht richtig raalisiert Deine super Antwort. Erst
jetzt habe ich Dein Makro probiert und das ist genau das richtige!!!
Danke und nochmals sorry.