Supportnet / Forum / Tabellenkalkulation

Hallo...... ich mal wieder. Da ich ja immer noch nicht der Hellste in Sachen VBA bin brauche ich mal wieder Eure Hilfe. Ich möchte das man über eine Inputbox eine Artikelnummer eingibt und die Artikelnummer dann z.B. in Zelle C5 dann eingeschrieben wird, den Rest wie Artikelbeschreibung kann ich dann mit Sverweisen machen. Das soll so sein z.B. "Geben Sie Artikelnummer ein"... man gibt Artikelnummer ein und die Tabelle füllt sich mit den Artikeldaten und oben die Artikelnummer. Am liebsten hätte ich das so, das bevor das Tabellenblatt zu sehen ist die Inputbox erschein, man dort die Nummer eingibt und dann das gefüllte Blatt erst sieht. Vielen Dank an Euch Gruß Elhamplo

Hi Elhamplo,

nachfolgendes Makro kopiere in ein StandardModul und starte es über eine Befehlsschaltfläche.

 Sub Inputbox_öffnen()
Dim Artikelnummer As Variant
Artikelnummer = Application.InputBox("Bitte geben Sie die Artikelnummer ein.", "Artikelnummereingabe", , Type:=1)
If Artikelnummer = False Then
Exit Sub
Else
Sheets("Tabelle1").Activate
Range("C5") = Artikelnummer
End If
End Sub

Bei dem Makro wird zuerst ein Eingabefenster geöffnet, in dem nur als Eingabe Zahlen erlaubt sind. Werden dort Buchstaben oder ein Buchstaben/ Zahlenmix eingegeben, erscheint eine Fehlermeldung. Wird die Abbruchtaste gedrückt, wird das Makro beendet. Wenn eine Zahl eingegeben wurde und der OK-Button betätigt wurde, wird das Blatt „Tabelle1“ aktiviert und der eingegebene Wert in Zelle C5 übertragen.
Wenn Dein Tabellenblatt, in das der Wert übertragen werden soll, anders als „Tabelle1“ heiß, dann ändere in dem Makro in der Zeile

Sheets("Tabelle1").Activate

Den Blattnamen. Wenn der Wert an eine andere Zelle als C5 übergeben werden soll, dann ebenfalls in dem Makro dann aber in Zeile

Range("C5") = Artikelnummer

Die Zellbezeichnung abändern.

Ich hoffe, Du kommst klar. Bei fragen melde Dich.
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Hey Coros,

Superfat danke......läüft!!!! Sowas wollte ich, DANKE!!!

MfG

Elhamplo

• Excel: Wert suchen und Zeilen bzw, Spaltennummer ausgeben
• rote werte übernehmen
• Excel: Zellen auf bedingung färben
• mehrere Zellen auf einen Wert überprüfen
• Befehl zum Kopieren eines Zellinhaltes in Wenn Formel verwenden