Office: String trennen und in neue Zellen einfügen

Helfe beim Thema String trennen und in neue Zellen einfügen in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich bin neu in VBA und habe gleich mal eine Frage *Smilie Meine Aufgabenstellung ist folgende. wir haben mehrere Excel Tabellen in welchen... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von yecal, 10. November 2017.

  1. String trennen und in neue Zellen einfügen


    Hallo,

    ich bin neu in VBA und habe gleich mal eine Frage *Smilie

    Meine Aufgabenstellung ist folgende.
    wir haben mehrere Excel Tabellen in welchen viele Zellen existieren, die mehrere Zeichenfolgen haben.
    Meine Aufgabe ist es diese großen Zellen zu löschen und die Zeichenketten in diesen Zellen in kleinere Zellen zu schreiben, d.h. dass jede Zeichenkette der großen Zelle in eine kleine (also normale Excel-Zelle) geschrieben wird.
    Dies möchte ich gerne mit einem Makro lösen, da es doch sehr viel Arbeit beinhaltet.
    D.h. ich möchte ein Makro, welches die Zeichenkette der großen Zelle liest, neue leere Zellen einfügt, und die einzelnen Zeichenketten, welche durch ein chr(10) getrennt sind, einzeln in die neuen Zellen schreibt.

    Ich bin so weit gekommen, dass ich die Zeichenkette trennen und auch in neue Zellen untereinander schreiben kann, jedoch überschreibt er mir die unteren Zellen. Wenn ich neue Zellen einfüge, dann fügt er mir neue Zellen zwar ein, aber nicht die getrennten Zeichenketten. D.h. das Makro macht entweder das eine oder das andere*Smilie

    Könnt ihr mit bitte helfen. Hier der Quellcode:

    Sub trenne_Zellen()
    'große Zelle trennen, Inhalt in neue, kleine Zellen schreiben

    'Variablen deklarieren
    Dim lngZ As Long
    Dim strTeilstring() As String
    Dim strTrennzeichen As String

    'Vorgaben definieren
    Set wsakt = ThisWorkbook.Sheets("Redaktion") 'sollte aktives Blatt sein / active.sheet
    lngZ = 17 'Startzeile; muss in jedem Blatt festgelegt werden // markierte Zelle bearbeiten z.B. range.selection
    strTrennzeichen = Chr(10) 'Trennzeichen festlegen; müsste bei uns ein Zeilenumbruch sein chr(10)
    'Durchlaufen aller Datenzeilen // soll nur die aktuelle markierte Zelle bearbeiten
    For x = 17 To 18

    'Teilstring am Zeilenumbruch auslesen
    strTeilstring = Split(Trim(wsakt.Cells(lngZ, 2).Value), strTrennzeichen)


    'Durchlaufen des gesamten Arrays einer Zelle vom ersten bis zum letzten Wert
    For a = LBound(strTeilstring) To UBound(strTeilstring)

    'Array-Elemente nacheinander eintragen
    wsakt.Cells(lngZ, 2).Value = Trim(strTeilstring(a)) ' schreibt Werte in die vorgegebene Zelle
    ' Ziel: Original Zelle löschen und jeden String in eine neue Zelle schreiben

    'Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    'ActiveSheet.Cells(x, 1).EntireRow.Insert
    'ActiveSheet.Paste
    'Zeilenzähler erhöhen
    lngZ = lngZ + 1
    'neue Zeile einfügen
    'ActiveSheet.Cells(17, 1).EntireRow.Insert 'fügt neue leere Zelle ein; so erst einmal richtig aber: die neue Zelle muss befüllt werden.

    Next a

    Next x

    End Sub

    Vielen Dank schon mal*Smilie

    :)
     
  2. Hola,

    verlinkst du bitte deine Fragen in den verschiedenen Foren untereinander?
    Danke.

    Gruß,
    steve1da
     
    steve1da, 12. November 2017
    #2
  3. String trennen und in neue Zellen einfügen

    Hola,

    genau das meine ich.

    Gruß,
    steve1da
     
    steve1da, 12. November 2017
    #4
  4. Hajo_Zi
    Hajo_Zi Erfahrener User
    String trennen und in neue Zellen einfügen logo_hajo3.gif
     
  5. Ah so ok sorry, daran habe ich nicht gedacht.
     
Thema:

String trennen und in neue Zellen einfügen

Die Seite wird geladen...
  1. String trennen und in neue Zellen einfügen - Similar Threads - String trennen Zellen

  2. Suchen eins Strings

    in Microsoft Excel Hilfe
    Suchen eins Strings: Hallo, am Ende einer jeden Zeile in Excel2019 möchte ich gern eine Formel eingeben, die nach der Zelle in der jeweiligen Zeile sucht, die einen bestimmten String enthält. Dabei soll die Suche von...
  3. String parsen und Teildaten aus anderer Tabelle importieren und addieren

    in Microsoft Excel Hilfe
    String parsen und Teildaten aus anderer Tabelle importieren und addieren: Ich hoffe, ich kann meine Frage überhaupt verständlich formulieren... Gegeben sei in Spalte A ein String ähnlich dem folgenden: LEIB-LDPL-EDDF-EDFH-LEIB Mit der Luftfahrt vertraute User werden...
  4. Wörter trennen wenn Großbuchstabe in String

    in Microsoft Excel Hilfe
    Wörter trennen wenn Großbuchstabe in String: Hallo zusammen, ich möchte Strings, die in einer Zelle stehen, jeweils vor dem nächsten Großbuchstaben teilen: BauermannHans, (z.B. in Zelle A1) soll z.B. Bauermann und Hans ergeben und in...
  5. Alle Spalten einer Abfrage nach einem String filtern

    in Microsoft Access Hilfe
    Alle Spalten einer Abfrage nach einem String filtern: Hallo, Ich möchte in der Abfrage einen Filter mit LIKE '*Männlich*' setzen. Auf die GESAMTE Abfrage, nicht nur auf eine Spalte! Meine aktuell Lösung ist manuell die ganzen Spalten separat...
  6. Pfad (string) kürzen

    in Microsoft Access Hilfe
    Pfad (string) kürzen: Hallo, ich möchte einen Pfad kürzen. habe zB: Code: "c:/Verzeichnis1/Verzeichnis2/Test1/Test2/backend.accdb" Egal wie lange der Pfad ist, es soll immer der Dateiname + das letzte Verzeichnis...
  7. Sonderzeichen aus String filtern

    in Microsoft Access Hilfe
    Sonderzeichen aus String filtern: Hallo, hat vielleicht jemand eine Idee wie ich mit einer Abfrage eine Spalte nach Buchstaben und Zahlen filtern kann ?? Bis her mache ich das mit der Replace Funktion. Aber da muss ich jedes...
  8. Zahlenweiser Vergleich auf String Spalte

    in Microsoft Access Hilfe
    Zahlenweiser Vergleich auf String Spalte: Guten Tag, ich habe folgendes Problem: ich möchte in einem Formular eine Software Version eintragen und dann per Button klick eine Tabelle durchsuchen die z.B >= der eingetragenen Software...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden