Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1120to1124
1120to1124
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Suchen einsetzten

Suchen einsetzten
Julia
Hallo,
ich hab im Tabellenblat "Input" meine Basis. Dort steht in Spalte A der Schlüssel. Daneben B-J stehen Informationen zu diesem Schlüssel.
In einem anderen Tabellenblatt "Auftrag" schreibe ich jetzt einen von mir ausgesuchten Schlüssel händisch rein (in Spalte A).
Jetzt brauch ich ein Makro welches mir bestimmte Daten aus dem Blatt "Input" in das Blatt "Auftrag" übernimmt.
Also in Auftrag schreibe ich zum Beispiel "Schlüssel-12" dann soll das Makro in im Blatt "Input" Schlüssel 12 suchen. Und spalte H und I in die Spalte B und C von "Auftrag" importieren.
Findet das Makro den Schlüssel nicht, dann soll eine MsgBox darüber infomrieren.
Eine Idee?

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Suchen einsetzten
14.12.2009 09:53:41
Julia
Weil es auf Knopfdruck dazugeschrieben werden soll
Ist leichter für die Sachbearbeitung
Wäre das mit Makro möglich?
AW: Suchen einsetzten
14.12.2009 09:54:46
Uduuh
Hallo,
im Code von "Auftrag" 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim varA, varB
On Error GoTo ERRHDL
If Target.Column = 1 Then
Application.EnableEvents = False
varA = Application.VLookup(Target.Value, Sheets("input").Range("A:J"), 8, 0)
varB = Application.VLookup(Target.Value, Sheets("input").Range("A:J"), 9, 0)
If IsError(varA) Or IsError(varB) Then
MsgBox "Fehler", , ""
Else
Target.Offset(, 1) = varA
Target.Offset(, 2) = varB
End If
End If
ERRHDL:
Application.EnableEvents = True
End Sub
Gruß aus’m Pott
Udo

Anzeige
AW: Suchen einsetzten
14.12.2009 09:58:02
Tino
Hallo,
teste mal diesen Code
kommt als Code in die Tabelle Auftrag 
Option Explicit 
 
Private Sub Worksheet_Change(ByVal Target As Range) 
Dim rngBereich As Range 
Dim varRow 
 
'Zelle anpassen wo Du reinschreiben möchtest, hier A2 
If Target(1).Address = "$A$2" Then 
   varRow = Application.Match(Target(1).Value, Sheets("Input").Columns(1), 0) 
   If IsNumeric(varRow) Then 
        Application.EnableEvents = False 
            Cells(Target.Row, 2) = Sheets("Input").Cells(varRow, 8) 
            Cells(Target.Row, 3) = Sheets("Input").Cells(varRow, 9) 
        Application.EnableEvents = True 
   Else 
        MsgBox Target(1).Value & " wurde nicht gefunden" 
   End If 
End If 
End Sub

Gruß Tino
Anzeige
Mit Bsp xls
14.12.2009 11:14:41
Julia
Hi,
habe eine Bsp hochgeladen:
https://www.herber.de/bbs/user/66564.zip
Kann man das Makro auch über einen Button starten?
Im gelben Feld wird händisch eingetragen. Ort und Bearbeiter werden aus Input gezogen.
Wenn es den händisch eingetragenen Schlüssel in Input nicht gibt soll eine MsgBox informieren.
Julia
Danke Danke Danke
14.12.2009 12:14:10
Julia
Klappt super ;)

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige