Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
456to460
456to460
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

WER KANN MIR DEN CODE REPARIEREN, BIN ÜBERFORERT

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


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

Betreff
Datum
Anwender
Anzeige
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
Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige