Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:59:21
Zellformel in VBA
23.04.2024 14:47:39
Formel SVERWEIS
23.04.2024 14:27:08
Excel - Zellen verketten anhand anderer Spalte
23.04.2024 14:23:45
Gehe zu Tabellenblatt
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1284to1288
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
1284to1288
1284to1288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Platzhalter?

Platzhalter?
01.11.2012 15:59:51
Sonja
Hallo
Ich suche wieder einmal nach einer Lösung, hoffe Ihr könnt helfen.
In meiner Excelmappe importiere ich per VBA-Code Zeile für Zeile aus einer Textdatei.
Die Textdatei soll nun Platzhalter bekommen. z.B. Hallo [Anrede] [Name] usw.
Wie kann ich denn jetzt in der Excelmappe diese Platzhalter ansprechen?
Danke schon mal für Eure Hilfe
Sonja

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

Betreff
Datum
Anwender
Anzeige
AW: Platzhalter?
01.11.2012 16:10:03
Sheldon
Hallo Sonja,
Deinen Code hast Du nicht beigefügt, daher hier mal das Grundschema, wie es gehen könnte.
Sub aa()
Dim StrText As String, StrOutput As String
StrText = "Hallo [Name] [Vorname],"
StrOutput = Replace(StrText, "[Name]", "Meier")
StrOutput = Replace(StrOutput, "[Vorname]", "Dieter")
MsgBox StrOutput
End Sub

Gruß
Sheldon

AW: Platzhalter?
01.11.2012 16:32:26
Sonja
Hallo
Entschuldigung, hier mal mein VBA-Code, welcher die Textdatei in die Excelmappe importiert.
Sub Datei_importieren()
Dim Datei As String, Text As String
Dim Zeile As Long
On Error GoTo Fehler
'Quelldatei festlegen
Datei = ThisWorkbook.Path & "\test.txt"
Open Datei For Input As #1         ' Quelldatei öffnen.
Zeile = 1
Do While Not EOF(1)           ' Schleife bis Dateiende
Line Input #1, Text      ' Text lesen
ActiveSheet.Cells(Zeile, 1) = Text
Zeile = Zeile + 1
Loop
Close #1   'Quelldatei schließen
Exit Sub
Fehler:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "da ist leider ein Fehler aufgetreten"
End Sub

Anzeige
AW: na dann... anwenden
01.11.2012 16:41:51
Sheldon
...dann tipp ich mal und Du testest...
Sub Datei_importieren()
Dim Datei As String, Text As String
Dim Zeile As Long
On Error GoTo Fehler
'Quelldatei festlegen
Datei = ThisWorkbook.Path & "\test.txt"
Open Datei For Input As #1         ' Quelldatei öffnen.
Zeile = 1
Do While Not EOF(1)           ' Schleife bis Dateiende
Line Input #1, Text      ' Text lesen

Text = Replace(Text, "[Name]", "Meier") 'Ersetzt Platzhalter [Name] durch Meier
Text = Replace(Text, "[Vorname]", "Dieter") 'Ersetzt Platzhalter [Vorname] durch Dieter

ActiveSheet.Cells(Zeile, 1) = Text
Zeile = Zeile + 1
Loop
Close #1   'Quelldatei schließen
Exit 


Sub
Fehler:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "da ist leider ein Fehler aufgetreten"
End Sub




Gruß

Sheldon
Anzeige
AW: na dann... anwenden
01.11.2012 16:54:53
Sonja
Hallo Sheldon
Super! Es klappt perfekt!
Vielen Dank
Gruss Sonja

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige