Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
660to664
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
660to664
660to664
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Werte mit Namen verbinden

Werte mit Namen verbinden
02.09.2005 10:22:36
Alex
Hallo zusammen,
ich habe eine Tabelle wo in eine Spalte Zahlen eingegeben werden. Diese Zahlen stehe für verscheidene Produkte. z.B. 1=Wasser;2=Bier:3=Cola
Ist es möglich, dass wenn ich eine 1 in die entsprechende Zelle eingebe, der Name "Wasser" automatisch für diese Zelle vergeben wird?
Vielen Dank
Alexander

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Werte mit Namen verbinden
02.09.2005 12:13:56
u_
Hallo,
in den Code der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim arrDrink, n As Name, i As Integer, blnName As Boolean
If Target.Cells.Count > 1 Then Exit Sub
arrDrink = Array("", "Wasser", "Bier", "Cola", "Fanta", "Saft", "Wein")
Select Case Target
Case 1 To UBound(arrDrink)
For Each n In ActiveWorkbook.Names
For i = 1 To UBound(arrDrink)
If n.Name = arrDrink(i) Then
MsgBox "Name vorhanden"
Exit Sub
End If
Next i
Next n
Target.Name = arrDrink(Target)
End Select
End Sub

Gruß
Geist ist geil!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige