Unbestimmter String ersetzen
22.02.2023 16:33:40
Igor
Ich habe gleichzeitig 2 verschiedene Fragen. Vielleicht kennt jemand mindestens eine Antwort:
1. Ich möchte alle Zeichenketten nach 2, aber vor 3 gleich ändern.
Cells.Replace What:=", 2:*", Replacement:=", 2:WETTER", LookAt:=xlPart- wird nicht funktionieren.
Beispiel:
1:Wort, 2:Palabra, 3:word
1:Frage, 2:Pregunta
1:Buch, 2:Libro, 3:irgendwas, 4:...
2. Und die 2. Frage:
Ich lade die externe Datei mit:
Open QuellDatei For Input As #1
' TXT-Inhalt in Tabelle einfügen:
Do While Not EOF(1)
Line Input #1, Inhalt ' Nr.1 ist die externe Datei.txt oder csv
ActiveSheet.Cells(Zeile, 1) = Inhalt 'Anfang = Zeile & Spalte = 1/1
Zeile = Zeile + 1 ' Zeile für Zeile auslesen und in Excel eintragen
Loop ' Inhalt ausgelesen / Schleife-ENDE.
' Hier kann sein, dass alles in A1 eingefügt wird!
Close #1Aber bei vielen Dateien Zeile für Zeile laden dauert es viel zu lange.
Gibt es die Möglichkeit ganz normal (wie mit Strg+A, Strg+C) alles gleichzeitig kopieren, schliessen
und in Excel Range A1 (wie Strg+V) einfügen?
Danke im Voraus, wenn das jemand schafft.