jerry0110
Erfahrenes Mitglied
Hi,
ich habe folgendes Problem. Ich möchte in einer Exceltabelle folgende Dinge tun.
Nach einer Überschrift suchen und dann in dieser Spalte dann den Umbruch entfernen und ein "|" einfügen. Dann soll diese Spalte dann in 3 oder 4 Spalten aufgeteilt werden, ohne das die recht neben liegenden Spalten überschrieben werden.
Dann möchte ich, dass am Anfang der Tabelle 3 Spalten eingefügt werden, die auch direkt mir einer Überschrift versehen werden.
Ich habe viele Sachen jetzt seit Tagen durchsucht und ausprobiert. Das einziege was wirklich läuft ist das was ich jetzt schon habe. Aber das ist halt nur das Suchen. Rest halt nicht.
Sub Makro()
With Columns(Application.Match("X", Rows(1), 0))
.Replace Chr(10), "|"
End With
With Columns(Application.Match("Y", Rows(1), 0))
.Replace What:="Herr", Replacement:="Herrn", LookAt:=xlPart
End With
With Columns(Application.Match("Z", Rows(1), 0))
.Replace Chr(10), "; "
End With
End Sub
Bei X steht ich jetzt vor dem Problem, dies zu lösen. Bei Y und Z läuft alles so wie ich es will.
Danke schon mal
Grüße
ich habe folgendes Problem. Ich möchte in einer Exceltabelle folgende Dinge tun.
Nach einer Überschrift suchen und dann in dieser Spalte dann den Umbruch entfernen und ein "|" einfügen. Dann soll diese Spalte dann in 3 oder 4 Spalten aufgeteilt werden, ohne das die recht neben liegenden Spalten überschrieben werden.
Dann möchte ich, dass am Anfang der Tabelle 3 Spalten eingefügt werden, die auch direkt mir einer Überschrift versehen werden.
Ich habe viele Sachen jetzt seit Tagen durchsucht und ausprobiert. Das einziege was wirklich läuft ist das was ich jetzt schon habe. Aber das ist halt nur das Suchen. Rest halt nicht.
Sub Makro()
With Columns(Application.Match("X", Rows(1), 0))
.Replace Chr(10), "|"
End With
With Columns(Application.Match("Y", Rows(1), 0))
.Replace What:="Herr", Replacement:="Herrn", LookAt:=xlPart
End With
With Columns(Application.Match("Z", Rows(1), 0))
.Replace Chr(10), "; "
End With
End Sub
Bei X steht ich jetzt vor dem Problem, dies zu lösen. Bei Y und Z läuft alles so wie ich es will.
Danke schon mal
Grüße