hey leute,
kenn mich in vba noch net so gut aus, könnt ihr mir sagen was an diesem code falsch, weil er copi macht nicht was da steht…
und zwar ignoriert er einfach den zähler und zählt garnicht!!!
Option Explicit
Const Passwort As String = „Reisekosten“
Dim Eingabe As String
Dim Zähler As Long
Private Sub cmd_Bestätigung_Click()
'Eingabe
Eingabe = txt_Passwort.Text
'Verarbeitung
If Zähler
Hallo,
ich habe mal pre Tags eingebaut, dann ist das besser lesbar.
Zu Deinem Problem: Die Teile, die nicht direkt VB sind verstehe ich nicht, im VB Code kann ich aber keinen Fehler entdecken.
Zwei ‚Schönheitsfehler‘ höchstens, in Variablen verwende ich nie Umlaute, der Doppelpunkt hinter dem ‚Else‘ ist überflüssig und Zaehler 
muß nicht Long sein, Byte reicht völlig.
Das beeinträchtigt aber das Programm nicht, das müßte so laufen.
Bist Du sicher, daß Du den Fehler an der richtigen Stelle suchst? Setze doch mal einen Stoppunkt auf …
Zähler = Zähler + 1
… und schalte im Einzelschritt weiter. Verändert sich der Inhalt der Variablen?
Const Passwort As String = "Reisekosten"
Dim Eingabe As String
Dim Zähler As Long
Private Sub cmd\_Bestätigung\_Click()
'Eingabe
Eingabe = txt\_Passwort.Text
'Verarbeitung
If Zähler
Hi Ivi,
was soll …weil er copi macht nicht was da steht… bedeuten?
Schon klar dass der Code nicht macht was gehofft ist, aer komme nicht drauf für was „copi“ steht.
und zwar ignoriert er einfach den zähler und zählt garnicht!!!
Ich habe den Code kurz überflogen, mir ist da nix aufgefallen. Aber da ich den wert der globalen Variablen Zähler und Eingabe ohne Glaskugel nicht erkennen kann, bau mal das folgende Makro ein und sage was die Messageboxen so anzeigen, dann schaue ich nochmal genauer auf den Code.
Und benutze bitte beim Postn von Code den pre-Tag, dann sieht Code so aus:
Option Explicit
Const Passwort As String = "Reisekosten"
Dim Eingabe As String
Dim Zähler As Long
Private Sub cmd\_Bestätigung\_Click()
MsgBox Eingabe
MsgBox Zähler
'Eingabe
Eingabe = txt\_Passwort.Text
'Verarbeitung
If Zähler
> bitte hilt mir, ist ganz dringend, bin schon am
> verzweifeln....
Bleib cool und gewöhn dich ans Verzeifeln, ist normal bei MS-Produkten \*grins\*
Gruß
Reinhard
Nachtrag
Hallo,
ich habe mal die Teile auskommentiert, die mit Deinem Problem nichts zu tun haben …
Const Passwort As String = "Reisekosten"
Dim Eingabe As String
Dim Zähler As Long
Private Sub cmd\_Bestätigung\_Click()
'Eingabe
Eingabe = txt\_Passwort.Text
'Verarbeitung
If Zähler
... unter VB6 läuft das so! Hab's gerade getestet, klappt!
Der Code ist in Ordnung, Du hast ein anderes Problem.
Gruß, Rainer
Hallo,
es fehlt die Sprunganweisung oder Schleife!
vor
If Zähler Private Sub cmd_Bestätigung_Click()
'Eingabe
Eingabe = txt_Passwort.Text
'Verarbeitung
For Zähler = 1 To 3
If Zähler Gruß, Bernd
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
danke das ihr mir versucht habt weiter zu helfen, hab den fehler nun endeckt, hatte die exeldatei falsch benannt.
kann das mit den schleifen noch nicht, hatten das noch nicht im unterricht…