Thema Datum  Von Nutzer Rating
Antwort
Rot Userform 1004 Fehlercode
29.03.2023 16:17:11 Vec
NotSolved
29.03.2023 16:59:54 Gast6047
NotSolved
29.03.2023 18:26:12 ralf_b
NotSolved

Ansicht des Beitrags:
Von:
Vec
Datum:
29.03.2023 16:17:11
Views:
872
Rating: Antwort:
  Ja
Thema:
Userform 1004 Fehlercode

Guten Tag,

leider habe ich ein kleines Problem an dem ich grade verzweifel. Ich habe mir eine Userform für ein Zauberbuch eines Pen and Papers gebaut und es läuft so weit auch ganz gut. Der hinzufügen Button funktionierte auch erst, nun aber plötzlich nicht mehr und er haut nur einen Fehlercode raus.

Kann mir einer sagen wieso?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
Private Sub add1_Click()
 
Dim Zauberbuch As String
Zauberbuch = txtZauberbuch.Text
 
Dim Beschreibung As String
Beschreibung = txtBeschreibung.Text
 
Dim ApKosten As String
ApKosten = txtApKosten.Text
 
Dim Kosten As String
Kosten = txtManakosten.Text
 
Dim Zusatzregeln As String
Zusatzregeln = txtZusatzregeln.Text
 
Dim Schaden As String
Schaden = txtSchaden.Text
 
Dim Magierstufe As String
Magierstufe = txtMagierstufe.Text
 
Dim Schule As String
Schule = cbbschule.Text
 
Dim Abklingzeit As String
Abklingzeit = txtAbklingzeit.Text
 
Dim wsh As Worksheet
Set wsh = ThisWorkbook.Worksheets("Tabelle1")
 
Set tbl = wsh.ListObjects("Zauberbuch")
 
Dim lRow As ListRow
Set lRow = tbl.ListRows.Add <--- hier soll wohl der Fehler liegen laut VBA.
 
With lRow
.Range(1, 1) = Zauberbuch
.Range(1, 2) = Beschreibung
.Range(1, 3) = ApKosten
.Range(1, 4) = Kosten
.Range(1, 5) = Zusatzregeln
.Range(1, 6) = Schaden
.Range(1, 7) = Magierstufe
.Range(1, 8) = Schule
.Range(1, 9) = Abklingzeit
 
End With
 
End Sub

 


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 Userform 1004 Fehlercode
29.03.2023 16:17:11 Vec
NotSolved
29.03.2023 16:59:54 Gast6047
NotSolved
29.03.2023 18:26:12 ralf_b
NotSolved