Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suche Makro Ausschneiden und Sortieren

Forumthread: 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
Anzeige

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)

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