Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Einfaches Makro (kopiert, sucht und wieder kopiert)

Frage Microsoft Microsoft Office

Mitglied: lordofremixes

lordofremixes (Level 2) - Jetzt verbinden

05.04.2012, aktualisiert 07.04.2012, 3794 Aufrufe, 6 Kommentare

Schreibe gerade mein erstes Makro mit der Makroaufzeichnung. Kann man das Makro nicht so anpassen, dass es in die nächste Zeile wechselt?

Hallo zusammen,


Ich habe eine Tabelle in der die Artikelnummer drin steht (A3 bis A787 ) und noch eine Spalte mit Artikelnummern K3 : K1005
Mein Makro soll A3 kopieren , dann in Spalte K3 : K1005 genau diesen Wert suchen, und bei dem gefunden Wert in der Spalte K (z.B. K5) die Werte von den nächsten 2 Zellen rechts kopieren (z.B. L5 und M5) und diese wiederum in N3 (gleiche Zeile wie A3 ) speichern.

soweit bin ich gekommen.

01.
Range("A3").Select 
02.
    Selection.Copy 
03.
    Columns("K:K").Select 
04.
    Selection.Find(What:="257879", After:=ActiveCell, LookIn:=xlFormulas, _ 
05.
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
06.
        MatchCase:=False, SearchFormat:=False).Activate 
07.
    Application.CutCopyMode = False 
08.
    Range("L5:M5").Select 
09.
    Selection.Copy 
10.
    Range("N3").Select 
11.
    ActiveSheet.Paste 
12.
    Application.CutCopyMode = False 
13.
End Sub
Das funktioniert nicht weil da ja nur ein Wert abgearbeitet wird und auch keine Schleife dran hängt, die erst A1 abarbeitet und erledigt und dann A2 usw..

Weiß mir vielleicht jemand einen Rat?
Wäre so froh darüber, sitze da und weiß echt nicht mehr weiter.


Gruß
lordofremixes
Mitglied: Xolger
05.04.2012 um 18:08 Uhr
Hallo lordofremixes,

für die gewünschte Aufgabe benötigst du kein Makro.
Schau dir mal die Hilfe zum Befehl "SVERWEIS" an,
da findest du alles was du brauchst.

(Im Makro kann man Zellen mit Range().Select ansprechen wie in deinem Auszug,
aber ebenso mit Zellinhalt=Cells(1,1) , heißt schreibe in die Variable Zellinhalt
den Wert der Zelle A1)


Gruß Xolger
Bitte warten ..
Mitglied: lordofremixes
05.04.2012 um 19:37 Uhr
Hallo xolger,

den sverweis schau ich mir auf jeden fall demnächst an.... wollte ich schon länger mal..
das problem ist nur, dass mir grad bisschen der arsch brennt, auf die schnelle kann das keiner?
les mir grad schon alte vba makro excel 9bücher durchles..
mein chef will es unbedint als makro, wieso ist mir eig auch nicht klar

Gruß
lordofremixes
Bitte warten ..
Mitglied: bastla
05.04.2012 um 20:39 Uhr
Hallo lordofremixes!

Wenn's denn sein soll (auch ich würde für SVERWEIS() plädieren):
01.
Sub Kopieren() 
02.
AbZeile = 3 'Daten werden ab dieser Zeile gelesen 
03.
Spalte = "A" 'Spalte, nach deren Inhalten gesucht wird 
04.
SuchSpalte = "K" 'Spalte, in der die Werte aus Spalte (A) gesucht werden 
05.
QuellSpalte = "L" 'erste Spalte, aus der Daten übernommen werden sollen 
06.
QuellSpaltenAnzahl = 2 'Anzahl der Spalten, aus denen Daten übernommen werden sollen 
07.
ZielSpalte = "N" 'Spalte, ab der Daten eingetragen werden sollen 
08.
 
09.
Zeile = AbZeile 'in AbZeile beginnen 
10.
Do While Cells(Zeile, Spalte).Value <> "" 'alle Zeilen, die in Spalte (A) einen Wert enthalten, verarbeiten 
11.
    'Wert aus der aktuellen Zeile und Spalte auslesen und in der SuchSpalte suchen 
12.
    Set c = Columns(SuchSpalte).Find(What:=Cells(Zeile, Spalte).Value, LookAt:=xlWhole, MatchCase:=False) 
13.
    If Not c Is Nothing Then 'Wenn nicht kein Suchergebnis ;-) 
14.
        QuellZeile = c.Row 'Zeile, in der der Wert gefunden wurde 
15.
        'Zielbereich (per Resize() in der richtigen Größe: 1 Zeile hoch, QuellSpaltenAnzahl Spalten breit) mit Daten aus Quellbereich (ebenfalls per Resize() in der vorgegebenen Größe) befüllen 
16.
        Cells(Zeile, ZielSpalte).Resize(1, QuellSpaltenAnzahl).Value = Cells(QuellZeile, QuellSpalte).Resize(1, QuellSpaltenAnzahl).Value  
17.
    End If 
18.
    Zeile = Zeile + 1 'nächste Zeile 
19.
Loop 
20.
End Sub
Anmerkung: Es werden so nur jeweils der Inhalt der Zellen, nicht aber deren Formatierung übertragen ...

Grüße
bastla

P.S.: Eine ordentliche Formatierung Deines geposteten Codes kriegst Du auch nachträglich noch hin ...
Bitte warten ..
Mitglied: lordofremixes
07.04.2012 um 14:34 Uhr
Hallo bastla,

vielen , vielen Dank. Klappt echt perfekt. (konnt leider noch nicht früher antworten).
Also war mein Ansatz schon ganz falsch?
Meinst du , du kannst bei Gelegenheit noch die einzelnen Zeilen kommentieren?

Gruß
lordofremixes
Bitte warten ..
Mitglied: bastla
07.04.2012 um 15:08 Uhr
Hallo lordofremixes!
Meinst du , du kannst bei Gelegenheit noch die einzelnen Zeilen kommentieren?
Besser so?
Also war mein Ansatz schon ganz falsch?
Das nicht (der Makrorekorder ist als Starthilfe oft sehr nützlich, arbeitet aber mit sehr vielen unnötigen "Select / Selection"), aber es fehlte jedenfalls die Schleife drumherum ...

Grüße
bastla
Bitte warten ..
Mitglied: lordofremixes
07.04.2012 um 15:41 Uhr
Hallo Bastla,

Alles klar,

vielen Dank .

Gruß
lordofremixes
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
Outlook sucht von alt nach neu?
Frage von anteNopeOutlook & Mail2 Kommentare

Moin, ein Kunde hat mir berichtet, dass Outlook 2010 neuerdings bei der Suche nicht von neu nach alt, sondern ...

Windows 8
Explorer sucht Pfad der nicht existiert
Frage von godlieWindows 85 Kommentare

Hallo, ich sitz hier vor einem interessantem Problem, ein Win 8.1 Rechner welcher sich bei Dateioperationen immer wieder einbildet ...

Server-Hardware
Kleines Unternehmen sucht Serverlösung
gelöst Frage von sika9910Server-Hardware4 Kommentare

Hallo erstmal, ich habe folgendes Problem. Wir, ein kleines Unternehmen in München (<10 Mitarbeiter) arbeiten Momentan mit Keiro auf ...

Exchange Server
Neuling sucht Unterstützung für Exchange
Frage von Stefan007Exchange Server2 Kommentare

Hallo zusammen, da ich mich mehr mit Exchange befassen möchte, suche ich nach einer Möglichkeit, mir das Ganze in ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 106 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
Frage von HelloWorldBatch & Shell16 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

Windows Server
Ping auf einen bestimmten Server nicht möglich
gelöst Frage von a.thierWindows Server7 Kommentare

Hallo, ich habe folgendes Problem. srv-dc1: Ping srv-nav > geht Ping srv-exchange > geht nicht srv-exchange: Ping srv-dc1 > ...

Hardware
Fujitsu Workstation mit K80 und Quadro P5000, Fehlermeldung: Connect Power Adapter
Frage von MachelloHardware7 Kommentare

Hallo Zusammen, ich benötige euren Rat da ich ratlos bin. Folgende Konfiguration im Büro: Fujitsu Workstation Celcius R940 Power ...