Mehrfachbereich mit Makro markieren
14.02.2008 07:50:00
roman
habe mir zwei Makros gebastelt. Ich starte diese mit F-Tasten. 1 Zelle markiert er mir, aber nicht ein Mehrfachbereich. Das Markierte soll dann ausgeschnitten werden und in ein beliebiger Bereich wieder eingefügt. Wer hat eine Idee?
Unten siehe Makro:
Sub makro2()
Dim a
a = ActiveWindow.Selection.Cells.Row
Cells(a, 7).Select 'hier würde er mir nur Spalte G mit der Zelle a markieren, ich bräucht aber _
_
den Befehl z.B.:
'Range("G8:J8,O8:R8").Select
'um zwei Bereiche markieren zu können
Cells oder Range("7(a):10&a,15&a:18&a").Select ' ich komm nicht drauf...
Selection.Cut
MsgBox "Bitte die gewünschte leere Zelle wählen und anschliessend Taste F4 drücken "
'mit F4 startet er mir dann das einfügen Makro
End Sub