Selektion zusammenhängend
02.01.2004 08:45:48
Walter MB
ein gesundes neues Jahr !!!
Habe eine kleine Frage:
Im VB-Makro möchte nach dem kopieren bestimmte Zellen selektieren, um diese
ebenfalls zu kopieren.
Hier mein bisheriges Makro:
Sub VF_Fahrzeug_Eingeben()
z = Range("a4").End(xlDown).Row
ActiveSheet.Range(Cells(z, 1), Cells(z, 23)).Select
Selection.Copy
ActiveSheet.Range(Cells(z + 1, 1), Cells(z + 1, 23)).Select
ActiveSheet.Paste ' kopierte Zeile einfügen
Application.CutCopyMode = False ' makierung aufheben
Selection.ClearContents ' kompl. Zeile löschen
ActiveSheet.Range(Cells(z + 1, 2), Cells(z + 1, 23)).Select
Selection.Interior.ColorIndex = xlNone ' Farbe aus Zelle
Selection.Borders.LineStyle = xlContinuous ' Rahmen setzen
' Selection.Borders.LineStyle = xlNone ' Rahmen raus
ActiveSheet.Range(Cells(z, 8), Cells(z, 11)).Select ' zur Anrede gehen
ActiveSheet.Range(Cells(z, 13), Cells(z, 13)).Select ' zur Anrede gehen
ActiveSheet.Range(Cells(z, 22), Cells(z, 23)).Select ' zur Anrede gehen
Ich möchte also die Zelle in dem Bereich Spalte 8-11, 13 und 22 bis 23 kopieren.
Nach Möglichkeit in einer Zeile ?
Gruß Walter MB