Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
764to768
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
764to768
764to768
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche Makro Ausschneiden und Sortieren

Suche Makro Ausschneiden und Sortieren
24.05.2006 07:31:21
Ralf
Hallo Excel Experten,
ich habe es schon selbst versucht, aber jetzt habe ich mich
entschlossen Euch zu fragen :-)
Ich habe eine Tabelle (Archiv) mit den Spalten A - R und jedesmal wenn in
Spalte I ein F auftaucht soll Excel ( per Knopfdruck auf Makro )
die entsprechende Zeile von A - R ausschneiden und in der Tabelle
Register in die erste freie Zelle kopieren.
Dann möchte ich noch, daß Excel im Archiv neu sortiert nach der
Spalte B aufsteigend :-)
Kann man das zusammen in ein Makro packen ?
Viele Grüße
Ralf

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Suche Makro Ausschneiden und Sortieren
24.05.2006 08:31:50
WernerB.
Hallo Ralf,
wie gefällt Dir das?

Sub Ralf()
Dim wsQ As Worksheet, wsZ As Worksheet, _
laRQ As Long, laRZ As Long, i As Long
Set wsQ = ThisWorkbook.Worksheets("Archiv")
Set wsZ = ThisWorkbook.Worksheets("Register")
With wsQ
laRQ = .Cells(Rows.Count, 9).End(xlUp).Row
For i = 1 To laRQ
If Cells(i, 9).Value = "F" Then
laRZ = wsZ.Cells(Rows.Count, 9).End(xlUp).Row
If laRZ = 1 And wsZ.Cells(1, 9).Value = "" Then laRZ = 0
wsZ.Range(wsZ.Cells(laRZ + 1, 1), wsZ.Cells(laRZ + 1, 18)).Value = _
.Range(.Cells(i, 1), .Cells(i, 18)).Value
.Range(.Cells(i, 1), .Cells(i, 18)).ClearContents
End If
Next i
.Range("A1:R" & laRQ).Sort Key1:=.Range("B1"), Order1:=xlAscending, _
Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
End With
Set wsQ = Nothing
Set wsZ = Nothing
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
Anzeige
Danke Werner !!! :-)
24.05.2006 09:00:50
Ralf
Hallo Werner,
das ist super !!! Vielen Dank dafür,
Du hast mir wirklich sehr geholfen !
Viele :-) Grüße
Ralf

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige