WER KANN MIR DEN CODE REPARIEREN, BIN ÜBERFORERT

Forumthread: WER KANN MIR DEN CODE REPARIEREN, BIN ÜBERFORERT

20.07.2004 12:39:39

DELPHI_NE

SCHÖNE GRÜSSE AN A`LLE
Text:


Sub CreateTextFiles()
Const csMsg As String = " Die nicht " & _
" Arbeitsmappe " & _
"Erneut "
Dim iCounter As Interger
Dim sFile As String
On Error GoTo Errorhandler
For iCounter = 1 To 10
sFile = Format(iCounter, "0000")
sFile = CurDir & "\" & sFile & ".txt"
Open sFile For Output As #1
Print #1, " Datei Nummer " & iCounter
Close
Next iCounter
MsgBox prombt:=" Die wurden Angelegt" & vbLf & _
"Im Verzeichniss " & CurDir
Exit Sub
Errorhandler:
Close
MsgBox promt:=csMsg
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: WER KANN MIR DEN CODE REPARIEREN, BIN ÜBERFORERT

THUNFI_SCHE

Hallo,
im Gegensatz zu Menschen ist VBA nicht sehr tolerant, was die Rechtschreibung betrifft.
promt oder prombt habe ich noch nie in einem Code gesehen. Das müsste 1. prompt heißen und ist 2.vollkommen überflüssig.
Weiterhin erleichtert es allen die Arbeit und beschleunigt die Beantwortung, wenn du dein Prob möglichst genau schilderst und auch schreibst, welche Fehler auftreten.
Das gleiche Prob innerhalb von ein paar Minuten mehrmals zu posten verärgert nur die Antworter und führt evtl dazu, dass du gar keine Antwort kriegst.
Als Letztes möchte ich noch erwähnen, dass es zu den Gepflogenheiten dieses Forums gehört, seinen Namen zu nennen.
Gruß aus'm Pott
Udo

klemmt capslock?

20.07.2004 12:56:53

w00d

AW: WER KANN MIR DEN CODE REPARIEREN, BIN ÜBERFORERT

DELPHI_NE

Danke THUNFISH, HasT GLÜCK Das ICH HEUTE KEINEN HUNGER HABE DENN ICH GEHE JETZT EINEN SEETEST NEIN SEHTEST MACHEN UND DAS IM VRHÜLING WENN DIE FÖGEL VLIEGEN, FERSTEHST DU MICH, DEN BALD KOMMT DER HARTz REFORM =GEWALTSREFORM

AW: WER KANN MIR DEN CODE REPARIEREN, BIN ÜBERFORERT

20.07.2004 12:53:44

Harald

hallo, "wer auch immer"
Bisschen schnell getippt, was ?


Sub CreateTextFiles()
Const csMsg As String = " Die nicht " & _
" Arbeitsmappe " & _
"Erneut "
Dim iCounter As Integer ' statt interger
Dim sFile As String
On Error GoTo Errorhandler
For iCounter = 1 To 10
sFile = Format(iCounter, "0000")
sFile = CurDir & "\" & sFile & ".txt"
Open sFile For Output As #1
Print #1, " Datei Nummer " & iCounter
Close
Next iCounter
MsgBox prompt:=" Die wurden Angelegt" & vbLf & _ 'statt prombt
"Im Verzeichniss " & CurDir
Exit Sub
Errorhandler:
Close
MsgBox prompt:=csMsg 'statt promt
End Sub

Das sind mal 3 Rechtschreibfehler....ich will nicht behaupten, alle gefunden zu haben.
Gruß
Harald

Beliebteste Forumthreads (12 Monate)

WER KANN MIR DEN CODE REPARIEREN, BIN ÜBERFORERT

Forumthread: WER KANN MIR DEN CODE REPARIEREN, BIN ÜBERFORERT

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread