Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
260to264
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
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA zurück sprung?

VBA zurück sprung?
28.05.2003 17:57:14
David
Hallo,
für Ihre Hilfe danke ich Ihnen schon
im Vorhinein.
Anbei kommt der Code:

For i = 1 To Messpunktzahl ' 3. Block
Input #1, text1
Do
text1 = " " & text1
Loop Until Len(text1) > 108
' Text1 ist immer 108 Zeichen lang
If (text1 =
"
") Then
' falls text1 aus 108 Leerzeichen besteht
flag = 2

End If

For Spalte = 1 To 11
Text2 = Mid(text1, (Spalte - 1) * 10 + 1, 10)
Cells(Startzeile + i - 1, StartSpalte + Spalte - 1) =
Val(Text2)
Next Spalte

Next i

Wichtig ist nur der obere Teil, in dem in text1 eine Zeile aus Datei #1
eingelesen wird. Wenn dies eine Leerzeile ist (siehe if (text1 = " ),
wird dies erkannt und flag = 2 gesetzt.
Da nach dem Einlesen (input) immer eine Zeile weiter gesprunge wird
(Wagenvorschub) muß im Falle einer leeren Zeile wieder eines nach oben
gegangen werde.
Das Problem kann auch beschrieben werden mit: Lese nur die Zeile
ein, wenn etwas drinsteht?
Für einen Ratschlag bin ich sehr dankbar.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: VBA zurück sprung?
28.05.2003 18:25:20
Nepumuk

Hallo David,
mach es doch einfach so:

Gruß
Nepumuk


Re: VBA zurück sprung?
28.05.2003 19:47:29
andre

hallo david,
was liest du denn für messpunkte ein?
habe auch einige Lösungen für messmaschinen,
zeiss-umess, dea-chorus nt, zettmess futurex und cnc, falls dir das was sagt.
siehe www.a-schau.de
gruss andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige