Re: Inhalt von Zellen in Spalten exportieren
26.06.2002 13:06:55
Kerstin
Hallo Joachim!Habe jetzt eine Lösung gefunden, obwohl mit dem Löschen der Sonderzeichen es noch nicht so optimal ist, da ich jedes einzel aufzähle, aber vielleicht weiß da ja jemand noch eine Lösung:
Sub Sonderzeichen2()
Rows("1:1").Replace What:="(", Replacement:="" ' ersetzt Sonderzeichen in der 1. Zeile
Rows("1:1").Replace What:=")", Replacement:=""
Rows("1:1").Replace What:=" ", Replacement:=""
Rows("1:1").Replace What:="\", Replacement:=""
Rows("1:1").Replace What:="{", Replacement:=""
Rows("1:1").Replace What:="}", Replacement:=""
Rows("1:1").Replace What:="[", Replacement:=""
Rows("1:1").Replace What:="]", Replacement:=""
Rows("1:1").Replace What:="-", Replacement:=""
Rows("1:1").Replace What:="_", Replacement:=""
Rows("1:1").Replace What:="/", Replacement:=""
Rows("1:1").Select
If MsgBox("Sollen die Daten wirklich in die Spalte exportiert werden?", vbQuestion + vbYesNo) = vbYes Then
Selection.Copy
Range("A2").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True 'Fügt Daten aus der Zwischenablage in den angegebenen Bereich ein
Rows("1:1").Select
Application.CutCopyMode = False
Selection.Delete Shift:=xlUp 'Löscht die erste Zeile
Else
Exit Sub
End If
End Sub