Zellen automatisch ergänzen

Question

Hallo zusammen

Habe folgende Frage?

möchte ein Artikel Tabelle machen.

Das heisst in Spalte stehen

erste spalte Artikelnummer
zweite Spalte Artikeltext.

jetzt möchte ich wen ich die Artikelnummer oder den Text eingebe dass automatisch die fehlende Spalte ausgefühlt wird.

zb. 1001 / test

wen ich jetzt test eingebe das automatisch die Artikelnummer in spalte A zugefügt wird.

Wie muss ich das machen.

besten dank im vorraus

Marc

Answer 1

Hallo Marc,

das geht mit SVERWEIS().

Wenn Du mit der Beschreibung zu dieser Funktion in der Hilfe nicht klar kommst, müsstest Du mal eine Beispieldatei ins Netz stellen und nach hier verlinken.

Könntest diese Upload-Adresse dazu verwenden.

Gruss
Rainer

Answer 2

hi all ^^

ein beispiel

gruss nighty

einzufuegen
alt+f11/projektexplorer/DeineTabelle

Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim suche As Range
If Selection.Count = 1 Then
If Target.Column = 1 Then
Set suche = Range("A:A").Find(Cells(Target.Row, 1))
If Not suche Is Nothing Then
Cells(Target.Row, 2) = Cells(suche.Row, 2)
End If
End If
If Target.Column = 2 Then
Set suche = Range("B:B").Find(Cells(Target.Row, 2))
If Not suche Is Nothing Then
Cells(Target.Row, 1) = Cells(suche.Row, 1)
End If
End If
End If
Application.EnableEvents = True
End Sub

Answer 3

Hallo zusammen

besten dank es hat funktioniert.

grüsse marc