Office: Nächste freie Zelle per Klick füllen

Hallo liebe Experten,
ich habe schon viel gesucht, aber nichts passendes gefunden. Ich hoffe und denke, dass mir hier geholfen wird,
Ich möchte per CommandButton einen Wert (z.B. 20) in die nächste freie Zelle in einem bestimmten Bereich (B13 : D27) eintragen lassen. Das Ganze soll so ablaufen:
bei Klick soll zuerst B13 mit dem Wert ausgefüllt werden, dann bei Klick C13 und bei einem weiterem D13. Soweit hatte ich es auch schon geschafft. Nun soll aber bei einem weiteren Klick B14 gefüllt werden, dann C14, dann D14, dann B15, C15, D15 usw. bis zur letzten Zelle D27.

Im Voraus vielen Dank für eure Hilfe.
Schönen Abend und viele Grüße
MaLe

:)

 

Hallo MaLe,

woher kennt man den Wert (zB 20) ?

Warum sollen die freien Zellen clickweise mit diesem Wert und nicht auf einen Schlag gefüllt werden.

Eine Beispieldatei wäre hilfreich !

Gruß
Alyoy

 

Hallo Alyoy,

den Wert habe ich festgelegt. Es wird auch noch andere Buttons geben, die andere Werte haben werden, d.h. drücke ich dann einen anderen Button, dann soll die nächste freie Zelle in der vorgegebenen Reihenfolge mit dem anderen Wert gefüllt werden.

Kurz um: ich bastele gerade an einer Datei für ein Dart-Spiel. Hier möchte ich die "üblichen" Zahlen wie z.B. die 20 als Button hinterlegen und dann per klick einfach in die nächste freie Zelle in der gegebenen Reihenfolge einfügen.
Sollte etwas schneller gehen, als immer die Zahl einzugeben und die nächste Zelle auszuwählen.

Eine Beispieldatei kann ich leider noch nicht bieten.

Hoffe es ist einigermaßen verständlich was ich meine?!?!

 

Hallo Male,

Code:

ungetestet, da du keine Beispieldatei angehangen hast.

 

Hallo Ralf,

danke für deine Antwort.
Leider ist das nicht das, was ich brauche.

Wie ich oben schon versucht habe zu beschreiben, möchte per Button den Wert 20 in die nächste freie Zelle in einer gewissen Reihenfolge einfügen.
Die erste auszufüllende Zelle ist B13. Ist diese belegt, dann soll C13 gefüllt werden, ist diese belegt dann D13. Nun soll der Sprung bei nach B14 kommen, dann C14, D14, wieder ein Sprung nach B15, C15, D15, ....

Der Button wird nicht der einzigste bleiben. Ich habe vor noch andere Buttons einzufügen für andere Werte.

Dieses hatte ich schonmal ausprobiert. Es hat aber nur die Zellen B13, C13 und D13 gefüllt. Der Sprung nach B14 hat damit nicht geklappt.

Sub Zahlen(inhalt As String)
For i = 2 To 4
If Cells(13, i).Value = "" Then
Cells(13, i).Value = inhalt
Exit Sub
End If
Next

End Sub

Sub CommandButton()
Call Zahlen("20")
End Sub

 

Unten eine Möglichkeit, ohne in einer Schleife zu Suchen.
Den Blattnamen musst du anpassen

Alle Eventualitäten, den Code zum Erliegen zu bringen musst du probieren.
Es werden so keine Fehler behandelt. Den "Schreibbereich" solltest du entsprechend schützen und ausschliessen, dass er nicht komplett gelöscht wird, wenn neu gezählt wird.
Die Buttons kannst du dann mit dem jeweiligen Wert übergeben und das ganze im Rahmen halten.


Code:

 

Hallo MaLe,

eine weitere Lösung; mit der Übergabe eines Wertes 0 kann der Bereich gelöscht werden.
Code:

Gruß
Aloys

 

Hallo Andrea,
leider funktionierte es nicht. Irgendwas mit Kompilieren und Syntax-Fehler. Habe versucht es zu verstehen, aber hierfür habe ich zu wenige Kenntnisse.

Hallo Aloys,

das mit dem Wert 0 habe ich etwas modifiziert.
Bei "0" möchte ich nicht, dass die Tabelle geleert wird, sondern das "0" eingetragen wird.

Ich habe den Code so in ein neues Modul geschrieben:

Sub Zelle_belegen(iWert As Long)
Dim rng As Range ' verfügbarer Bereich
Dim erg As Range ' Ergebnis Find
With ActiveSheet
Set rng = .Range("B13: D27")
If iWert > -1 Then
Set erg = rng.Find("", LookIn:=xlValues, after:=.Range("D27"), searchorder:=xlByRows, SearchDirection:=xlNext)
If Not erg Is Nothing Then
erg = iWert
Else
MsgBox "Du hast schon ganz schön viele Würfe gemacht! Jetzt ist die Tabelle voll!", vbInformation
End If
Else

End If

End With
End Sub

So funktioniert es zumindest mal einwandfrei. Ich selbst habe keine Ahnung, ob es anders hätte machen müssen.
Mittlerweile habe ich noch einige Buttons hinzugefügt und dadurch kann ich über meinen Touchbildschirm kann einfach den benötigten Wert in die Tabelle übertragen.

Vielen Dank für die schnelle Hilfe.
Gruß
Male

 

Hallo Male,

Du hast Dich doch schon gut eingearbeitet:
- den Code in einen Modul ausgelagert
- die Anpassungen vorgenommen
- und es funktioniert, wie Du es Dir vorstellst

Gruß
Aloys