Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
24.04.2024 11:06:38
WENN; zwischen zwei Daten
24.04.2024 09:53:18
Wartungsliste automatisch aktualisieren
24.04.2024 09:36:02
Wenn Wert x in Zelle a, dann Wert y in Zelle b
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
992to996
992to996
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen nach rechts verschieben

Zeilen nach rechts verschieben
20.07.2008 00:03:00
erwin.geer
Guten Abend Zusammen,
ich habe eine sortierte Liste mit Aktenzeichen in Spalte A, wobei ein Aktenzeichen entweder einmal oder mehrfach (in den nächsten Zeilen) vorkommen kann; desweiteren sind zu jedem Aktenzeichen mehrere Spalten belegt.
Ich möchte nun mit einem Makro versuchen, alle gleichen Aktenzeichen an das erste Aktenzeichen nach rechts anzuhängen.
Beispiel vorher
  • Spalte A B C D E

  • 123456 Müller Max 05.05.1955

  • 987654 Maier Otto 06.06.1966

  • 987654 verh. 4 Kind. Auto Hundehalter

  • 555555 Huber Manfred 07.07.1977

  • 555555 ledig kein Ki. S-Bahn Katzenhalter

  • 555555 fröhlich freundlich

    • NACHHER sollte es so aussehen
    Spalte A B C D E F G H I J K
  • 123456 Müller Max 05.05.1955

  • 987654 Maier Otto 06.06.1966 987654 verh. 4 Kind. Auto Hundehalter

  • 555555 Huber Manfred 07.07.1977 555555 ledig kein Ki. S-Bahn Katzenhalter fröhlich freundlich

    • Ich weis vorher nicht, wie oft ein Aktenzeichen vorkommt bzw. wie weit die Spalte(n) schon belegt sind.
    Wer kann mir bitte helfen?
    Erwin

    7
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Zeilen nach rechts verschieben
    20.07.2008 00:10:00
    Daniel
    Hi
    lad mal ne Beispieldatei hoch, am besten eine, die in einem Blatt den akuellen Zustand und in einem anderen Blatt den Zielszustand enthält.
    So kann man am leichtesten ein Makro basteln.
    Gruß, Daniel

    AW: Zeilen nach rechts verschieben
    20.07.2008 00:29:00
    erwin.geer
    Hallo Daniel,
    hier die Datei: https://www.herber.de/bbs/user/53982.xls
    eigentlich auch nichts anderes, als ich schon versucht habe, darzustellen.
    Die "richtige" Datei ist in der Arbeit :(.
    Mit Worten beschrieben, müsste man nachsehen, ob das Aktenzeichen nur einmal vorkommt, dann zum nächsten Aktenzeichen in Spalte A, wenn es nochmals vorkommt, dann müssten die in der Zeile gefüllten Zellen zur vorherigen Zeile rechts nach der letzten Zelle angehängt werden; dann nachfolgende Zeile gelöscht werden; anschließend erneute Prüfung des Aktenzeichens...
    Klingt kompliziert, ich weis, aber vielleicht gibt es eine Lösung.
    Erwin

    Anzeige
    AW: Zeilen nach rechts verschieben
    20.07.2008 00:54:00
    Daniel
    Hi
    du könntest dieses Makro verwenden:
    
Sub Zusammenfassen()
Dim i As Long
Cells(1, 1).CurrentRegion.Sort key1:=Cells(2, 1), order1:=xlAscending, header:=xlYes
For i = Cells(Rows.Count, 1).End(xlUp).Row To 3 Step -1
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
Range(Cells(i, 2), Cells(i, Columns.Count).End(xlToLeft)).Copy _
Destination:=Cells(i - 1, Columns.Count).End(xlToLeft).Offset(0, 1)
Rows(i).Clear
End If
Next
Range(Cells(1, 1), Cells(Rows.Count, 1).End(xlUp)).EntireRow.Sort key1:=Cells(2, 1), order1:= _
xlAscending, header:=xlYes
End Sub


    das Makro ist geschrieben für folgende Voraussetzungen:
    - die Tabelle beginnt in Zeile 1
    - Zeile 1 ist Überschrift, ab Zeile 2 beginnen die Daten.
    - Die Tabelle enthält keine Leerzeilen oder Leerspalten
    - die Tabelle darf nach Spalte A - Aktenzeichen sortiert werden.
    Gruß, Daniel

    Anzeige
    AW: Zeilen nach rechts verschieben
    20.07.2008 01:04:00
    erwin.geer
    Hallo Daniel,
    super - des funzt ja ordentlich und auch schnell - danke
    wenn es jetzt auch noch mit der Datei in der Arbeit hinhaut, dann spare ich mir jede Menge Zeit
    Grüße Erwin

    AW: Zeilen nach rechts verschieben
    20.07.2008 07:11:00
    Erich
    Hi Erwin,
    vielleicht geht's ja auch ohne Sortierung. Wenn die zusammenzufassenden Az in Spalte A direkt untereinander stehen
    (wie in deinem Beispiel), geht das wohl schneller: 
    
Sub Zusammenfassen2()
Dim zz As Long, rngL As Range
For zz = Cells(Rows.Count, 1).End(xlUp).Row To 6 Step -1
If Cells(zz, 1) = Cells(zz - 1, 1) Then
Range(Cells(zz, 1), Cells(zz, Columns.Count).End(xlToLeft)).Copy _
Cells(zz - 1, Columns.Count).End(xlToLeft).Offset(, 1)
If rngL Is Nothing Then
Set rngL = Cells(zz, 1)
Else
Set rngL = Union(rngL, Cells(zz, 1))
End If
End If
Next
If Not rngL Is Nothing Then rngL.EntireRow.Delete
End Sub

    In Daniels Vorschlag wird das Az selbst nicht mitkopiert, in deiner Beispielmappe wohl.
    Wenn das Az nicht mitkopiert werden soll, musst du im obigen Code
    Range(Cells(zz, 2), ...
    statt
    Range(Cells(zz, 1), ...
    schreiben.
    Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

    Anzeige
    AW: Zeilen nach rechts verschieben
    20.07.2008 20:25:16
    Daniel
    Hi
    auch bei meinem Code dient das erste Sortieren nur dazu sicherzustellen, daß die gleichen AZ untereinander stehen. Ist dies bereits anderweitig sicher gestellt, dann kann auf das erste Sortieren verzichtet werden.
    das 2. Sortieren verwende ich, um die leeren Zeilen ans Ende zu befördern, weil es einfach wesentlich schneller ist, Daten zu Sortieren als Zeilen zu löschen.
    Gruß, Daniel

    DANKE - Zeilen nach rechts verschieben
    20.07.2008 22:24:00
    erwin.geer
    Hallo Ihr Beiden,
    heute Nacht ist mir gar nicht aufgefallen, dass bei Daniel's Code das Aktenzeichen nicht mitkopiert wurde; wäre aber auch nicht falsch, wenn es draussen bleiben würde, da ich es nur zur Sicherheit / Überprüfung nochmals wollte.
    Dein Hinweis Erich, mit "Range(Cells(zz, 2), ... statt Range(Cells(zz, 1), ..." ist super, da ich das dann individuell regeln kann.
    Im laufe der kommenden Woche habe ich bestimmt einige HOST Dateien, wo ich das alles ausprobieren kann.
    Nochmals herzlichen Dank für die Hilfe
    Erwin
    Anzeige

    304 Forumthreads zu ähnlichen Themen

    formatierte Zelle automatisch nach unten schieben
    oblivion

    Hallo, ich habe eine Frage zu Zellen.
    Ich habe sagen wir in L2-L14 Namen stehen. Die Zellen habe ich mit einem Rahmen formatiert. Jetzt kann es aber passieren, dass ich in L15 die Liste weiterführen muss, da ein neuer Name dazugekommen ist. Gibt es eine einfache Möglichkeit, das, wenn ich i...
    20.08.2008 17:36:09
    Thread-ID: 1003263
    5 Beiträge
    Anzeige
    makro Zeile nach unten verschieben
    donald

    Hallo,
    ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
    02.12.2008 16:08:24
    Thread-ID: 1029545
    5 Beiträge
    Zeile automatisch nach unten verschieben
    donald

    Hallo,
    ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
    03.12.2008 08:43:00
    Thread-ID: 1029673
    5 Beiträge
    Anzeige
    Leerzeile zählen-nach unten
    robert

    hi,
    kann man-siehe datei- leere zeilen nach unten zählen?
    z.B. A6 bis A10 ist leer-sind 5 leerzeilen
    in B5 soll 5 stehen
    gruß
    robert
    https://www.herber.de/bbs/user/60378.xls
    17.03.2009 09:26:21
    Thread-ID: 1061001
    3 Beiträge
    Werte in einer Zeile nach links verschieben
    Sebastian

    hallo forumsbesucher,
    da sich meine excel kenntnisse leider sehr in grenzen halten, hoffe ich hier auf eure hilfe.
    ich habe in einer excel mappe bestimmte zahlen in viele zellen geschrieben, die sich alle in einer zeile befinden. nun muss ich die ganzen zahlen in den jeweiligen zellen u...
    02.06.2009 11:57:03
    Thread-ID: 1078584
    3 Beiträge
    Zeilen nach oben verschieben
    Josef_T

    Hallo zusammen,
    habe wieder ein Problem, dass ich nicht gelöst bekomme und deshalb Hilfe von Experten
    benötige.
    Mein Prob, habe ich hier näher beschrieben: https://www.herber.de/bbs/user/63496.xls
    Danke
    Gruß Josef
    28.07.2009 19:13:39
    Thread-ID: 1092043
    9 Beiträge
    Zellen nach Kriterium automatisch kopieren
    Matthias

    Hallo zusammen,
    ich würde gerne folgende Aufgabe über ein Makro lösen
    Ein Tabellenblatt enthält eine Nummer in C3, dieser Nummer sind in weiteren Spalten (A3, B3, D3,...) Werte zugeordnet.
    Wenn nun beispielsweise in C100 die gleiche Nummer wie in C3 eingegeben wird, sollen die Werte...
    07.08.2009 12:59:15
    Thread-ID: 1094257
    5 Beiträge
    Markierte Bereich eine Zeile nach unten verschieb.
    Nibio

    Hallo Profis,
    jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
    Gruß
    Nibio
    20.08.2009 18:13:37
    Thread-ID: 1097497
    19 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige
    Archiv - Verwandte Themen
    Forumthread
    Beiträge
    4
    2
    4
    4
    2
    2
    2
    8
    4
    18
    1
    4
    2
    1
    2
    2
    5
    8
    2
    1
    3
    4
    3
    18
    2