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 Office Guru
    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. Zahlenfolge mit Leerzeichen in zwei Spalten

    in Microsoft Excel Hilfe
    Zahlenfolge mit Leerzeichen in zwei Spalten: Hallo, ich habe mal eine Frage an die Excelspezialisten. Und zwar ist es irgendwie möglich einen Zahlenblock mit Leerzeichen automatisch in zwei Spalten aufzuteilen Beispiel: Ich habe einen...

  3. Spalteninhalte vergleichen Werte durch Leerzeichen getrennt

    in Microsoft Excel Hilfe
    Spalteninhalte vergleichen Werte durch Leerzeichen getrennt: Hallo, ich stehe vor der Aufgabe zwei Spalteninhalte zu vergleichen in welchen mehrere Werte stehen welche wiederum durch Leerzeichen getrennt sind. Die Reihenfolge der Werte kann dabei jedoch...

  4. Text ab dem letzten Leerzeichen nach 40 Zeichen trennen und den restlichen Text in die nächste Spalt

    in Microsoft Excel Hilfe
    Text ab dem letzten Leerzeichen nach 40 Zeichen trennen und den restlichen Text in die nächste Spalt: Hallo zusammen, folgendes Problem habe ich. Ich möchte gerne einen Text ab dem letzten Leerzeichen nach 40 Zeichen trennen und den restlichen Text dann automatisch in die nächste Spalte...

  5. Text zusammenhängend, ohne Leerzeichen

    in Microsoft Word Hilfe
    Text zusammenhängend, ohne Leerzeichen: Word Text als PDF erhalten. Beim Kopieren und Einfügen wird der Text zusammengeschoben. Alles zusammengeschrieben ohne Abstand. Danke für einen Tipp.

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

    (Office 365) Graphik Fehler

    Hallo in meinem Excel Terminplan ist ein großer Graphikfehler und ich komme nicht dahinter welchen Ursprung dieser hat. Kennt sich jemand zufällig...
    Thema von: Jhiynn, 14. November 2022, 5 Antwort(en), im Forum: Microsoft Excel Hilfe
  2. SCHISCHER
    Thema

    (Office 2019) Hilfe benötigt bei Fehler in Makro

    Guten Tag erstmal. Direkt vorweg, Excel ist absolutes Neuland für mich. Habe jetzt nur versucht mich rein zu finden um einen Fehler zu finden, da...
    Thema von: Schischer, 27. September 2022, 4 Antwort(en), im Forum: Microsoft Excel Hilfe
  3. MARFLORES
    Thema

    (Office 365) Makros nach wenn dann prüfen und durchführen

    Ich arbeite zurzeit an einer Übersichtstabelle, aus der ich Informationen aus verschiedene Excelformulare entnehme. Da aber es ziemlich...
    Thema von: marflores, 31. August 2022, 9 Antwort(en), im Forum: Microsoft Excel Hilfe
  4. PSCHMIDT
    Thema

    (Office 365) Dateifehler beim Speichern

    Hallo zusammen, aktuell habe ich eine Datei, die ich zwar bearbeiten, aber nicht mehr speichern kann. Jedes Mal, wenn ich sie speichern möchte,...
    Thema von: pschmidt, 29. März 2022, 1 Antwort(en), im Forum: Microsoft Word Hilfe
  5. AABCCDDEEE
    Thema

    Eintragung in mehrere Tabellen

    Hallo an alle. Ich habe ein kleines Problem. Ich habe schon ein Makro erstellt für eine Eingabemaske die per Knopfdruck erscheint. Diese hab ich...
    Thema von: AAbccddeee, 12. Januar 2022, 3 Antwort(en), im Forum: Microsoft Excel 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