Thema Datum  Von Nutzer Rating
Antwort
Rot VBA öffnen, ersetzen und Speichern unter anderem Namen
 26.05.2018 23:26:37 Fabian
NotSolved
27.05.2018 11:15:16 Gast71995
NotSolved
27.05.2018 14:02:19 Gast20136
NotSolved
27.05.2018 15:23:40 Gast57106
NotSolved
27.05.2018 15:39:50 Fabian
NotSolved
27.05.2018 16:37:29 Gast1601
NotSolved
27.05.2018 21:07:49 Fabian
NotSolved

Ansicht des Beitrags:
Von:
Fabian		 Datum:
26.05.2018 23:26:37		 Views:
1463		 Rating:
     
Antwort:
  Ja
Thema:
VBA öffnen, ersetzen und Speichern unter anderem Namen

Ich habe ein kleines "Projekt" welches ich mit VBA und Excel gerne Verwirklichen würde, da Tabellen und man es einfach eingeben kann.

Ich habe einige Codeschnippsel im Netz gefunden, leider Funktioniert es nicht so wie ich möchte, Spalte 

Ich würde gerne Muster.txt öffnen, einiges ersetzen und dann Speichern unter dem Pfad J2 Namen in Zeile D2(D2 ist Variabel darum unten die Variable Spalte, dies werde ich per Schleiffe dann immer um 1 erhöhen, was kein Problem darstellt, da ich ein Projekt mit Schleiffe gemacht habe, ich weis es sollte Zeile heissen nicht Spalte :-D

Wäre Klasse wenn mir jemand Helfen könnte was geau falsch ist,

Suchen und ersetzen hab ich leider nicht gefunden wie es geht ohne das ganze in A1 einzufügen, habe dies aber als verdeutlichung mal so stehen lassen.

Mein Code den ich habe und nicht so Richtig Funktioniert:

 

 
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Public Sub import()
Dim Arr
Dim Datei
Dim FSO
Dim L As Long
Dim Tmp As Variant
Dim vnt_Ausgabe As Variant
Dim I As Integer
Dim Str_String As String
Dim Spalte As Long
Spalte = 2
'Textdatei auslesen
Set FSO = CreateObject("Scripting.FilesystemObject")
Set Datei = FSO.OpentextFile("E:\Eigene Dateien\muster.txt") 'Anpassen
Str_String = Datei.readall
Datei.Close
 
'Suchen und ersetzen
Cells.Replace What:="laenge", Replacement:=Range("A" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
Cells.Replace What:="breite", Replacement:=Range("B" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
         
Cells.Replace What:="anzahll", Replacement:=Range("E" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
Cells.Replace What:="lochx", Replacement:=Range("F" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
         
Cells.Replace What:="lochy", Replacement:=Range("G" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
         
Cells.Replace What:="mmquad", Replacement:=Range("C" & Spalte), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
         
'Speichern
Set txtFile = fsobj.CreateTextFile("J1" & "D" & Spalte)
 
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA öffnen, ersetzen und Speichern unter anderem Namen
 26.05.2018 23:26:37 Fabian
NotSolved
27.05.2018 11:15:16 Gast71995
NotSolved
27.05.2018 14:02:19 Gast20136
NotSolved
27.05.2018 15:23:40 Gast57106
NotSolved
27.05.2018 15:39:50 Fabian
NotSolved
27.05.2018 16:37:29 Gast1601
NotSolved
27.05.2018 21:07:49 Fabian
NotSolved