nun habe ich gestern schon mit folgendem Code eine super Hilfe bekommen und der Code funktioniert auch einwandfrei:
Private Sub cmdOK_Click()
With Worksheets("Tabelle1")
If IsEmpty(.Cells(19, 7)) Then
.Cells(19, 7).End(xlUp).Offset(1, 0) = CDbl(txtMwst)
Unload Me
Else
MsgBox "Bereich ist voll"
End If
End With
End Sub
Mit dem CommandButton sollen jedoch die Werte von insgesamt 3 Textboxen übertragen werden. Nämlich:
1. "txtMwst" in das Tabellenblatt "Tabelle1" ab Zelle G6:G23 (in G5
befindet sich eine Überschrift, Zellen G6:G23 sind anfänglich leer)
2. "txtSonst" in das Tabellenblatt "Tabelle2" ab Zelle G6:G23 (in G5
befindet sich eine Überschrift, Zellen G6:G23 sind anfänglich leer))
3. "txtBank" in das Tabellenblatt "Tabelle3" ab Zelle H6:H23 (in H5
befindet sich eine Überschrift, Zellen H6:H23 sind anfänglich leer))
Bei jedem Betätigen des CommandButtons sollen die Werte in die nächste Zelle geschrieben werden (z.B. G6, G7, G8 etc.) bis der Bereich voll ist. Es darf nix überschrieben werden. Nun habe ich stundenlang versucht, dies in die Sub "cmdOK" hineinzustricken. Es klappt aber nix. Bekomme immer nur Fehlermeldungen.
Bitte helft mir. Vielen Dank im Voraus!!! Ohne dieses Forum wär ich echt aufgeschmissen.
Gruß,
Cassiopeia