noch ne Frage zu Textboxen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox
Bild

Betrifft: noch ne Frage zu Textboxen von: peter
Geschrieben am: 08.02.2005 21:03:05

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

Bild


Betrifft: AW: noch ne Frage zu Textboxen von: Udo
Geschrieben am: 08.02.2005 21:04:35

Was hat das zum Geier mit Textbox zu tun?

Udo


Bild


Betrifft: AW: Berichtigt: noch ne Frage zu Textdateien von: peter
Geschrieben am: 08.02.2005 21:15:33

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



Bild


Betrifft: AW: Berichtigt: noch ne Frage zu Textdateien von: Josef Ehrensberger
Geschrieben am: 08.02.2005 21:37:12

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!


Bild


Betrifft: AW: Danke von: peter
Geschrieben am: 08.02.2005 22:29:45

Danke Sepp,
jetzt laß ich Dich erst mal in Ruhe.

nochmals Danke Peter


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Anzahl unterschiedl. Daten in gefilterter Liste"