Guten Tag,
ich habe mir vor kurzem das Buch "Einstieg in VBA mit Excel" zugelegt, weil ich mich mit dem Thema befassen will.
Dort wird am anfang, anhand einer einfachen Aufgabe, ins Thema eingeführt. Es soll ein Kassenbuch erstellt werden, dass Einnahmen sowie Ausgaben beinhaltet, diese in Kategorien und Posten unterteilt und die Summe der Einnahmen/Ausgaben sowie der Gesamtbetrag sollen automatisch ausgerechnet werden.
Jetzt hab ich wie im Buch beschrieben, diese Codes geschrieben:
Private Sub cmdEintragen_Click()
Dim wksWorksheet As Worksheet
Dim rngUsedRange As Range
Dim strErrorMessage As String
Dim lngRows As Long
'Eingaben überprüfen
strErrorMessage = ""
If txtPosten = "" Then strErrorMessage = strErrorMessage & "FEHLER 1: Sie müssen das Eingabefeld Posten ausfüllen!" & Chr(10) & Chr(13)
If txtBetrag = "" Then strErrorMessage = strErrorMessage & "FEHLER 2: Sie müssen das Eingabefeld Betrag ausfüllen!" & Chr(10) & Chr(13)
If IsNumeric(txtBetrag) = False Then strErrorMessage = strErrorMessage & "FEHLER 3: Falsches Betragsformat (Beispiel: 165.52)!" & Chr(10) & Chr(13)
'Buchungsdatensätze schreiben
If strErrorMessage = "" Then
'Eingaben korrekt, der Buchungsdatensatz wird eingetragen
If optEinnahme.Value = True Then
Set wksWorksheet = ThisWorkbook.Worksheets("Einnahmen")
Else
Set wksWorksheet = ThisWorkbook.Worksheets("Ausgaben")
End If
Set rngUsendRange = wksWorksheet.UsedRange
lngRows = rngUsedRange.Rows.Count
wksWorksheet.Cells(lngRows + 2, 1).Value = Date
wksWorksheet.Cells(lngRows + 2, 2).Value = txtPosten.Text
wksWorksheet.Cells(lngRows + 2, 3).Value = _
cboKategorie.Value
wksWorksheet.Cells(lngRows + 2, 4).Value = txtBetrag.Text
'Zurücksetzen der Eingabefelder
txtPosten.Text = ""
cboKategorie.ListIndex = 0
txtBetrag.Text = ""
Else
'Eingaben fehlerhaft, es wird eine Fehlermeldung ausgegeben
MsgBox strErrorMessage
End If
End Sub
Die oben Rot markierte Zeile, wird mir als Fehler angezeigt, immer wenn ich auf Eintragen eines Buchungsdatenssatzes klicke. Und zwar Laufzeitfehler 91, Objektvariable oder With-Blockvariable nicht festgelegt.
Nun bin ich eben erst ins Thema eingestiegen und ich weiß nicht mehr weiter.
Ich hoffe ihr könnt mir da ein wenig weiterhelfen.
Danke im Vorraus.
Hier ein Link zu meiner Datei:
http://www.materialordner.de/3BlIYcJkTHq497czGKIxUzjxOhte2Z8.html |