Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
748to752
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
748to752
748to752
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Zeilen verschieben

Zeilen verschieben
03.04.2006 14:24:55
thomas
Hallo alle zusammen,
bin leider weder im Archiv noch auf meiner Herber CD fündig geworden und hoffe Ihr könnt mir helfen.
Wir sind ein Verein der eine sehr große Veranstaltung plant. Aus diesem Grunde erhalte ich in Tabellenblatt Gesamt alle wichtigen Informationen der Teilnehmer. Nun müssen aber diese Daten in weitere Tabellenblätter nach Geburtsdatum verschoben werden. Immer an die letzte Zeile des jeweiligen Blattes anhängen.
Aus Blatt Gesamt in Blatt &gt=1995 alle die die 1995 und später geboren sind
Aus Blatt Gesamt in Blatt 1994 - 1991 alle die von 1991 bis 1994 geboren sind
Aus Blatt Gesamt in Blatt 1990 - 1987 alle die von 1987 bis 1990 geboren sind
Aus Blatt Gesamt in Blatt &gt=1986 alle die die 1986 und früher geboren sind
Zusätzlich haben einige Teilnehmer in Spalte E den Vermerk doppelt. Diese Teilnemer dürfen nur in das Blatt doppelt verschoben werden ohne Berücksichtigung der Geburtsjahrgänge.
Ich habe mal eine Bsp-Dataei hochgeladen.
https://www.herber.de/bbs/user/32567.xls
Würde mich super freuen wenn Ihr mir helfen könnt, denn mit dem Rekorder funktioniert das ganze leider nicht.
Gruß
Tommy

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen verschieben
03.04.2006 14:42:40
IngGi
Hallo Tommy,
das geht zum Beispiel mit folgendem Makro:

Sub Zeilen_kopieren()
Dim rngQuell As Range
Dim rngZiel As Range
For Each rngQuell In Sheets("Gesamt").Range("A2:A" & Sheets("Gesamt").Range("A65536").End(xlUp).Row)
If rng.Offset(0, 4) = "doppelt" Then
Set rngZiel = Sheets("doppelt").Range("A65536").End(xlUp).Offset(1, 0)
ElseIf rng.Offset(0, 2) <= 1986 Then
Set rngZiel = Sheets("<= 1986").Range("A65536").End(xlUp).Offset(1, 0)
ElseIf rng.Offset(0, 2) < 1991 And rng.Offset(0, 2) > 1986 Then
Set rngZiel = Sheets("1990 - 1987").Range("A65536").End(xlUp).Offset(1, 0)
ElseIf rng.Offset(0, 2) < 1995 And rng.Offset(0, 2) > 1990 Then
Set rngZiel = Sheets("1994 - 1991").Range("A65536").End(xlUp).Offset(1, 0)
Else
Set rngZiel = Sheets(">= 1995").Range("A65536").End(xlUp).Offset(1, 0)
End If
rngQuell.Copy Destination:=rngZiel
Next 'rngQuell
End Sub
Gruß Ingolf
Anzeige
AW: Zeilen verschieben
03.04.2006 15:00:29
UweD
Hallo Tommy
hier mein Vorschlag

Sub verschieben()
Dim LR#, I#, Lx#, B%
LR = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
For I = LR To 2 Step -1
With Sheets(1)
If .Cells(I, 5) = "doppelt" Then
B = 6
Else
Select Case .Cells(I, 3)
Case Is <= 1986
B = 5
Case 1987 To 1990
B = 4
Case 1991 To 1994
B = 3
Case Is >= 1995
B = 2
End Select
Lx = Sheets(B).Cells(Rows.Count, 1).End(xlUp).Row
.Rows(I).Copy Sheets(B).Rows(Lx + 1)
End If
End With
Next
End Sub

Gruß UweD
(Rückmeldung wäre schön)
AW: Zeilen verschieben
03.04.2006 15:06:49
thomas
Hallo Uwe,
bis auf die wo doppet steht (die werden nicht verschoben) funktioniert das prima. Kannst Du da noch mal bitte drüber schaun.
Danke
Tommy
Anzeige
sorry
03.04.2006 15:14:42
UweD
Hallo nochmal
das "end if" war an der falschen Stelle
(kommt davon, wenn man zum Schluß noch mal was ändert und die Zieltabelle nicht löscht)
so aber

Sub verschieben()
Dim LR#, I#, Lx#, B%
LR = Sheets(1).Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
For I = LR To 2 Step -1
With Sheets(1)
If .Cells(I, 5) = "doppelt" Then
B = 6
Else
Select Case .Cells(I, 3)
Case Is <= 1986
B = 5
Case 1987 To 1990
B = 4
Case 1991 To 1994
B = 3
Case Is >= 1995
B = 2
End Select
End If
Lx = Sheets(B).Cells(Rows.Count, 1).End(xlUp).Row
.Rows(I).Copy Sheets(B).Rows(Lx + 1)
End With
Next
End Sub

Gruß UweD
(Rückmeldung wäre schön)
Anzeige
Vielen vielen Dank funzt:-)) o.T.
03.04.2006 16:01:17
thomas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige