PDA

Vollständige Version anzeigen : Zahlenkombination mit Wörtern verknüpfen


Bigsash99
12.07.2015, 14:27
Hallo,

ich habe folgendes vor. Ich möchte in Spalte "H" eine Zahlenkombination eingeben und in Spalte "X" der gleichen Zeile soll dafür ein bestimmtes Wort erscheinen. Wie kann ich das mit VBA realisieren? Noch eine Anmerkung ich habe nebenbei auch noch das hier zu laufen:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo EventsAn
With Target
If .Count > 1 Then Exit Sub 'Mehrfachmarkierungen ausschließen
If .Column = 24 Then 'nur für Spalte X
Application.EnableEvents = False
If .Value = "" Then Application.EnableEvents = True: Exit Sub
.Value = .Value & " / " & .Offset(0, -9) & " / " & .Offset(0, -8) & " / " & .Offset(0, -7)
End If
End With
EventsAn: Application.EnableEvents = True
End Sub


Nicht das sich das nachher miteinander beißt. Vielen Dank schon mal im vorraus.

Hajo_Zi
12.07.2015, 14:51
sollte man die Aufgabe nicht komplett beschreiben. Nein die Anpassung wolltest Du selber vornehmen. Ich bin dann raus.
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
If CallByName(Selection, IIf(Val( _
Application.Version) > 11, "CountLarge", "Count"), VbGet) = 1 Then
' von Nepumuk
With Target
If .Column = 24 Then 'nur für Spalte X
If .Value <> "" Then
On Error GoTo EventsAn
Application.EnableEvents = False
.Value = .Value & " / " & .Offset(0, -9) & " / " & .Offset(0, -8) & " / " & .Offset(0, -7)
On Error GoTo 0
End If
Else
If .Column = 8 Then 'nur für Spalte H
If .Value <> "" Then
Application.EnableEvents = False
Target.Offset(0, 16) = "ein bestimmtes Wort"
End If
End If
End If
End With
End If
EventsAn:
Application.EnableEvents = True
End Sub


<img src="http://Hajo-Excel.de/images/grusz1.gif" align="middle" height="40" alt="Grußformel"><a href="http://Hajo-Excel.de/index.htm"><img border="0" src="http://Hajo-Excel.de/images/logo_hajo3.gif" align="middle" height="40" alt="Homepage"></a>

Bigsash99
12.07.2015, 15:05
Und wo baue ich jetzt die Zahlenkombination ein?

Hajo_Zi
12.07.2015, 15:21
nirgends da sie eingegeben wird.

<a href="http://Hajo-Excel.de/index.htm" target="_blank" title="Hajo's Excelseiten">Gruß Hajo</a>

Bigsash99
12.07.2015, 17:37
eine Zahlenkombination soll nur einen festen Wert haben.
Beispiel:
0815=Beispiel1
9999=Test1
5843=Vergleich

usw.