VBA
22.03.2006 09:10:14
Bernd
Private Sub Eintragen_Click()
Dim wksworksheet As Worksheet
Dim rngUsedRange As Range
Dim ingRows As Long
Dim introw As Integer
Dim intcell As String
' Buchungssätze schreiben
If Optbar.Value = True Then
Set wksworksheet = ThisWorkbook.Worksheets("Bar")
Else
Set wksworksheet = ThisWorkbook.Worksheets("Konto 2502909")
End If
For introw = 8 To 150
If Cells(introw, 2) < 0 Then
Exit For
End If
Next
MsgBox (introw)
wksworksheet.Cells(lntrow, 1).Value = txtDatum.Text
End Sub
Bie If Cells liegt schin mein erstes Problem. In meiner Beispieltabelle sind die Zeilen 8-31 mit Werten belegt. Ich möchte mit dieser Abfrage erreichen, das die letzte belegte Zeile ermittelt wird und dann mit der Zeile nach der msgbox (Ist nur für Tests gedacht) die werte aus meinem Formular in die erste leere Zeile Eintragen. In der Spalte 2( B) stehen Zahlen genauer gesagt eine Formel die eine Zahl errechnet. Bei meinen Test lande ich immer in der Zeile 8 oder 151. Das heisst für mich, die gesetzte Bedingung in der If Abfrage wird nicht so interprtiert, wie ich mir das wünsche. Ich habe auch schon die Spalten 3 (Dort steht ein Text oder nichts) und auch die Spalte 1 (dort steht ein Datum oder nichts) probiert. Das Ergebnis war immer das Gleiche. Wo ist mein Fehler.
Ich hoffe auf Eure Hilfe.