ich habe ein Problem! Und zwar möchte ich aus einem Blatt alle grau hinterlegten Zellen (diese Zellen sind variabel!!) kopieren und in ein anderes Blatt einfügen!
Hat jemand vielleicht für mich ein passendes Makro!?
Wäre echt klasse!
Gruß Chris
ich habe ein Problem! Und zwar möchte ich aus einem Blatt alle grau hinterlegten Zellen (diese Zellen sind variabel!!) kopieren und in ein anderes Blatt einfügen!
Hat jemand vielleicht für mich ein passendes Makro!?
Wäre echt klasse!
Gruß Chris
Gruss
Chris
wie sollen dann die Zellen im Zielblatt eingefügt werden? Gleiche Zelladresse wie im Quellblatt?
Was soll kopiert werden (Formeln, Werte, alles) ?
Gruß
Peter
danke Dir für Deine rasche Antwort!
Nur noch eine Frage, kopiert er mir so die Zellen auch dorthin, wo ich sie rauskopiert habe!? Wenn nicht, hast Du mir da vielleicht auch noch ne Erweiterung Deines Makros!?
Danke nochmals!
LG Chris
Es sollen nur Werte aus Blatt 1 kopiert werden und in Tabelle 2 eingefügt werden.
Am besten sollten die Werte dort hineinhkopiert werden wo sie auch herauskopiert werden.
Gruß Chris
PS.: Noch ne Frage wenn in der Spalte in Tabelle 2 eine Formel hinterlegt ist. Was passiert, wenn ich dort den Wert der Tabelle 1 eintrage! Wird dann die Formel gelöscht!?
Sub GrauCopy()
Dim Z As Range
For Each Z In Sheets("Tabelle1").Cells
If Z.Interior.ColorIndex = 15 Then
Z.Copy
Sheets("Tabelle2").Select
Cells(Z.Row, Z.Column).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
Next
End Sub
Natürlich werden damit evtl. in Tabelle2 vorhandene Eintragungen überschrieben.
Gruß
Peter
LG Chris
Zeile 3 sollte besser lauten
For Each Z In Sheets("Tabelle1").UsedRange
Gruß
Peter