Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Platzhalter?

Betrifft: Platzhalter? von: Sonja
Geschrieben am: 01.11.2012 15:59:51

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

  

Betrifft: AW: Platzhalter? von: Sheldon
Geschrieben am: 01.11.2012 16:10:03

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


  

Betrifft: AW: Platzhalter? von: Sonja
Geschrieben am: 01.11.2012 16:32:26

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



  

Betrifft: AW: na dann... anwenden von: Sheldon
Geschrieben am: 01.11.2012 16:41:51

...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


  

Betrifft: AW: na dann... anwenden von: Sonja
Geschrieben am: 01.11.2012 16:54:53

Hallo Sheldon

Super! Es klappt perfekt!

Vielen Dank
Gruss Sonja


 

Beiträge aus den Excel-Beispielen zum Thema "Platzhalter?"