Thema Datum  Von Nutzer Rating
Antwort
31.05.2017 01:09:18 Manu
NotSolved
31.05.2017 10:48:10 Gast7004
*****
Solved
31.05.2017 17:26:49 Manu
NotSolved
Blau Benennen von konstanten Elementen aus Rohdaten
31.05.2017 17:51:14 Manu
Solved
31.05.2017 11:22:53 Gast45968
NotSolved

Ansicht des Beitrags:
Von:
Manu
Datum:
31.05.2017 17:51:14
Views:
594
Rating: Antwort:
 Nein
Thema:
Benennen von konstanten Elementen aus Rohdaten

Habe noch etwas rumgespielt und das Trennen automatisiert

wie folgt sieht nun mein Code aus:

sub Exchange_Beispiel()

Dim cell As Range

Columns("B:C").Select
    Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
 
For Each cell In Worksheets("Sheet1").UsedRange
  cell.Value = Replace(cell.Value, "Beispiel", ";Name0;")
  cell.Value = Replace(cell.Value, "Bei1spiel", ";Name1;")
  cell.Value = Replace(cell.Value, "Bei2spiel", ";Name2;")
  cell.Value = Replace(cell.Value, "Bei3spiel", ";Name3;")
  cell.Value = Replace(cell.Value, "Bei4spiel", ";Name4;")
Next cell

Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=True, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1), Array(3, 1))
    Columns("A:A").Select
    Selection.ClearContents
    Columns("C:C").Select
    Selection.ClearContents
    Columns("B:B").Select
    Selection.Cut
    Columns("A:A").Select
    ActiveSheet.Paste
    
    Columns("B:C").Select
    Selection.Delete Shift:=xlToLeft

End Sub

(sry für den hässlichen Code - Makro-recorder und so...)

danke euch


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:

 
 

  • 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
31.05.2017 01:09:18 Manu
NotSolved
31.05.2017 10:48:10 Gast7004
*****
Solved
31.05.2017 17:26:49 Manu
NotSolved
Blau Benennen von konstanten Elementen aus Rohdaten
31.05.2017 17:51:14 Manu
Solved
31.05.2017 11:22:53 Gast45968
NotSolved