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

noch ne Frage zu Textboxen

noch ne Frage zu Textboxen
08.02.2005 21:03:05
peter
Hallo Forum,
trau mich kaum noch zu fragen, aber die Neugier siegt.
Wie greift man beim Auslesen der Textbox auf einzelne Spalten zu?
z.B. nur Spalte 1,2,5
Peter

Sub Import()
Dim intRow As Integer, intCol As Integer
Dim strTxt As String
With ActiveSheet
.Range("A1").CurrentRegion.ClearContents
Open "TestUser.txt" For Input As #1
Do Until EOF(1)
intRow = intRow + 1
intCol = 0
Line Input #1, strTxt
Do Until InStr(strTxt, ",") = 0
intCol = intCol + 1
.Cells(intRow, intCol) = Left(strTxt, InStr(strTxt, ",") - 1)
strTxt = Right(strTxt, Len(strTxt) - InStr(strTxt, ","))
Loop
.Cells(intRow, intCol + 1) = strTxt
Loop
End With
Close
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: noch ne Frage zu Textboxen
Udo
Was hat das zum Geier mit Textbox zu tun?
Udo
AW: Berichtigt: noch ne Frage zu Textdateien
08.02.2005 21:15:33
peter
Hallo Forum,
trau mich kaum noch zu fragen, aber die Neugier siegt.
Wie greift man beim Auslesen der Textbox auf einzelne Spalten zu?
z.B. nur Spalte 1,2,5
-Entschuldigung Betreff berichtigt -
Peter

Sub Import()
Dim intRow As Integer, intCol As Integer
Dim strTxt As String
With ActiveSheet
.Range("A1").CurrentRegion.ClearContents
Open "TestUser.txt" For Input As #1
Do Until EOF(1)
intRow = intRow + 1
intCol = 0
Line Input #1, strTxt
Do Until InStr(strTxt, ",") = 0
intCol = intCol + 1
.Cells(intRow, intCol) = Left(strTxt, InStr(strTxt, ",") - 1)
strTxt = Right(strTxt, Len(strTxt) - InStr(strTxt, ","))
Loop
.Cells(intRow, intCol + 1) = strTxt
Loop
End With
Close
End Sub

Anzeige
AW: Berichtigt: noch ne Frage zu Textdateien
08.02.2005 21:37:12
Josef
Hallo Peter!
Ich nutze dazu meist "Split()" !

Sub Import()
Dim lRow As Long, intCol As Integer
Dim strTxt As String, tmp As Variant
With ActiveSheet
.Range("A1").CurrentRegion.ClearContents
Open "TestUser.txt" For Input As #1
Do Until EOF(1)
lRow = lRow + 1
Line Input #1, strTxt
tmp = Split(strTxt, ",")   'Wandelt den String in ein Array um
'das Trennzeichen kann gewählt werden
.Cells(lRow, 1) = tmp(0)
.Cells(lRow, 2) = tmp(1)
.Cells(lRow, 3) = tmp(4)
Loop
Close #1
End With
End Sub

Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige
AW: Danke
08.02.2005 22:29:45
peter
Danke Sepp,
jetzt laß ich Dich erst mal in Ruhe.
nochmals Danke Peter

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige