Das Archiv des Excel-Forums

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 download Änderung der Kopfzeile bei Zelleintrag download
Doppelte Zelleinträge listen download Zelleintrag durch OptionButton-Betätigung ein- und ausschalten download
Automatische Sortierung bei Zelleintrag download Aus Zelleintragungen Hyperlinks und HTML-Tabelle erstellen download
Zelleinträgen über die Formatierung Spaltennamen hinzufügen download Zelleinträge den Werten in einer zweiten Zelle hinzuaddieren download
Zellhintergrund in Abhängigkeit von Zelleintrag festlegen. download Bei Zelleintrag Datei öffnen download
Zellinhalt suchen und Zelle auswählen download Suchbegriff über mehrere Tabellenblätter suchen. download
Suchen und weitersuchen download Zahl +/- 1 suchen download
Ein Zeichen in einer Formel suchen download Datum suchen und Wert eintragen download
Wert in Tabelle suchen und in UserForm ausgeben download Letzte Zelle mit Inhalt suchen download
Textdatei nach Begriff durchsuchen und Fundzeile importieren download Wert in Array suchen, ohne jedes Datenfeld abzufragen download
Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden download
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen download Suchen von Nachnamen in Zeichenfolgen download
Dateien in einem Verzeichnis und Unterverzeichnissen suchen download Datum suchen und Adresse der Fundzelle ausgeben download
Begriffe in zweiter Tabelle suchen und Werte anfügen download Text aus UserForm-TextBox in Tabelle suchen download
Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen download Suchbegriff in vorhergehenden Tabellen suchen download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Neueste Textdatei eines Verzeichnisses suchen und umbenennen download
Artikelnummern suchen und jeweils letzte Fundstelle listen download Wörter eines Satzes in Indizliste suchen download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Zellwert nach Doppelklick in Tabelle suchen download
Suchen in 2. Tabelle und Ersetzen der Quelldaten download Wert in Tabelle 2 suchen und Fundstellen übertragen download
Suchbegriff in Tabelle suchen und Fundzeilen auswählen download Suchbegriffe aus Tabelle im Excel-WebArchiv suchen download
Wert aus ComboBox in TextBox, dann in Tabelle suchen download Artikelnummer über InputBox suchen und eintragen download
Anwendung auf Fesplatte suchen download Tabelle nach ComboBox-Auswahl durchsuchen download
Werte suchen, eintragen und löschen download Zeile 1 nach Wert der aktiven Zelle durchsuchen download
Suchbegriff in Tabelle suchen und Fundzeilenindex zurückgeben download Wert in zweiter Tabelle suchen und als Kommentar ausgeben download
Wert in externer Mappe suchen und mit Format übernehmen. download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Wert in ComboBox einlesen, suchen, editieren, ausgeben download Grafikdateien suchen download
Suchen der Nachbarzelle der Zelle mit dem Maximalwert download Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Zahl suchen und an den Fundstellen Zeile einfügen download
Name und Vorname suchen, Werte und Fundstellen importieren download Begriff in der ersten Spalte einer ListBox suchen download
Befindet sich die aktive Zelle in einem bestimmten Bereich? download Werte eins bestimmten Monats summieren download
Werte 1 und 0 in einem bestimmten Verhältnis zufällig anordnen download Alle Links zu einer bestimmten Arbeitsmappe löschen download
Anzahl eines bestimmten Wochentages im Monat download Alle Dateien ab einem bestimmten Datum listen download
Daten eines bestimmten Jahres filtern download Zeilen löschen, wenn in bestimmten Spalten keine Werte stehen download
xlSaveAs-Dialog in einem bestimmten Verzeichnis aufrufen download Wert einer bestimmten Zelle merken download
Werte aus UserForm-TextBox in bestimmten Formate übertragen download Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download
Zeichenfolgen ändern, wenn ein sie einen bestimmten Text enthalten download Werte eines bestimmten Wochentages und eines Zeitbereiches addieren download
Bei Aktivierung einer bestimmten Tabelle in Vollbildmodus schalten download Anzahl eines Namens in einer bestimmten Schriftfarbe ermitteln download
Anzahl der Einträge zu einer bestimmten Kalenderwoche download Datenmaske mit einem bestimmten Datensatz aufrufen download
Aus Liste Anzahl der Januartage eines bestimmten Jahres listen download Letzte Zeile mit einem bestimmten Anfangsbuchstaben markieren download
Leerzeichen aus einem Bereich löschen download Mehrbereichsauswahl auf eine Seite drucken. download
Spalten einer Mehrbereichsauswahl ausblenden. download Bereich mit Maximalwert markieren download
Benannten Bereich erweitern download Bereich in RefEdit-Element eingeben und auslesen download
Benutzerdefinierte SVERWEIS-Funktion über mehrere Bereiche download Letzter Wert aus einem Bereich download
Bereiche bei Mehrfachauswahl prüfen download Auswahl eines Zellbereiches verhindern download
Bereiche in Abhängigkeit eines Zellinhaltes drucken download Den selben Bereichsnamen in mehreren Tabellenblättern download
Leere Zeilen und Spalten in ausgewähltem Bereich löschen download URLs eines ausgewählten Bereiches in HyperLinks umwandeln download
Werte aus Zellbereich in eine Matrix übernehmen und auslesen download Zellauswahl auf den ausgewählten Bereich beschränken download
Berechnung des ausgewählten Bereiches in der Statusleiste download Bereiche auf Übereinstimmung vergleichen download
Scrollbereich begrenzen download Tabellenblattbereich als Email versenden download
Serie von Bereichsnamenteilen einer Arbeitsmappe ändern download Worte in einem vorgegebenen Bereich zählen download
Bereichsnamen ermitteln und als Kommentare anzeigen download Bereichsnamen in UserForm-ListBox auflisten und editieren download
Einen vorgegebenen Tabellenblattbereich in neue Arbeitsmappe download Werte aus einem nicht zusammenhängendem Bereich auslesen download
Druckbereich variabel gestalten download Tabellenblattbereich sortiert als Zellkontextmenü download
Überschriften aus Spalte C in Spalte D in den relevanten Bereich download Druckbereich bis zum ersten Nullwert festlegen download
Markierten Bereich mit jeweiligem Mwst-Satz multiplizieren download Cursor in bestimmtem Zellbereich in Eieruhr verwandeln download
Maximalwert aus einem Bereich ermitteln und in Spalte A eintragen download Formelbereich in Einzelelemente aufschlüsseln download
Datenreihenbeschriftungs-Quellbereich ausserhalb des Datenbereiches download Diagramm-Datenbereich über Schaltfläche festlegen download
Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download Einen von einer Schlüsselziffer abhängigen Bereich kopieren download
Namen eines ausgewählten Bereiches auslesen download Den in einer Zelle genannten Bereich eines Blattes drucken download
Zugriff auf Zellen unter Verwendung eines Bereichsnamens download Bereich aus anderer Tabelle für 2 Sekunden anzeigen download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Aktuellen Bereich in den Spalten A:F als Druckbereich download
Über UserForm-RefEdit-Steuerelement Bereich auswählen download Über InputBox festzulegenden Bereich kopieren download
Anzahl der Übereinstimmungen in zwei Bereichen ermitteln download Blätter in andere Arbeitsmappen kopieren download
Module von Mappe zu Mappe kopieren download Arbeitsblatt 40 mal kopieren download
Schriftgröße beim Kopieren verdoppeln download Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download
Tabellencode nach Kopieren des Blattes löschen download Arbeitsmappe blitzschnell kopieren download
VBE-Namen der Blattmodule beim Kopieren festlegen download Blattinhalt von einer zur anderen Arbeitsmappe kopieren download
Formel bis zur letzten Zeile der Nebenspalte kopieren download Datei kopieren, wenn noch nicht vorhanden download
Zeilenweise von Blatt zu Blatt kopieren download Erste Druckseite in eine neue Arbeitsmappe kopieren download
Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download
Bei Eintrag in Spalte A aktuelle Zeile kopieren download Filtern und Kopieren download
Zeile mit aktiver Zelle in anderes Blatt kopieren download Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download
Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download
Tabellenblatt kopieren und dreistellig fortlaufend numerieren download Jede zweite Zelle kopieren download
Gruppe von Optionsfeldern kopieren und Makro zuweisen download Nicht zusammenhängenden Bereich in nächste Zeile kopieren download
Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download
Werte prüfen und kopieren download Bei Eintrag von X Zeile in andere Tabelle kopieren download
Daten kopieren wenn kein Datum oder Datum > Heute download Blattinhalte dreier Blätter in neues Blatt kopieren download
Kopieren und Umbenennen eines Blattes download Nur Zeilen mit bestimmtem Inhalt kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Aktive Zeile kopieren und löschen download Datensätze, die öfter als 3 mal vorkommen, kopieren download
Den jeweils darüberliegenden Wert in Leerzellen kopieren download Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download