Thema Datum  Von Nutzer Rating
Antwort
Rot  VBA mit Excel
 14.07.2008 09:06:16 Nike83
NotSolved
14.07.2008 09:12:36 Nike83
NotSolved
14.07.2008 09:42:34 jh
NotSolved

Ansicht des Beitrags:
Von:
Nike83		 Datum:
14.07.2008 09:06:16		 Views:
1880		 Rating:
     
Antwort:
  Ja
Thema:
VBA mit Excel
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot  VBA mit Excel
 14.07.2008 09:06:16 Nike83
NotSolved
14.07.2008 09:12:36 Nike83
NotSolved
14.07.2008 09:42:34 jh
NotSolved