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. Leerzeichen entfernen

    in Microsoft Excel Hilfe
    Leerzeichen entfernen: Halo, ich habe folgendes Problem, ich möchte Leerzeichen am Ende entfernen integriert in eine Fornel, leider bin ich mit Glätten und Wechseln nicht wirklich weit gekommen. in der Tabelle ist es...

  3. Absätze und Leerzeichen am Ende löschen

    in Microsoft Word Hilfe
    Absätze und Leerzeichen am Ende löschen: Hallo! Folgendes Problem: In einem Dokument, dass auf einer Vorlage basiert, gibt es teilweise mehrere (1 bis 20) Abschnitte (eingefügt über Layout - Umbrüche - Abschnittsumbrüche). Mit 1...

  4. Leerzeichen vor linksbündigem Text in Zellen

    in Microsoft Excel Hilfe
    Leerzeichen vor linksbündigem Text in Zellen: Wie füge ich in einem linksbündigen Text ein Leerzeichen ein, um einen Abstand zur Gitternetzlinie zu erhalten?

  5. Bestimmte Daten in neues Tabellenblatt übernehmen, ohne Leerzeichen

    in Microsoft Excel Hilfe
    Bestimmte Daten in neues Tabellenblatt übernehmen, ohne Leerzeichen: Hallo zusammen, ich habe eine Tabelle mit diversen Daten. Angefügt habe ich eine Beispieldatei. Ich möchte jetzt im zweiten Tabellenblatt alle Zellen mit den Daten von zB dem Mitarbeiter Müller...

  6. Leerzeichen werden nicht erkannt

    in Microsoft Outlook Hilfe
    Leerzeichen werden nicht erkannt: Hallo an Alle, ich bin mir nicht sicher, ob ich hier überhaupt richtig bin, weil ich nicht weiß, ob das Problem an Typo3 oder Outlook liegt. Im Html werden Leerzeichen im mailto-Body mit "%20"...

  7. Leerzeichen abschließend im String

    in Microsoft Access Hilfe
    Leerzeichen abschließend im String: Hallo, ich habe hier eine DB, in der sich viele Leute textlich verwirklichen können. Teilweise mit unangenehmen Flüchtigkeitsfehlern (Montuer statt Monteur z.B.). Nun möchte ich, dass die...

  8. 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...
  1. CLOTHIANIDIN
    Thema

    Leerzeichen vor linksbündigem Text in Zellen

    Wie füge ich in einem linksbündigen Text ein Leerzeichen ein, um einen Abstand zur Gitternetzlinie zu erhalten?
    Thema von: Clothianidin, 22. April 2024, 5 Antwort(en), im Forum: Microsoft Excel Hilfe
  2. 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
  3. 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
  4. 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
  5. 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
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