Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1108to1112
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
1108to1112
1108to1112
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabs ersetzen

Tabs ersetzen
joko0803
Hallo an alle,
ich habe hier folgendes Problem zu lösen:
SAP liefert mir einen Download mit vielen Tabstopps in ein Textfile.
Das muss ich nun in Excel einlesen, wobei ich nur das erste Tabstopp-Zeichen verwenden darf.
Nun habe ich mir vorgestellt, dass ich die Datei erst mal ohne Konvertierung einlese.
Danach lösche ich alle Tabstopp-Zeichen mit Ausnahme des jeweils ersten heraus.
Dazu wäre ich dankbar, wenn ihr mir beim Makro helfen könntet. Da ist sicherlich super einfach, aber ich blicke das einfach nicht.
Oder gibt es gar eine noch einfachere Lösung für mein Problem?
Danke für eure Hilfe
Joko

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
noch fragen...
08.10.2009 16:19:52
Tino
Hallo,
wie liegen Dir die Daten vor, als kompletter String oder Zeilenweise in Zellen?
Gibt es ein Zeichen das in diesem Text nirgendwo vorkommt? z.Bsp. &gt oder &lt
Gruß Tino
AW: noch fragen... Antwort
08.10.2009 16:28:26
joko0803
Hallo Tino,
erst mal Danke dass Du dir meinen Eintrag angesehen hast.
Die Datei liegt erst mal als Text-Datei vor, die ich wie beschrieben in Excel einlese.
Wenn an der ersten Stelle ein Tab-Zeichen steht soll das erhalten bleiben.
Alle anderen sollen gelöscht werden.
Die Einlese-Datei in Excel habe ich verkürzt angehängt.
https://www.herber.de/bbs/user/64970.xls
Zeichen die nie vorkommen könnten sein: "xxxx"
Danke für Deine Hilfe
John
Anzeige
vielleicht geht es so.
08.10.2009 18:41:57
Tino
Hallo,
ich hoffe ich habe dich richtig verstanden.
Den richtigen vbTab kann man in Excel nicht darstellen,
also habe ich diese zuerst mit Space ersetzt (CHR(32)) und danach lösche ich alle mehrfach vorkommente Space- Zeichen.
Private Function Replace_Space(strString$, strPattern$)
Dim Regex As Object
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
    .Pattern = strPattern & "{2,1000}"
    .Global = True
     Replace_Space = .Replace(strString, strPattern)
     Do While Left$(Replace_Space, 1) = strPattern
      Replace_Space = Right$(Replace_Space, Len(Replace_Space) - 1)
     Loop
End With
Set Regex = Nothing
End Function

Sub ErsetzeTabs()
Dim MeAr() As Variant
Dim A As Long
Dim strPattern As String

strPattern = Chr(32)

MeAr = Range("A1", Cells(Rows.Count, 1).End(xlUp))

For A = 1 To Ubound(MeAr)
 If InStr(MeAr(A, 1), strPattern) > 0 Then
      MeAr(A, 1) = Replace(MeAr(A, 1), vbTab, strPattern)
      MeAr(A, 1) = Replace_Space(CStr(MeAr(A, 1)), strPattern)
 End If
Next A

Range("A1").Resize(Ubound(MeAr)) = MeAr
End Sub
Gruß Tino
Anzeige
nicht so ganz aber danke für den Lösungsansatz
09.10.2009 09:31:50
joko0803
Hallo Tino,
danke für die viele Mühe die Du dir gemacht hast.
Das Makro als solches funktioniert super.
Leider: Die vielen Leerzeichen, die enthalten sind, brauche ich für eine spätere Einlese.
Die Struktur der Zahlenkolonnen muss erhalten bleiben.
Dein Ansatz ist toll und ich werde versuchen an statt der Umwandlung in Leerzeichen,
die Umwandlung in "xxx" zu machen, und im Anschluss alle "xxx" zu löschen.
Gruß und Danke
John
vielleicht jetzt...
09.10.2009 15:44:17
Tino
Hallo,
ok. wenn es wirklich nur um Tabs geht, versuchen wir es so.
Ich ersetze zuerst für jedes Tab durch ° (kann man besser erkennen),
in der Funktion ersetze ich alle ° die mehrfach nacheinander vorkommen durch ein Tab.
Private Function Replace_Space(strString$, strPattern$)
Dim Regex As Object
Set Regex = CreateObject("Vbscript.Regexp")
With Regex
    .Pattern = "°{2,1000}"
    .Global = True
     Replace_Space = .Replace(strString, strPattern)
     Do While Left$(Replace_Space, 1) = strPattern
      Replace_Space = Right$(Replace_Space, Len(Replace_Space) - 1)
     Loop
End With
Set Regex = Nothing
End Function

Sub ErsetzeTabs()
Dim MeAr() As Variant
Dim A As Long
Dim strPattern As String

strPattern = vbTab

MeAr = Range("A1", Cells(Rows.Count, 1).End(xlUp))

For A = 1 To Ubound(MeAr)
 If InStr(MeAr(A, 1), strPattern) > 0 Then
      MeAr(A, 1) = Replace(MeAr(A, 1), strPattern, "°")
      MeAr(A, 1) = Replace_Space(CStr(MeAr(A, 1)), strPattern)
 End If
Next A

Range("A1").Resize(Ubound(MeAr)) = MeAr
End Sub
Gruß Tino
Anzeige

207 Forumthreads zu ähnlichen Themen

Suchen und Ersetzen schnelleres Makro
Susi

Hallo liebe Excel-Freunde,
ich habe folgendes kleines Makro.
Sub Suchen_Ersetzen() out = "15200" 'zu ersetzender String in = "43900" 'einzufügender String For Each cell In Selection If cell.HasFormula = True Then cell.Formula = Application.WorksheetFunction.Substitute(cell.Formula, ou...
20.10.2008 12:19:00
Thread-ID: 1017624
17 Beiträge
Anzeige
Suchen und >Ersetzen mit VBA macht komische Sachen
SteffenS

Hallo Zusammen,
mit dem Code:
WSZ.Cells.Replace What:="""", Replacement:="", LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
ersetze ich " in allen Zellen.
Mache ich dies manuell so wird aus:
1348,52102" --> richtig 1348,...
11.01.2009 18:08:38
Thread-ID: 1038681
3 Beiträge
Suchen und ersetzen
zink

Hallo,
in einer Spalte stehen untereinander mehrere Hundert Namenseinträge nach dem Muster:
>
Name und Vorname also in einer Zelle, getrennt durch ein Komma.
Ich möchte jetzt, dass nur der 1. Buchstabe des Vornamens mit einem Abkürzungspunkt in der Zelle steht, also
><...
26.01.2009 08:32:40
Thread-ID: 1043740
6 Beiträge
Anzeige
Durchsuchen und in Zelle daneben ersetzen
Holger

Hallo,
irgendwie komme ich nicht weiter. Ich möchte mit einem Makro die Spalte "A1:A5000" nach der
Zeichenfolge "SV" durchsuchen und überall wo "SV" gefunden wird in der Zelle rechts daneben
(also in der gleiche Zeile in Spalte "B") das Datum "01.01.2008" eintragen.
Ein Ansat...
26.02.2009 12:25:07
Thread-ID: 1054317
4 Beiträge
Suchen und ersetzen ohne Neuanfang bei Zeile 1
Stefan

Hallo liebes Froum,
ich habe eine Spalte mit Werten, ca. 200 Zeilen. Die Werte bestehen aus 3ziffrigen Zahlen (010,011,100,271...). Diese Zahlen sollen durch andere 3ziffrige Zahlen ersetzt werden (z.B. 010 durch 001, 011 durch 004, 100 durch 200, 271 durch 355,...). Nun habe ich das Proble...
03.03.2009 11:26:38
Thread-ID: 1055879
19 Beiträge
Suchen und ersetzen per Makro...?
Horst

Hey !
Ich möchte Tabellenblätter kopieren und während oder nach dem kopieren des Tabellenblattes im kopierten Tabellenblatt eine Volltextsuche mit Textersetzung durchführen.
Kann mir jemand dazu einen Tipp geben?
Und gibt es zur Suche/Ersetzen eine bessere Variant als die aus der Ma...
02.04.2009 11:43:43
Thread-ID: 1066267
3 Beiträge
suchen und ersetzen
Detlef

Hallo alle zusammen,
ich habe mehrere Arbeitsblätter in denen ich immer den Inhalt einer Spalte überprüfe. Dabei wird der jeweilige Inhalt der Zelle mit dem Inhalt eines KorrekturArbeitsblattes verglichen. Wird der Zellinhalt gefunden, wird er ersetzt.
Im Moment mache ich das mit folgen...
04.06.2009 14:35:31
Thread-ID: 1079155
5 Beiträge
Marko zum Suchen und Ersetzen von Listenbegriffen
Listenbegriffen

Hallo Forum!
Ich verzweifele gerade (seit 2 Tagen) an einem Makro, das irgendwie nicht laufen will. Dabei klang es eigentlich relativ einfach.
Also, ich habe diverse Tabellenblätter, von denen das eine z.B. „BA2“ und ein anderes „Datenbank“ heißt. In „BA2“ stehen in Spalte A ab Zeile 5...
08.09.2009 11:56:07
Thread-ID: 1101193
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
2
2
5
1
3
18
2
4
6
4
5
2
5
5
3
7
6
4
3
1
5
17
2
4