Office: (Office 2016) Zu viele Leerzeichen nach Makroanwendung

Helfe beim Thema Zu viele Leerzeichen nach Makroanwendung in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hi zusammen, ich habe da ein Problem: Zu viele Leerzeichen in den Zellen (wo zuvor keine waren) nach der Anwendung eines aufgezeichneten Makros. Kann... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Solo Sunny, 16. März 2021.

  1. Solo Sunny Neuer User

    Zu viele Leerzeichen nach Makroanwendung


    Hi zusammen,
    ich habe da ein Problem:
    Zu viele Leerzeichen in den Zellen (wo zuvor keine waren) nach der Anwendung eines aufgezeichneten Makros.
    Kann jemand helfen das Problem zu lösen?
    Die Implementierung des Befehls "Ersetzen" im Makro ist nicht zielführend!
    Danke Sunny
     
    Solo Sunny, 16. März 2021
    #1
  2. steve1da Super-Moderator
    Hola,
    ich bin kein VBA'ler aber ich könnte mir vorstellen dass für die Helfer das Makro hilfreich wäre...

    Gruß,
    steve1da
     
    steve1da, 16. März 2021
    #2
    1 Person gefällt das.
  3. Solo Sunny Neuer User
    Oh, danke für den Hinweis Steve1da!
    Anbei das Makro:
    Sub Makro3()
    '
    ' Makro3 Makro
    ' Result*.txt vereinfachen für die grafische Auswertung
    '
    ' Tastenkombination: Strg+j
    '
    Columns("D:CY").Select
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    Columns("D:D").Select
    Application.CutCopyMode = False
    Selection.Copy
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Range("E:F,H:I,K:L,N:O,Q:R,T:U,W:X").Select
    Range("W1").Activate
    Application.CutCopyMode = False
    Selection.Delete Shift:=xlToLeft
    Range("L:M,O:P,R:S,U:V").Select
    Range("U1").Activate
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll ToRight:=5
    ActiveWindow.LargeScroll ToRight:=2
    ActiveWindow.SmallScroll ToRight:=-36
    ActiveWindow.TabRatio = 0.6
    ActiveWindow.SmallScroll ToRight:=-4
    Range("P:Q,S:T,V:W,Y:Z,AB:AC,AE:AF,AH:AI").Select
    Range("AH1").Activate
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll ToRight:=3
    ActiveWindow.LargeScroll ToRight:=0
    ActiveWindow.SmallScroll ToRight:=6
    Range("W:X,Z:AA,AC:AD,AF:AG,AI:AJ,AL:AM,AO:AP").Select
    Range("AO1").Activate
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.SmallScroll ToRight:=6
    Range("AD:AE,AG:AH,AJ:AK,AM:AN,AP:AQ,AS:AT,AV:AW").Select
    Range("AV1").Activate
    Selection.Delete Shift:=xlToLeft
    Columns("AK:AM").Select
    Selection.Delete Shift:=xlToLeft
    ActiveWindow.ScrollColumn = 26
    ActiveWindow.ScrollColumn = 25
    ActiveWindow.ScrollColumn = 24
    ActiveWindow.ScrollColumn = 23
    ActiveWindow.ScrollColumn = 22
    ActiveWindow.ScrollColumn = 21
    ActiveWindow.ScrollColumn = 19
    ActiveWindow.ScrollColumn = 17
    ActiveWindow.ScrollColumn = 16
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 1
    Columns("H:K").Select
    Selection.Copy
    Sheets("Werte").Select
    ActiveWindow.ScrollColumn = 15
    ActiveWindow.ScrollColumn = 14
    ActiveWindow.ScrollColumn = 13
    ActiveWindow.ScrollColumn = 12
    ActiveWindow.ScrollColumn = 11
    ActiveWindow.ScrollColumn = 10
    ActiveWindow.ScrollColumn = 9
    ActiveWindow.ScrollColumn = 8
    ActiveWindow.ScrollColumn = 7
    ActiveWindow.ScrollColumn = 6
    ActiveWindow.ScrollColumn = 5
    ActiveWindow.ScrollColumn = 4
    ActiveWindow.ScrollColumn = 3
    ActiveWindow.ScrollColumn = 2
    ActiveWindow.ScrollColumn = 1
    Columns("B:B").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("roh").Select
    Range("L:M,W:W").Select
    Range("W1").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Werte").Select
    Columns("G:G").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("roh").Select
    Columns("N:S").Select
    Sheets("roh").Select
    ActiveWindow.SmallScroll ToRight:=1
    ActiveWindow.LargeScroll ToRight:=1
    Range("N:S,AF:AF").Select
    Range("AF1").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Werte").Select
    Columns("K:K").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    ActiveWindow.SmallScroll ToRight:=7
    Sheets("roh").Select
    ActiveWindow.SmallScroll ToRight:=-6
    Columns("T:U").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Werte").Select
    Columns("S:S").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("roh").Select
    ActiveWindow.LargeScroll ToRight:=-1
    Sheets("roh").Select
    Columns("G:G").Select
    ActiveWindow.LargeScroll ToRight:=1
    ActiveWindow.SmallScroll ToRight:=-4
    Range("G:G,V:V").Select
    Range("V1").Activate
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Werte").Select
    Range("V1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    ActiveWindow.SmallScroll ToRight:=6
    Sheets("roh").Select
    ActiveWindow.SmallScroll ToRight:=-8
    Columns("X:AC").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Werte").Select
    Columns("Y:Y").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("roh").Select
    Columns("AD:AE").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Werte").Select
    Columns("AF:AF").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Application.CutCopyMode = False
    ActiveCell.FormulaR1C1 = "COF2"
    Sheets("roh").Select
    ActiveWindow.LargeScroll ToRight:=-1
    Columns("E:E").Select
    Selection.Copy
    Sheets("Werte").Select
    Columns("AH:AH").Select
    Sheets("roh").Select
    Range("E2:E11508").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Werte").Select
    Range("AH2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    Sheets("roh").Select
    Range("F2:F11508").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Werte").Select
    Range("AI2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
    ActiveWindow.SmallScroll ToRight:=3
    Sheets("Elektrolyte").Select
    End Sub
     
    Solo Sunny, 16. März 2021
    #3
  4. Beverly
    Beverly Erfahrener User

    Zu viele Leerzeichen nach Makroanwendung

    Hi,

    ich habe mal versucht, deinen Code in ein vernünfigtes Format zu bringen indem ich alles Select (was zu 99% aller Fälle unnötig ist) umgeschrieben habe, sodass er besser lesbar ist. Teste den Code erst einmal in dieser Form, ob er noch genau das macht was du möchtest:

    Code:
    Sub Makro3()
    '
    ' Makro3 Makro
    ' Result*.txt vereinfachen für die grafische Auswertung
    '
    ' Tastenkombination: Strg+j
    '
        Columns("D:CY").Replace What:=".", Replacement:=",", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
        Columns("D:D").Copy
        Columns("A:A").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Range("E:F,H:I,K:L,N:O,Q:R,T:U,W:X").Delete Shift:=xlToLeft
        Range("L:M,O:P,R:S,U:V").Delete Shift:=xlToLeft
        Range("P:Q,S:T,V:W,Y:Z,AB:AC,AE:AF,AH:AI").Delete Shift:=xlToLeft
        Range("W:X,Z:AA,AC:AD,AF:AG,AI:AJ,AL:AM,AO:AP").Delete Shift:=xlToLeft
        Range("AD:AE,AG:AH,AJ:AK,AM:AN,AP:AQ,AS:AT,AV:AW").Delete Shift:=xlToLeft
        Columns("AK:AM").Delete Shift:=xlToLeft
        Columns("H:K").Copy
        Sheets("Werte").Columns("B:B").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("roh").Range("L:M,W:W").Copy
        Sheets("Werte").Columns("G:G").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("roh").Range("N:S,AF:AF").Copy
        Sheets("Werte").Columns("K:K").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("roh").Columns("T:U").Copy
        Sheets("Werte").Columns("S:S").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("roh").Range("G:G,V:V").Copy
        Sheets("Werte").Range("V1").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("roh").Columns("X:AC").Copy
        Sheets("Werte").Columns("Y:Y").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("roh").Columns("AD:AE").Copy
        Sheets("Werte").Columns("AF:AF").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("Werte").Range("AF1").FormulaR1C1 = "COF2"
        Sheets("roh").Columns("E:E").Copy
        Sheets("Werte").Columns("AH:AH").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("roh").Range("E2:E11508").Copy
        Sheets("Werte").Range("AH2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
        Sheets("roh").Range("F2:F11508").Copy
        Sheets("Werte").Range("AI2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
            :=False, Transpose:=False
    End Sub
    
    
    Falls nicht, dann wäre es am einfachsten, wenn du mal ganz konkret mit Worten beschreiben würdest was du machen willst. Außerdem wäre es gut, wenn du eine Beispielmappe bereitstellen würdest.


    Zu viele Leerzeichen nach Makroanwendung GrußformelZu viele Leerzeichen nach Makroanwendung Beverly's Excel - Inn
     
    Beverly, 16. März 2021
    #4
Thema:

Zu viele Leerzeichen nach Makroanwendung

Die Seite wird geladen...
  1. Zu viele Leerzeichen nach Makroanwendung - Similar Threads - Leerzeichen Makroanwendung

  2. Leerzeichen entfernen

    in Microsoft Excel Hilfe
    Leerzeichen entfernen: Liebes Forum, nach einigen Fehlversuchen bin ich wieder hier und weiß nicht weiter: ich möchte in tabellen mit mehreren zeilen (bis zu 1000) die Inhalte der jeweiligen Zellen der Spalten D bis I...
  3. Hinzufügen von Hyperlinks mit Leerzeichen zu einer E-Mail-Nachricht

    in Microsoft Outlook Tutorials
    Hinzufügen von Hyperlinks mit Leerzeichen zu einer E-Mail-Nachricht: Hinzufügen von Hyperlinks mit Leerzeichen zu einer E-Mail-Nachricht Outlook für Microsoft 365 Outlook 2019 Outlook 2016 Outlook 2013 Outlook 2010...
  4. Unterstreichen von Text oder Leerzeichen

    in Microsoft Word Tutorials
    Unterstreichen von Text oder Leerzeichen: Unterstreichen von Text oder Leerzeichen Word für Microsoft 365 Word 2019 Word 2016 Word 2013 Word 2010 Word 2007 Mehr... Weniger...
  5. Festlegen eines einzelnen Leerzeichens als Standard

    in Microsoft Word Tutorials
    Festlegen eines einzelnen Leerzeichens als Standard: Festlegen eines einzelnen Leerzeichens als Standard Word für Microsoft 365 Word für Microsoft 365 für Mac Word für das Web Word 2019 Word 2019 für Mac...
  6. Datenbank mit Leerzeichen per ini verknüpfen

    in Microsoft Access Hilfe
    Datenbank mit Leerzeichen per ini verknüpfen: Liebes Forum, um für eine neue Version die Datenbankstruktur ändern zu können, muss vom User der Datenbankpfad ausgewählt werden. Dies möchte ich zukünftig über eine ini-Datei erledigen, um es...
  7. Ungewollte Leerzeichen im Text manchmal fatal beim Formelkopieren

    in Lob, Kritik und Verbesserungsvorschläge
    Ungewollte Leerzeichen im Text manchmal fatal beim Formelkopieren: In http://www.office-hilfe.com/support/showthread.php/33822 wird bspw. in einer Formel das Wort ZUFALLSMATRIX mit einem Leerzeichen drin versehen. Wenn man die Formel dann kopierend einfügt,...
  8. Text nach 1. Leerzeichen oder 1. Bindestrich abschneiden

    in Microsoft Excel Hilfe
    Text nach 1. Leerzeichen oder 1. Bindestrich abschneiden: Hallo, ich habe eine Tabellenspalte mit Vornamen, mal einzelne, mal mehrfache mit Leerzeichen getrennt, mal doppelte mit Bindestrich getrennt. Ich möchte in eine Zelle immer nur den ersten...
  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