Hallo liebe VBA-Spezialisten,
ich habe ein kleines Problem:
mein Sheet sieht folgendermaßen aus:
Name |
Umsatz 1 |
Umsatz 2 |
Umsatz 3 |
Umsatz 4 |
Umsatz 5 |
... |
Umsatz n |
Müller |
1500 |
1300 |
1700 |
|
|
|
|
Meier |
1200 |
1800 |
|
|
|
|
|
Schmitz |
700 |
1900 |
1400 |
1200 |
600 |
|
|
Ich möchte hinter jedem Namen eine Schaltfläche einsetzen, die per Makro in die nächchste freie Umsatzspalte positioniert.
Würde gehen, wenn ich für jeden Button ein eigenes Makro schreibe, welches die globale Variable ZeilePos mit dem entsprechenden Zeilenwert füllt und ein weiteres Makro aufruft, das die Positionierung übernimmt:
Dim ZeilePos
Sub Push2()
ZeilePos = 2
GoLast
End Sub
Sub Push3()
ZeilePos = 3
GoLast
End Sub
...
Sub GoLast()
Range("A" & ZeilePos).End(xlToRight).Select
Selection.Offset(0, 1).Range("A1").Select
End Sub
Würde bei mehrerern 1000 Zeilen eine Unmenge an Makros bedeuten. Gibt es die Möglichkeit die benutzte Schaltfläche abzufragen, so dass mit SELECT CASE der Wert an die Variable ZeilePos übergeben werden kann und nur noch ein Makro benötigt wird?
|