Office: Wenn Zelle voll, dann die nächsten Zeilen verwenden

Hallo,

ich möchte mit VBA arbeiten.
Ich vereinfache mein Problem einmal:

ich möchte mehrere Buttons haben, die ich anklicken kann und die dann Werte in die Zellen schreiben.

Nehmen wir an, wir haben 5 Buttons mit den jeweiligen Werten 1-5, die in die Spalten A geschrieben werden sollen.

Drücke ich jetzt zuerst Button 3 soll der Wert 3 in die Spalte A1 geschrieben werden. Drücke ich danach Button 5 soll der Wert 5 in Spalte A2 geschrieben werden. Drücke ich den Button 1 soll der Wert in Spalte A3 geschrieben werden usw.

Ich brauche ca. 400 Werte pro Spalte und ca. 20 Buttons.

Hoffe jemand kann mir helfen *Smilie

Danke im voraus!

:)

 

Code:

 

Hi,

ermittle zuerst die erste freie Zeile in Spalte A:

Code:

 

hab jetzt auch noch was ausprobiert *Smilie

Sub Schaltfläche1_Klicken()
Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = 1
End Sub
Sub Schaltfläche2_Klicken()
Cells(Cells(Rows.Count, "B").End(xlUp).Row + 1, "B").Value = 2
End Sub

das funktioniert, so wie ich es haben möchte *Smilie
kann man jetzt noch einen code hinzufügen, damit z.b. nach 20 reihen in die nächste Spalte gewechselt wird, damit ich eine bessere Übersicht habe?

 

Warum Fragst Du im Forum, wenn Du die gepostete Lösung nicht anwenden willst.

Vielleicht findet sich noch jemand der auch für den Papierkorb arbeitet.

 

Weil ich trotzdem versuche das Problem weiterhin auch selber zu lösen.
Spricht doch eher für mich, wenn das versuche oder nicht?
hab deine lösung erst später gesehen. trotzdem bin ich dir natürlich dankbar für die mühe.