Nur farbige Zellen von Tab1 nach Tab2 kopieren
28.08.2015 11:51:37
Tab1
ich suche nach einer Lösung, durch die ich alle grün markierten Zellen aus dem Worksheet "Tabelle1" in die Spalte A des Worksheets "Tabelle2" untereinander aufgelistet rüberkopieren kann.
Dabei hat die Tabelle1 folgenden Aufbau:
Die Zellen mit Namen in Spalte B haben durch die bedingte Formatierung "=ISTLEER(INDIREKT("D"&ZEILE()))" eine grüne füllfarbe (RGB 204 255 204) wenn in der entsprechenden Zeile der Spalte D nichts steht, ansonsten keine füllfarbe. Das selbe gilt angepasst für die Spalte F usw.. Die Zellen der Spalten mit der Überschrift Liste haben halt Listen mit dropdown Auswahlmöglichkeiten, wobei sie auch leer gelassen werden können.Die Spalten A-D haben informationen zu Webseiten und die Spalten E-H über Artikel, wobei die Nummerierung in Spalte E da weiterläuft, wo sie in Spalte A aufhört. Dementsprechend würde ich gerne in Tabelle2 Spalte A ab A4 eine Liste mit erst allen grün hinterlegten Zellen der Tabelle1 Spalte B und dann Spalte F usw. haben.
Ich habe einen ganzen Tag lang rumgesucht und probiert aber es hat leider nichts funktioniert. _
Unter anderem hatte ich es mit einer INDEX KKLEINSTE WENN Formel versucht und auch mit dem _ folgenden Makro:
Public Sub Namen_auslesen()
Dim rngzelle As Range
Dim lngZeile As Long
lngZeile = 1
With Worksheets("Tabelle2") 'Name des Zielblattes angepasst
For Each rngzelle In ActiveSheet.Range("B1:AD175")'Suchbereich angepasst
If rngzelle.Interior.ColorIndex = 35 Then
.Cells(lngZeile, 1).Value = rngzelle.Value
lngZeile = lngZeile + 1
End If
Next rngzelle
End With
End Sub
(Quelle: Modifiziert nach Thomas Ramel aus office-loesung.de)
Ich kenne mich mit VBA nicht aus und wäre sehr dankbar für eure Hilfe.
LG Sara
Anzeige
