Supportnet / Forum / Skripte(PHP,ASP,Perl...)
Hilfe zu Makro benötigt
Frage
Hallo @ all,
ich benötige bitte einmal Eure Hilfe bei der Aufzeichnung eines Makros.
Folgendes Problem:
Ich möchte gerne aus einer sehr langen Excel Tabelle bestimmte Zellen in eine leere Arbeitsmappe kopieren, um Auswertungen vornehmen zu können. Diese lange Tabelle bekomme ich regelmäßig, so dass ein Makro sehr hilfreich wäre.
Die Zellen, die ich kopieren möchte sind einer forlaufenden Nummer in der Spalte A zugeordent. Es handelt sich dabei um Produktnummern.
Es handelt sich dabei immer um die gleichen Produktnummern, die ich in eine neue Arbeitsmappe kopieren möchte. Doch stehen diese manchmal an unterschiedlicher Stelle im Excel-Dokument, da regelmäßig neue Produkte hinzukommen.
Ich müsste also ein Intervall angeben, dass dann in die neue Arbeitsmappe kopiert wird.
Wie bekomme ich das hin?
Vielen Dank
Thomas
Antwort 1 von jb090979
Hallo,
dein Problem sollte sich ganz einfach lösen lassen. Markiere alle daten und aktiviere den autofilter (Daten->Filer->Autofilter). In der Spalte mit den Produktnummern kannst du nun die gewünschte Numer auswählen. Alle anderen zeilen werden ausgeblendet. Markiere nun die verbliebenen Zeilen eh voila du kannst diese Zeilen an eine andere Stelle kopieren.
Ich hoffe dies hilft die weiter
MFG jens
dein Problem sollte sich ganz einfach lösen lassen. Markiere alle daten und aktiviere den autofilter (Daten->Filer->Autofilter). In der Spalte mit den Produktnummern kannst du nun die gewünschte Numer auswählen. Alle anderen zeilen werden ausgeblendet. Markiere nun die verbliebenen Zeilen eh voila du kannst diese Zeilen an eine andere Stelle kopieren.
Ich hoffe dies hilft die weiter
MFG jens
Antwort 2 von zero_-_-cool
Oder du schreibst dir selbst ein Makro.
Folgende Daten lege ich zugrunde:
Spalte A = Deine Produktnummern
Gewünschte Nr. = 123456789
Ursprungstabelle = Tabelle1
Zieltabelle = Tabell2
Das würde in etwa so aussehen:
i2 = 1
For i = 1 To Sheets("Tabell1").UsedRange.Rows.Count
If (Sheets("Tabelle1").Range("A" & i) = "123456789") Then
Sheets("Tabelle2").Range("A" & i3) = Sheets ("Tabelle1").Range("A" & i)
Sheets("Tabelle2").Range("B" & i3) = Sheets("Tabelle1").Range("B" & i)
´usw. bis alle benötigten Spalten durch sind
i2 = i2 + 1
End If
Next
Folgende Daten lege ich zugrunde:
Spalte A = Deine Produktnummern
Gewünschte Nr. = 123456789
Ursprungstabelle = Tabelle1
Zieltabelle = Tabell2
Das würde in etwa so aussehen:
i2 = 1
For i = 1 To Sheets("Tabell1").UsedRange.Rows.Count
If (Sheets("Tabelle1").Range("A" & i) = "123456789") Then
Sheets("Tabelle2").Range("A" & i3) = Sheets ("Tabelle1").Range("A" & i)
Sheets("Tabelle2").Range("B" & i3) = Sheets("Tabelle1").Range("B" & i)
´usw. bis alle benötigten Spalten durch sind
i2 = i2 + 1
End If
Next

