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

  3. 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"...

  4. 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...

  5. 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...

  6. 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...

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

  8. 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.
  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