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
    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
    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
    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. DAS_BLAUE_F
    Thema

    (Office 2016) Makro Problem nach Wörtern filtern und Zeilen löschen

    Hallo zusammen! Ich habe ein Makro, dass ich erweitern möchte. Dabei soll in den Daten in der ersten Zeile ein Filter aktiviert werden und alle...
    Thema von: das_blaue_f, 16. März 2021, 2 Antwort(en), im Forum: Microsoft Excel Hilfe
  2. RAINER HANNWEG
    Thema

    (Office 2016) Probleme mit Makros in Access 2016

    Ausgangslage: 2 Formulare mit jeweils 1 Schaltfläche. Formular 1 ist geöffnet. Mit der Schaltfläche in Formular 1 soll per Makro Formular 2...
    Thema von: Rainer Hannweg, 16. März 2021, 2 Antwort(en), im Forum: Microsoft Access Hilfe
  3. EOM247
    Thema

    (Office Version unbekannt) Bug in der Suche Office 365 Update Juni 2020, Built 12827.20336

    Bug in der Suche Office 365 Update Juni 2020, Built 12827.20336 Wir haben gestern das neue Outlook Update bekommen und haben bei mehreren...
    Thema von: eom247, 24. Juni 2020, 0 Antwort(en), im Forum: Microsoft Outlook Hilfe
  4. LEANDER1337
    Thema

    (Office 2016) Excel - Externe Datenabfrage fehler

    Hallo liebe Community, leider habe ich das Problem, dass manche Internet Links nicht abgerufen werden. Beispiel: Daimler Aktie :...
    Thema von: Leander1337, 22. November 2018, 1 Antwort(en), im Forum: Microsoft Excel Hilfe
  5. LENGEN1971
    Thema

    (Office 2013) Druckvorschau, Fehler mit Drucker

    Hallo Forum, ich habe ein Problem beim Drucken und suche nach Hilfe. folgende Situation: Office2013/32bit-Version auf mehreren Rechnern mit...
    Thema von: Lengen1971, 19. April 2018, 1 Antwort(en), im Forum: Microsoft Outlook Hilfe
Schlagworte:
  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.
    Akzeptieren Weitere Informationen...
    Information ausblenden