Wenn Zelle in Zellbereich, dann Zelle dahinter
17.07.2017 09:25:14
Bonnet
ich habe folgendes Problem:
Ich möchte eine Tabelle mit Prüfgeräten erstellen.
In der Ersten Spalte soll das jeweilige Gerät durch eine mit Datenüberprüfung erstellte Liste ausgewählt werden.
In der Zelle dahinter soll dann automatisch die Prüfgerätenummer und eine weitere Zelle dahinter der Gerätehersteller erscheinen.
Das Problem ist, dass ein Gerät nie unbedingt in der gleichen Zelle der Spalte A ausgewählt wird.
Ich habe das ganze bis jetzt mal nur mit der Nummer versucht und bin leider gescheitert.
Hier mein Code bisher:
Sub Geräte()
Dim Gerät1 As String
Dim Gerät2 As String
Dim Nummer1 As String
Gerät1 = "SPC21"
Nummer1 = "101101"
If ActiveSheet.Range("A1:A32") = Gerät1 Then
ActiveCell.Offset(0, 1) = Nummer1
End If
End Sub
GrußSebastian