Herbers Excel-Forum - das Archiv

Zelleintrag suchen u. bestimmten Bereich kopieren

Bild

Betrifft: Zelleintrag suchen u. bestimmten Bereich kopieren
von: Fritz
Geschrieben am: 28.09.2003 11:19:22
Hallo Excelfreunde und VBA-Experten,

wer von euch ist bereit mir bei der Umsetzung folgender Aufgabe behilflich zu sein:

Ich möchte durch ein Makro erreichen, dass in dieser Mappe in allen Tabellen, die mit dem Buchstaben "T" beginnen, folgendes erledigt wird. Es soll in der Zeile 2 in den Spalten L bis FY die Zelle gesucht werden, in der die gleiche Zahl eingetragen ist, wie in der Zelle G2. Wird eine Zelle mit einem solchen Eintrag gefunden, soll diese Spalte und die 4 weiteren Spalten rechts davon von der Zeile 3 bis zur Zeile 33 in den Bereich G3:K33 kopiert werden.

Bereits jetzt schon vielen Dank für jede Hilfe und eure Bemühungen.

Mfg
Fritz

Bild

Betrifft: AW: Zelleintrag suchen u. bestimmten Bereich kopieren
von: Boris
Geschrieben am: 28.09.2003 11:50:00
Hi Fritz,

ungetestet - so in der Art könnte es laufen:

Option Explicit



Sub machwas()
Dim Ws As Worksheet
Dim Treffer As Range
For Each Ws In ThisWorkbook.Worksheets
If Left(Ws.Name, 1) = "T" Then
With Ws
Set Treffer = .[l2:fy2].Find(.[g2])
If Not Treffer Is Nothing Then
Range(Treffer.Offset(1), Treffer.Offset(30, 3)).Copy .[g3]
End If
End With
End If
Next Ws
End Sub



Normalerweise kann man aber auf Copy-und-Paste verzichten, wenn man nur Werte "kopieren" will. Das nur noch am Rande.

Grüße Boris
Bild

Betrifft: AW: Zelleintrag suchen u. bestimmten Bereich kopieren
von: Fritz
Geschrieben am: 28.09.2003 12:16:32
Hi Boris,
nach ersten Tests wollte ich Dir zunächst danken, dass Du mir helfen willst.
Dann wollte ich Dir mitteilen, welche Ergebnisse die ersten Tests des Makros
geliefert haben.

Zunächst lief die Sache -beim ersten Test - astrein. Komischerweise dann bei der Wiederholung, mit einer anderen Zahl nicht mehr. Bislang bin ich noch nicht dahinter gekommen, warum das so ist. Ich werde - allerdings erst am späten Nachmittag - weiter testen und mich ggf. noch einmal bei Dir melden.

Bis dahin noch einmal vielen Dank für Deine Mühen und schönen Gruß

Fritz
Bild

Betrifft: Weitere Erkenntnisse gewonnen
von: Fritz
Geschrieben am: 28.09.2003 12:41:59
Hi Boris,
ich habe in der Kürze der Zeit doch noch ein paar Tests durchführen können.
Dabei ist mir aufgefallen, dass das Makro (offensichtlich) wohl nur dann wie gewünscht funktioniert, wenn in der Zelle G2 auch die Zahl 2 steht (das war zufälligerweise beim ersten Test auch so), bei allen anderen Zahlen tut sich gar nichts. Hat das mit der Zeile 2 zu tun?
Gruß
Fritz
Bild

Betrifft: Für mich so nicht nachvollziehbar
von: Boris
Geschrieben am: 28.09.2003 14:09:27
Hi Fritz,

das kann ich jetzt nicht nachvollziehen.
Das Makro sollte in jedem Tabellenblatt, welches mit "T" beginnt, in L2:FY2 den Wert aus G2 des jeweiligen Tabellenblattes suchen und dann entsprechend den versetzten Bereich kopieren und in G3 einfügen.

Wenn du möchtest, dann lade doch notfalls mal eine kleine Beispieltabelle hoch.

Grüße Boris
Bild

Betrifft: AW: Für mich so nicht nachvollziehbar
von: Fritz
Geschrieben am: 28.09.2003 15:40:29
Hi Boris,
ich lade Dir eine Beispielmappe hoch. Offensichtlich gibt es wohl Probleme, wenn die Zahl 1 (der erste Bereich) eingegeben wird. Ich habe in ein Tabellenblatt einige Anmerkungen eingefügt und hoffe, Du kommst klar und kannst mir weiterhelfen.
Einstweilen vielen Dank und Grüße
Fritz

https://www.herber.de/bbs/user/1195.xls
Bild

Betrifft: Noch etwas entdeckt
von: Fritz
Geschrieben am: 28.09.2003 16:00:26
Hi Boris,
meine umfangreicheren Recherchen bei der Ursprungsmappe, wo nicht nur bei der Zahl 1 Probleme auftauchten, haben inzwischen noch eine andere Erkenntnis geliefert. Ich hatte in der Zeile 2 die Zahlen immer in Abhängigkeit der Vorgängerzelle um jeweils 1 erhöht, also z.B. stand in L2 die 1, aber in Q2 die Formel =L2+1 (ergibt dann 2), bei solchen Zellen, die Formeln enthalten, funktioniert das Makro offensichtlich auch nicht.
Gibt es hierfür auch eine Erklärung bzw. könnte man das ändern?
Gruß
Fritz
Bild

Betrifft: AW: Für mich so nicht nachvollziehbar
von: K.Rola
Geschrieben am: 28.09.2003 17:05:33
Hallo Boris,

du musst lookat:=xlWhole einbauen sonst findet er 1 in 1 und in 11
usw.

Gruß K.Rola
Bild

Betrifft: VBA ist ja bekanntlich dünnes Eis für mich...
von: Boris
Geschrieben am: 28.09.2003 23:02:12
Hi K.Vira,

...insofern bin ich ja dankbar für professionelle Unterstützung.
Das sind die Feinheiten, die ich bei FORMELN in der Regel nicht übersehe...

Grüße Boris
Bild

Betrifft: Problem für mich noch offen
von: Fritz
Geschrieben am: 28.09.2003 20:23:57
Hallo Ihr beiden,
mit der Nachricht von K.Rola kann ich allein zwar entnehmen, dass am Code etwas geändert werden sollte, ich allein kann das aber nicht umsetzen.
Wäre nett, wenn einer von mir noch weiter helfen könnte.
Gruß und vielen Dank
Fritz
Bild

Betrifft: AW: Problem für mich noch offen
von: K.Rola
Geschrieben am: 28.09.2003 21:09:15
Hallo,

ich hab mich da zwar nicht weiter reinhängen wollen, aber nun...
Warum muss kopiert werden? Werden da irgendwelche Formatierungen
mitkopiert oder gehts nur um Werte? Wenn nur Werte, würde ich das
mit einem Datenfeld machen, das ist schneller!
Boris Lösung ist grundsätzlich ok, nur hat er sich wohl im offset
vertan und sucht z.B. nach 2 . Die 2 kommt aber auch in 12 und 20
usw. vor. Es muss also nach der ganzen Zahl gesucht werden.
Da stellt sich noch eine Frage, kann die Zahl mehrfach vorkommen?

Gruß K.Rola
Bild

Betrifft: AW: Problem für mich noch offen
von: Fritz
Geschrieben am: 28.09.2003 21:51:32
Hallo Ihr Helfer,
zunächst freue ich mich um jeden Helfer und jede Form der Hilfe ganz herzlich.

Zu den Fragen von K. Rola:

Es sollen Werte kopiert werden.

In dem zu prüfenden Bereich (Zeile 2, Spalten G bis FY) kommt die Zahl aus G2 nur einmal vor (i.d.R stehen hier die Zahlen 1 bis 34).

Vielen Dank für Eure Mühen.

Gruß
Fritz
Bild

Betrifft: An K.Rola u. Boris - Problem immer noch offen
von: Fritz
Geschrieben am: 30.09.2003 13:09:40
Hallo,
ich wollte Euch beiden noch einmal bitten, mir ggf. noch weitere Hilfe anzubieten.
Ich habe das Ganze immer noch nicht so zum laufen gekriegt, wie ich mir das eigentlich vorgestellt habe. Wäre daher froh, wenn Ihr euch dieser Angelegenheit noch einmal annehmen würdet.
Danke und schönen Gruß
Fritz
 Bild
Excel-Beispiele zum Thema " Zelleintrag suchen u. bestimmten Bereich kopieren"
Arbeitsmappe unter dem Text eines Zelleintrags speichern Änderung der Kopfzeile bei Zelleintrag
Doppelte Zelleinträge listen Zelleintrag durch OptionButton-Betätigung ein- und ausschalten
Automatische Sortierung bei Zelleintrag Aus Zelleintragungen Hyperlinks und HTML-Tabelle erstellen
Zelleinträgen über die Formatierung Spaltennamen hinzufügen Zelleinträge den Werten in einer zweiten Zelle hinzuaddieren
Zellhintergrund in Abhängigkeit von Zelleintrag festlegen. Bei Zelleintrag Datei öffnen