CommandButton Bezeichnung aus Zelle pp.
Dietmar
mit nachfolgendem Code, der durch die Betätigung eines CommandButtons ausgelöst wird, möchte ich Artikel erfassen. Der Code steht exemplarisch für eine ganze Reihe von gleichartigen Buttons.
Im Tabellenblatt -Verkauf-, in dem sich die Buttons befinden, wird ein kleines Journal geführt, das zwischendurch immer wieder geleert wird. Und auf einer Seite -Protokoll- werden alle Daten fortlaufend erfasst.
Private Sub CommandButton1_Click()
CommandButton1.Caption = Cells(2, 3).Value
Dim rng As Range
With Worksheets("Verkauf")
For Each rng In .Range("h2:h20")
If rng.Value = "" Then
rng = Worksheets("Verkauf").Range("C2").Value
rng.Offset(, 1) = CLng(Worksheets("Verkauf").Range("D2").Value)
Exit For
End If
Next
End With
With Worksheets("Protokoll")
For Each rng In .Range("a2:a2000")
If rng.Value = "" Then
rng = Worksheets("Verkauf").Range("C2").Value
rng.Offset(, 1) = CLng(Worksheets("Verkauf").Range("D2").Value)
Exit For
End If
Next
End With
End Sub
Der Code läuft soweit ganz gut durch, aber mir gefallen drei Dingen noch nicht:
a) Die Bezeichnung des CommandButtons aus der Zelle C2 wird erst im Button sichtbar, wenn dieser betätigt
wurde. Es soll aber so sein, dass die Bezeichnung geändert wird, sobald der Eintrag in der Zelle geschehen
ist.
b) Beim wiederholten Betätigen des gleichen Buttons soll keine neue Zeile beschrieben werden, sondern in der
Spalte Offset (, 3) die Anzahl der Betätigungen angegeben werden.
c) und dann gefällt mir der Code insgesamt noch nicht. Kann man den besser zusammenfassen?
Danke für jede Idee!
Viele Grüße
Dietmar
Anzeige
