Kopier Button - Resize, Range, Active Cell
08.04.2019 08:04:43
MiaLeMe
Ich möchte gerne einen Kopierbutton erstellen und der soll so funktionieren:
Man wählt am linken Rand mit Mausklick eine gesamte Zeile aus. Dann klickt man auf den Button hinter dem das Makro hinterlegt ist. Aus dieser markierten Zeile sollen jetzt alle Spalten von B bis einschließlich S (außer die Ausgeblendeten dazwischen) kopiert werden.
So weit bin ich schon:
Sub Kopieren()
ActiveCell.Resize(Cells(ActiveCell, 1 + 18)).Copy
'18 weil es 18 angezeigte, nicht ausgeblendete Spalten sind
End Sub
Mit dem 1 + 18 habe ich versucht dem System zu sagen, dass es erst ab Spalte B also 2 anfangen soll und dann 18 weiter gehen soll..
Ich hoffe auch, dass ActiveCell auch funktioniert wenn die Zeile wie oben beschrieben komplett markiert wird.
Ich denke mit .copy kopiert er eh nur die nicht ausgeblendeten Spalten mit, oder?
Ich würde mich sehr über eure Hilfe freuen.
Danke im Voraus.
LG
Mia