Excel VBA Makro "suchen und kopieren" anpassen

So mal vorab,es ist ja nett das Du Dir so viel Mühe machst Dein Anliegen zu beschreiben, aber schlau wird man daraus nicht. Bei den entscheidenden Punkten wirst Du so vage das eine Hilfe eigentlich unmöglich ist.
<br />Es wäre viel einfacher wenn Du eine Beispieldatei machst und diese auf Deinen OneDrive (oder anderen Filehoster) lädst und uns zur Verfügung stellst.
<br />So bleibt meine Antwort auch vage und passt ggf. nicht zu Deinem Anliegen:
<br />Dazu braucht es kein Makro, wenn es nur um eine Zeile geht ist es viel einfacher eine Formel mit VERGLEICH zu erstellen die die passende Zeile sucht und dann via INDEX sich die Werte zu holen.
<br />Mit VBA geht das genauso, man sucht via RANGE.FIND nach dem Wert und bekommt ein Range Objekt, dort kann man die Zeile abfragen. Wenn Find NOTHING zurückgibt wurde die ID nicht gefunden.
<br />Set Source = Worksheets("TabelleX").Range("A:A").Find(ID, LookIn:= xlValues, LookAt:=xlWhole)
<br />Danach kann man die Werte ganz normal in irgendwohin schreiben
<br />Range("A2") =Worksheets("TabelleX").Range("S" & Source.Row)
<br />Andreas.
<br />

Hallo Brigitte,



drücke Alt+F11. Damit bist du im VBA-Editor. Wähle dort Einfügen => Modul und kopiere den Code hinein. Gehe zurück nach Excel. Dort kannst du nun über Entwicklertools => Makros das Makro auswählen und ausführen. Falls du die Registerkarte Entwicklertools
nicht hast, blende sie über Optionen => Häufig verwendet ein.

Teste das Makro zuerst an einer Kopie deiner Mappe.



Mit freundlichen Grüßen

Claus

Excel 2010 ist da leider um einiges anders.

1. Kopiere dieses Makro

Sub Open_File()

With Application.FileDialog(msoFileDialogOpen)

.FilterIndex = 1

If .Show Then .Execute

End With

End Sub

in ein reguläres Modul in die PERSONAL.XLSB und speichere diese.

2. Schließe den VBA-Editor

3. Klicke mit Rechts auf die Symbolleiste Schnellzugriff, wähle "Symbolleiste für den Schnellzugriff anpassen...", es erscheint das Fenster "Excel-Optionen"

4. Wähle unter "Befehle auswählen:" den Eintrag "Makros"

5. Klicke in der Liste darunter auf den Eintrag "PERSONAL.XLSB!Open_File"

6. Klicke in der rechten Liste auf den Eintrag hinter dem das Makro erscheinen soll und klick in der Mitte auf den Knopf "Hinzufügen >>".

7. Optional klicke auf den Knopf "Ändern" und wähle ein anderes Symbol aus.

8. Klick auf Ok.

Andreas.

Ich unterstelle einfach mal, dass du nicht zu alt wirst um kluge/schlanke Excel Formel zu erstellen. Stattdessen werden Excel Formeln relativ schnell sehr lang. Meistens läuft es dann darauf hinaus, dass man ein Makro benötigt, um die Formel wieder schlank
zu kriegen.

Wenn du also nach "Lotto" "Makro" und "Excel" suchst, wirst du mit Makros überflutet.

Mit VBA kenne ich mich aber selbst nicht gut aus und es kann auch schnell gefährlich werden, da die Makros sehr viel Ressourcen benötigen oder Schadcode enthalten können.

Grüße,

Manuel

Hallo Karin,

das ist ein Word- und kein Excel-Makro, weshalb die Gruppe "Excel" nicht ganz passt.

Wenn ich das Makro bei mir in Word in eine Klasse kopiere, gibt es einen Kompilierfehler, weil das Ribbon-Objekt objEurekaRibbon nicht definiert ist, das Makro ist also unvollständig.

Sollte das Ribbon-Objekt bei dir an anderer Stelle definiert sein, aber in der Word-Oberfläche nicht (mehr) vorhanden sein, würde an dieser Stelle ein Fehler auftreten. Damit das Makro trotzdem mit der Fehlerbehandlung (On Error GoTo fehler) weiterläuft,
muss im VBA-Editor unter Extras / Optionen, Reiter Allgemein bei "Unterbrechen bei Fehlern" der Eintrag "Bei nicht verarbeiteten Fehler" ausgewählt sein.

Mehr fällt mir im Moment dazu nicht ein.

Viel Erfolg, Dirk