Zelle auswählen
15.01.2003 13:25:20
Otto Hausmann
Ein Buchungsformular mit TextBox zum Eingeben der Werte, sowie je ein OptionsButton für Einnahme und Ausgabe.
Wenn ich bei nachfolgender Programmierung (die Einnahmen sollen in der Spalte A, die Ausgaben in B verbucht werden) die Opt. Einnahme aktiviere, werden die Einn. richtig verbucht und auch die nächste Zeile angesteuert. Sobald ich jedoch die Opt. Ausgabe 2x nacheinander aktiviere, wird zwar die 1. Buchung richtig, die anschl. 2. Buchung überschreibt jedoch die 1. Buchung, anstatt die nächste zeile anzusteuern. Wie behebe ich das Problem?
Private Sub cmdOK_Click
Dim intRow As Integer
If optEinnahmen = True Then
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(intRow, 1).Value = txtWert.Text
Else
If optAusgaben = True Then
intRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(intRow, 2).Value = txtWert.Text
End If
End If
End Sub