Hallo,
ich habe ein kleineres Problem bei der Programmierung eines UserForms.
Ich möchte mit einer TextBox in die einer Wert eingegeben wird die erste Freie Zeile ansteuern und diese mit dem eingegebenen Wert befüllen.
Soweit, so gut.. ich kriege es hin, dass die erste Freie Zelle einer Spalte angesprochen wird, ich möchte jedoch als Bezugsrahmen mehrere Spalten nehmen.
Ein Beispiel:
Nur wenn die Zeile 5 von E bis AA leer ist soll in z.B. die Zelle E5 geschrieben werden.
Wie kann ich das lösen?
Mein momentaner Code (mit dem ich die erste Freie Zelle der Spalte E bekomme) dazu sieht wie folgt aus :
Private Sub Button_Absenden_Sa_Click()
' Dies ist der Wert der in Zelle geschrieben werden soll
Dim A, B, Buchung As Double
If Feld_InKasse_Sa.Value = "" Then Feld_InKasse_Sa.Value = 0
If Feld_AusKasse_Sa.Value = "" Then Feld_AusKasse_Sa.Value = 0
A = Feld_InKasse_Sa.Value
B = Feld_AusKasse_Sa.Value
Buchung = A - B
'Dies ist die Suche nach der freien Zelle
Dim FZ As Integer
If IsEmpty(Range("E7")) Then
End If
FZ = 7
Do Until IsEmpty(Cells(FZ, 5))
FZ = FZ + 1
Loop
' Hier wird der Wert in die freie Zelle geschrieben
Sheets("Samstag").Cells(FZ, 5) = Buchung
End Sub
Wie kann ich hier den Bezug zu den anderen Spalten einbauen?
Ich hoffe ich habe mich verständlich ausgedrückt und jemand hier kann mir weiterhelfen!
Danke schon mal dafür!!
Grüße
Christian
|