VBA - Filter | HERBERS Excel Forum

J. · 2006-03-06T16:39:09+00:00

Hallo Freunde, ich habe eine Tabelle in der Artikelnummern stehen, 10061823 10061823 02090612 02090612 00344333 00627770 10061823 10061823 02090612 02090612 00344333 00627770 so etwa. Jetzt möchte ich diese Nummern auf eine zweite Tabelle kopieren, dort doppelte Einträge löschen dann sortieren. Hinter jeder Nummer ist eine Stückzahl hinterlegt die auf dem zweiten Tabellenblatt addiert werden, (das fuktioniert bereits) sobald diese Nummer eingetragen werden. Ich weiß es gibt einen Experten da draußen:-) Danke im voraus; J. B.

Hi J.B.
Versuche es hiermit:
Du musst evtl die Namen der Tabellenblätter anpassen, sowie die Spalte.
Ich bin davon ausgegangen, dass die Artikelnummern in Spalte "A" sind und von Typ Text.
Bei Rückfragen gerne melden.


Sub kopieren_und_sortieren()
Dim quelle As Worksheet, ziel As Worksheet
Dim i As Integer, j As Integer
Dim vorhanden As Boolean
Set quelle = Application.Worksheets("Tabelle1")
Set ziel = Application.Worksheets("Tabelle2")
ReDim artnr(quelle.Cells(Rows.Count, 1).End(xlUp).Row) As String
j = -1
For i = 1 To Sheets("Tabelle1").Cells(Rows.Count, 1).End(xlUp).Row
vorhanden = False
For k = 0 To j
If quelle.Cells(i, 1) <> "" And quelle.Cells(i, 1) = artnr(k) Then
vorhanden = True
End If
Next k
If vorhanden = False Then
j = j + 1
artnr(j) = quelle.Cells(i, 1)
End If
Next i
For i = 0 To j
ziel.Cells(i + 1, 1) = artnr(i)
Next i
'absteigend
ziel.Columns("A:A").Sort Key1:=ziel.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
'aufsteigend
'ziel.Columns("A:A").Sort Key1:=ziel.Range("A1"), Order1:=xlDescending, Header:=xlGuess, _
'OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
'DataOption1:=xlSortNormal
End Sub

Mit freundlichen Grüßen
Manuel Marhold

Hi Manuel,
danke für Formelergänzung, aber leider nichts geholfen.
Ich versuche einmal Dir mein Problem zubeschreiben:
Tabelle "Materialnachweis" werden in Zelle C11, C12, C13 usw. 8 stellige Zahlen (als Text formatiert) eingegeben die dann in Zelle D11, D12, D13 usw. Artikelbezeichnungen aufrufen. Hier kann es auch schon mal vorkommen das Zellen leer bleiben.
Um eine Auswertung hin zubekommen werden die Daten aus Tabelle "Materialnachweis" in Tabelle "AuswertungLS" Zelle A1, A2, A3 usw. übernommen und anschließend in die Tabelle "Leiterseil" Zelle A1, A2, A3 usw. ausgegeben.
In der Tabelle "Leiterseil" werden nun aber die sortierten Daten nicht in die Zelle A1 kopiert sondern irgentwo in die Spalte "A". Es ist auch nicht zuerkennen das die Leerzellen mit übernommen werden.
Hier die von mir geänderte Formel


Sub Leiterseil()
Dim quelle As Worksheet, ziel As Worksheet
Dim i As Integer, j As Integer
Dim vorhanden As Boolean
Set quelle = Application.Worksheets("AuswertungLS")
Set ziel = Application.Worksheets("Leiterseil")
ReDim artnr(quelle.Cells(Rows.Count, 1).End(xlUp).Row) As String
j = -1
For i = 1 To Sheets("AuswertungLS").Cells(Rows.Count, 1).End(xlUp).Row
vorhanden = False
For k = 0 To j
If quelle.Cells(i, 1) <> "" And quelle.Cells(i, 1) = artnr(k) Then
vorhanden = True
End If
Next k
If vorhanden = False Then
j = j + 1
artnr(j) = quelle.Cells(i, 1)
End If
Next i
For i = 0 To j
ziel.Cells(i + 1, 1) = artnr(i)
Next i
'absteigend
ziel.Columns("A:A").Sort Key1:=ziel.Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Sheets("Leiterseil").Select
Range("A3").Select
End Sub

Ich hoffe das ich mein Problem einigermaßen beschrieben habe.
Es dürfen ja über diese Adresse keine e-mail- Adressen ausgetauscht werden!
Oder?
Gruß
J. B.

VBA - Filter

Forumthread: VBA - Filter

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

VBA - Filter

Forumthread: VBA - Filter

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread