Hallo Experten,
ich hänge schon wieder - und mit der Online-Help komme ich leider nicht dahin, wo ich will. Die Aufgabe ist:
Blatt 1:
Spalte 1 enthält bestimmte Zeichenkombinationen (xxa, xla, xia,…) Spalte 2-x enthalten Zahlenwerte.
Es sollen nun auf Blatt 2 alle Zeilen untereinander gelistet werden, die in Spalte 1 in Blatt 1 „xxa“ enthalten.
Tausend Dank mal wieder
Gabi 
Hi Gabi,
so funktioniert es; wenn Du es eleganter/schneller brauchst, melde Dich nochmal 
Sub test()
z = 1
z2 = 1
Do
If Cells(z, 1) = „“ Then Exit Do
If Cells(z, 1) = „xxa“ Then
Rows(z).Select
Selection.Copy
Sheets(„Tabelle2“).Select
ActiveSheet.Paste
z2 = z2 + 1
Cells(z2, 1).Select
Sheets(„Tabelle1“).Select
End If
z = z + 1
Loop
End Sub
Gruß
Sculpture
Hallo Sculpture,
erst mal vielen Dank - aber so recht weiss ich nicht, wo genau ich den Text eingeben soll (mit Makros habe ich keine Erfahrung).
Hast Du noch ein paar Tips für mich?
Danke ))
Gabi
Hi Gabi,
kein Problem:
Extras -> Makro -> Visual-Basic-Editor. Dann am besten nicht durch die ungewohnte Oberfläche erschrecken lassen, sondern das Teilfenster, das mit „Projekt - VBAProject“ überschrieben ist, betrachten. Dort findest Du alle offenen Arbeitsmappen, beginnend mit einem fettgedruckten „VBAProject()“. Darunter steht „Microsoft Excel Objekte“ und innerhalb dieses Folders findest Du „DieseArbeitsmappe“ sowie alle Tabellen in dieser Mappe (etwa „Tabelle1“, etc.) Im Grunde kannst Du den Code in „DieseArbeitsmappe“ oder irgendeine Tabelle kopieren, das ist in diesem Zusammenhang egal. Also: Einfach Doppelklick z.B. auf „DieseArbeitsmappe“, dann den Code in das sich öffnende Fenster einfügen. Danach kannst Du das VB-Fenster wieder schließen.
Ab sofort steht Dir in Excel unter Extras -> Makro -> Makros das neue Makro „Test“ zur Verfügung (oder welchen Namen Du auch immer hinter das „Sub“ im Code geschrieben hast), allerdings nur in dieser Arbeitsmappe.
Gruß
Sculpture
Hallo Sculpture,
wenn ich auf Makro…ausführen gehe, macht der NIX 
(
Ich stell mich bestimmt nur zu doof an. Ich habe den Code per copy/paste gemäß Deiner wirklich klaren Anweisung eingefügt, sehe auch das Makro aber wenn ich ausführe, passiert wie gesagt nix. Dürfen die Blanks in dem Text sein?
Du kriegst bald eine Anschrift für 'ne Rechnung, bei all den Fragen…
Viele Grüße
Gabi
Hallo Gabi
warum verwendest Du nicht die Autofilter-Funktionn (Bereich einschließlich Überschriften markieren - DATEN- FILTER-AUTOFILTER) ?
Wähle „xxa“ aus und kopiere das Ergebnis bei Bedarf in die zweite Tabelle.
Gruß Andreas
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Andreas,
ich würde das ja so machen - aber mein Chef braucht die Info und die Datei ist wohl so komplex mit verschiedensten Tabellen, dass ihm das zu gefährlich ist - er möchte es gerne „automatisieren“. Trotzdem danke für den Tipp.
Gabi
Hallo Gabi,
hier eine andere Variante als Makro:
Sub Kopieren()
Set SH1 = Sheets(„Tabelle1“)
Set SH2 = Sheets(„Tabelle2“)
Zeilen = SH1.Cells(Rows.Count, 1).End(xlUp).Row
For Each Zelle In SH1.Range(„A1:A“ & Zeilen)
If UCase(Trim(Zelle.Value)) = „XXA“ Then
Zeile = Zeile + 1
SH2.Cells(Zeile, 1) = Zelle.Value
SH2.Cells(Zeile, 2) = Cells(Zelle.Row, 2)
End If
Next Zelle
End Sub
Ciao
Schmitti
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Schmitti - Danke - der Ansatz ist vielversprechend, es wird aber nur das xxa in Spalte 1 gelistet, der Rest aus Spalte 2 und 3… leider nicht - hast Du da noch einen Trick auf Lager?
Ich bin übrigens auch ein Schmittchen ))
Gabi (Schmitt)
Hallo Gabi - oder soll ich Dich jetzt Schmittchen nennen
Ah, die ganze Zeile, dann sieht das etwas anders aus:
(beachte bitte, dass die Tabellen „Tabelle1“ und „Tabelle2“ heißen)
Sub Kopieren()
Set SH1 = Sheets(„Tabelle1“)
Set SH2 = Sheets(„Tabelle2“)
Zeilen = SH1.Cells(Rows.Count, 1).End(xlUp).Row
For Each Zelle In SH1.UsedRange
If Zelle.Column = 1 And UCase(Trim(Zelle.Value)) = „XXA“ Then
Zeile = Zeile + 1
s = SH1.Cells(Zelle.Row, Columns.Count).End(xlToLeft).Column
For x = 1 To s
SH2.Cells(Zeile, x) = Cells(Zelle.Row, x)
Next x
End If
Next Zelle
End Sub
Davon ab:
Mit dem Autofilter hätte man das auch machen können,
es sei denn man braucht es immer wieder mal
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Schmitti,
jetzt geht’s irgendwie gar nicht mehr - nur noch in A1 auf Tabelle 2 kommt das xxa, sonst nix.
Sorry, aber diese Makrosprache verstehe ich einfach noch nicht - ist irgendwie ein Engleutsch mit Hindernissen
Es geht wohl um einen regelmässigen „update“ in Tabelle 2, ohne dass Tabelle 1 verändert wird.
Vielen Dank für Dein Hilfe!!!
Gabi (ist mir lieber ;->:wink:
Hallo Gabi,
hmm, schwer herauszufinden, was da faul ist.
Ich kenne Deinen Tabellenaufbau nicht genau.
Ich habe in Tabelle1 willkürlich in Spalte A Daten eingegeben,
zwischendrin mal „xxa“ und in der gleichen Zeile mehrere Spalten gefüllt - in Tabelle2 werden alle entsprechenden Zeilen mit „xxa“ untereinander aufgelistet.
Wenn es keine persönlichen Daten sind,
kannst Du mir die Datei gerne mal zusenden,
oder ich schicke Dir einfach mal eine Beispieldatei ?!
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Hallo Gabi,
schau doch mal unter www.herber.de.
Falls Dein chef bereit ist zu zahlen, findest Du dort auch Profihilfe.
Claudia
Danke an alle!
Vielen Dank Euch Dreien für Eure Mühe und Hilfe. Marcus hat mir mit einer Beispieldatei per E-mail die Lösung geschickt. Ich verstehe das Makro zwar nicht - aber es funktioniert.
Der Link ist auch sehr interessant - ich werde mich mal damit befassen.
Danke und einen sonnigen Tag
Gabi
Hallo Gabi
Blatt 1:
Spalte 1 enthält bestimmte Zeichenkombinationen (xxa, xla,
xia,…) Spalte 2-x enthalten Zahlenwerte.
Also ist alles auf Blatt 1…
Es sollen nun auf Blatt 2 alle Zeilen untereinander gelistet
werden, die in Spalte 1 in Blatt 1 „xxa“ enthalten.
Um damit eine neue Tabelle zu machen???
Ist etwas unklar für mich, was du machen willst.
Wenn es um das untereinander Sortieren geht nur, dann arbeite doch mit Autofilter. Anschliessend kannst du auch das Herausgefilterte ggf. kopieren und woanders einsetzen.
Hoffe es hilft weiter
Gruss
Cabochon
Tausend Dank mal wieder
Gabi
Rehallo Gabi
Sorry…klemmte…hatte all die Antwortpostings nicht wahregenommen.
Nehme alles zurück - lach.
Schönen Abend noch ;.)
Cabochon