Zelleninhalt
08.12.2004 17:57:55
Molle
Dieser Code Kopiert die Zellen D5:I5 von Tabelle1 in Tabelle2.
Wenn ich in Tabelle1 einen neuen Wert eingebe wir der Wert in eine neue Spalte
geschrieben.
Ich möchte aber unterschiedliche zellen nehmen z.b A1,D5:I5,K5.L5.
da ich weis das Excel keine Zellen kopieren kann die nicht zusammendhängend sind.Komme ich nicht weiter.
Wenn es möglich ist diesen Code zu komplettieren, oder einen neuen Code schreiben.
Sub Senden_An_Gezogene_Zahlen()
' Senden_An_Gezogene_Zahlen Makro
' Makro am 06.12.2004 von Wolfi aufgezeichnet
Dim wks1 As Worksheet, wks2 As Worksheet
Set wks1 = Worksheets("Auswertung")
Set wks2 = Worksheets("Gezogene Zahlen")
wks1.Range("D5:I5").Copy _
Destination:=wks2.Range("A" & wks2.Cells(65536, 1).End(xlUp).Row + 1)
End Sub