AW: Zelleninhalt über Makro in eine Tabelle übertr
17.08.2005 18:03:32
Erich
Hallo Stefan,
das war wohl eine etwas schwerere Geburt! Du hättest dir und mir einige Zeit und Arbeit erspart, wenn du gleich eine kleine Mustermappe hochgeladen hättest, in der das gewünschte Ergebnis eingetragen ist. (Ein Tipp fürs nächste Mal!)
Das müsste es jetzt sein - in zwei Versionen. Bei der zweiten Version müssen die vier Spalten der Einzelübersicht wie gewünscht formatiert werden, sonst sieht man z. B. statt des 17.05.05 die (richtige) Zahl 38489.
Sub Kopie_Zellen_mitFormaten()
Dim freieZ As Long
With Sheets("Einzelübersicht")
freieZ = .Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("a").[C18].Copy Destination:=.Cells(freieZ, 1)
Sheets("a").[C21].Copy Destination:=.Cells(freieZ, 2)
Sheets("a").[B17].Copy Destination:=.Cells(freieZ, 3)
Sheets("a").[B33].Copy Destination:=.Cells(freieZ, 4)
End With
End Sub
Sub Kopie_Zellen_ohneFormate()
Dim freieZ As Long, Zellen
With Sheets("a")
Zellen = Array(.[C18], .[C21], .[B17], .[B33])
End With
With Sheets("Einzelübersicht")
freieZ = .Cells(Rows.Count, 1).End(xlUp).Row + 2
Range(.Cells(freieZ, 1), .Cells(freieZ, UBound(Zellen) + 1)) = Zellen
End With
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort