Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 12:46:38
Nutzereingaben Speichern und Laden
26.04.2024 11:49:48
VAB und Bedingte Formatierung nimmt die Farbe im Makro nicht
26.04.2024 11:38:46
Acrobat PDF Formularfelder mit Excel ausfüllen
26.04.2024 11:23:04
zählen wenn - aber nur die selektierten Zeilen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
448to452
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

variable aus suche aus textdatei übergeben

variable aus suche aus textdatei übergeben
08.07.2004 07:37:13
franz
Guten Morgen !
Frage:
Über folgendes Makro wird in einer Textdatei
nach einem String gesucht und in eine Variable
abgelegt.
Dim txt As String, FFSätze As String, Umschlüsselungen As String
' Open "Test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
If InStr(txt, "Insgesamt") Then
Umschlüsselungen = Right(txt, Len(txt) - 3)
End If
Loop
Close
MsgBox "Umschlüsselungen: " & Umschlüsselungen & vbLf & _
"FFSätze: " & FFSätze

End Sub
Wie kann ich die Variable in eine geöffnete Excel-Datei "Test.xls"
in Zelle A1 schreiben ?
Gruss
Franz

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: variable aus suche aus textdatei übergeben
ExceL
hi
Dim txt As String, FFSätze As String, Umschlüsselungen As String
' Open "Test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
If InStr(txt, "Insgesamt") Then
Umschlüsselungen = Right(txt, Len(txt) - 3)
End If
[a65536].End(xlUp).Value = Umschlüsselungen
Loop
Close
MsgBox "Umschlüsselungen: " & Umschlüsselungen & vbLf & _
"FFSätze: " & FFSätze
p.s
die gefundenen Variablen werden dann der Reihenfolge von A1-Axx aufgelistet (falls mehr als nur eine ist)
Gruß
Christian
AW: variable aus suche aus textdatei übergeben
08.07.2004 08:17:35
franz
Hallo Christian !
Danke für Deine Mühe.
Werd's gleich mal einbauen...
Gruss
Franz
Anzeige
AW: variable aus suche aus textdatei übergeben
ExceL
hi
sorry was vergessen
wenn dein Code in einer anderen Mappe ist
Workbooks("Test.xls").Sheets(1).[a65536].End(xlUp).Value = Umschlüsselungen
Gruß
Christian
AW: variable aus suche aus textdatei übergeben
08.07.2004 08:36:43
Franz
Hallo Christian !
Ich habe Dein Makro etwas abgeändert.
Die Zeile: [a1].Value = Umschlüsselungen
habe ich eingefügt.
Eines verstehe ich nicht. Warum dauert es so lange bis
der Wert in Zelle a1 geschrieben wird.
Dim txt As String, FFSätze As String, Umschlüsselungen As String
' Open "Test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
If InStr(txt, "Insgesamt") Then
Umschlüsselungen = Right(txt, Len(txt) - 3)
End If
' [a65536].End(xlUp).Value = Umschlüsselungen
[a1].Value = Umschlüsselungen
Loop
Close
MsgBox "Umschlüsselungen: " & Umschlüsselungen & vbLf & _
"FFSätze: " & FFSätze
end sub
Gruss
Franz
Anzeige
AW: variable aus suche aus textdatei übergeben
Reinhard
Hi Franz,
::::Eines verstehe ich nicht. Warum dauert es so lange bis der Wert in Zelle a1 geschrieben wird.
Dein "[a1].Value = Umschlüsselungen" wird bei jedem Schleifendurchgang durchgeführt, auch wenn Umschlüsselungen leer ist, das bremst. Es gehört in die If---End If Schleife.
Habe auch mal den Code geändert.
Gruß
Reinhard 

Dim txt As String, erstefreie As Long
erstefreie = [a65536].End(xlUp).Row
erstefreie = erstefreie + 1 + (erstefreie = 1 And [a1] = "")
Open "Test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
If InStr(txt, "Insgesamt") Then
Cells(erstefreie, 1) = Mid(txt, 4)
erstefreie = erstefreie + 1
End If
Loop
Close #1
If erstefreie = 1 And [a1] = "" Then
MsgBox "nichtsgefunden"
Else
MsgBox "Umschlüsselungen wurden " & erstefreie & " mal gefunden."
End If


Anzeige
oder
ExceL
hi

Sub nn()
'den ersten Wert der gefunden wird
Dim txt As String, FFSätze As String, Umschlüsselungen As String
Do Until EOF(1)
Line Input #1, txt
If InStr(txt, "Insgesamt") Then
Umschlüsselungen = Right(txt, Len(txt) - 3)
Cells(1, 1).Value = Umschlüsselungen
Exit Do
End If
Loop
Close
MsgBox "Umschlüsselungen: " & Umschlüsselungen & vbLf & _
"FFSätze: " & FFSätze
End Sub



Sub nn1()
'den letzten Wert der gefunden wird
Dim txt As String, FFSätze As String, Umschlüsselungen As String
Do Until EOF(1)
Line Input #1, txt
If InStr(txt, "Insgesamt") Then
Umschlüsselungen = Right(txt, Len(txt) - 3)
End If
Loop
Close
Cells(1, 1).Value = Umschlüsselungen
MsgBox "Umschlüsselungen: " & Umschlüsselungen & vbLf & _
"FFSätze: " & FFSätze
End Sub

gruß
Christian
Anzeige
AW: variable aus suche aus textdatei übergeben
WernerB.
Hallo Franz,
klappt es so?
Workbooks("Test.xls").Sheets(1).Range("A1").Value = Umschlüsselungen
Viel Erfolg wünscht
WernerB.
Ups Stimmt :-)
ExceL
hi
habe bei meinem posting die hirachie vergessen
Gruß
Christian
AW: Ups Stimmt :-)
08.07.2004 10:29:06
franz
Hallo !
Danke für die Hilfe.
Gruss
franz

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige