Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
548to552
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
548to552
548to552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Import Textzeile- noch ein Problem

Import Textzeile- noch ein Problem
21.01.2005 00:50:41
Peter
Hallo,
ich bin am verzweifeln.
Es muß doch irgendwie möglich sein den Textstring der gesuchten Zeile
so zu zerlegen, dass jeder Wert der durch den Seperator „ ,“ getrennt wird,
in eine Zelle der letzten Zeile eingefügt wird?
Für Hilfe wäre ich Dankbar
Peter

Sub Import_TextZeileVersuch2()
Dim strAct As String, strBegriff As String
Dim intRowCount, intColCount, iRow, iCol, strCol, strWert1, strEnd, strGes
Range("A1").CurrentRegion.ClearContents
intRowCount = Cells(65536, 1).End(xlUp).Row + 1
strBegriff = "Hallo"
Open "ZeilenImport.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, strAct
If InStr(1, strAct, strBegriff) Then
'Cells(intRowCount, 1) = strAct 'OK für 1.Zelle
'***Jetzt habe ich die Werte der Zeile mit dem Suchbegriff
'strAct="Hallo,B6,C6,D6,E6,F6,G6"
'Jetzt habe ich den 1.Wert des Strings
' strWert1="Hallo"
strWert1 = Left(strAct, InStr(strAct, ",") - 1)
'jetzt habe ich den verbleibenden String
'strEnd ="B6,C6,D6,E6,F6,G6"
strEnd = Right(strAct, Len(strAct) - InStr(strAct, ","))
'Range(Cells(intRowCount, 1), Cells(intRowCount, 7)) = ?
Exit Do
End If
Loop
Close #1
End Sub

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Import Textzeile- noch ein Problem
21.01.2005 01:27:15
Josef
Hallo Peter!
Ich würde es so lösen:


      
Sub Import_TextZeileVersuch2()
  
Dim strAct As String, strBegriff As String
  
Dim intRowCount, intColCount, iRow, iCol
  
Dim arr As Variant
  Range(
"A1").CurrentRegion.ClearContents
  
  
'Brauchst du eigentlich nicht, weil du ja den Bereich immer löscht!
  intRowCount = Cells(65536, 1).End(xlUp).Row + 1
  
  strBegriff = 
"Hallo"
  
Open "D:\Temp\ZeilenImport.txt" For Input As #1
   
Do While Not EOF(1)
   Line 
Input #1, strAct
      
If InStr(1, strAct, strBegriff) Then
         
         
'Mit "Split()" wird der String einem Array zugewiesen
         '"Replace()" um die Leerzeichen aus dem String zu entfernen
         arr = Split(Replace(strAct, " """), ",")
         
         
'Anzahl der Elemente im Array feststellen
         iCol = UBound(arr)
         
         
'Dem Zellbereich das Array zuweisen
         '"iCol + 1" weil beim Array die Zählung mit 0 beginnt!
         Range(Cells(intRowCount, 1), Cells(intRowCount, iCol + 1)) = arr
         
         
Exit Do
      
End If
   
Loop
  
Close #1
End Sub 


Gruß Sepp
Anzeige
AW: Herzlichen Dank
21.01.2005 01:46:45
Peter
Hallo Sepp,
ich danke Dir für die schnelle Hilfe zur späten Stunde.
Gruß Peter
AW: noch schnell probiert- genau so sollte es sein
21.01.2005 01:53:30
Peter
nochmals Danke

87 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige