Hallo zusammen,
ich habe beim Makro ein Problem mit einer Schleife, dass ich nicht gelöst bekomme. Folgendes möchte in machen:
Wenn in irgendeiner Reihe der Spalte E eine Zahl zwischen 0 - 8 eingegeben wird, soll diese Zahl sofort und automatisch durch einen Buchstaben (A - I) ersetzt werden (also Eingabe 0, Änderung des Wertes auf A, Eingabe 1, Änderung des Wertes auf B usw.).
Weiß jemand, wie man dies lösen kann??
Besten Dank schon mal für euer Bemühen!
Viele Grüße
Christian
Im VB-Code zum Arbeitblatt:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sValue As String
’ nur in Spalte E
If Target.Column = 5 Then
sValue = Target.Text
If sValue = „0“ Then
Target.Value = „A“
ElseIf Val(sValue) > 0 And Val(sValue)
Hallo Frank,
funtioniert perfekt, vielen, vielen Dank!
Gruß
Christian
Hallo Frank,
kannst du mir bitte sagen, was ich im Code ändern muss, wenn ich statt der Buchstaben A - I irgendwelche anderen Werte einsetzen möchte?
Besten Dank vorab!
Gruß
Christian
kannst du mir bitte sagen, was ich im Code ändern muss, wenn
ich statt der Buchstaben A - I irgendwelche anderen Werte
einsetzen möchte?
Hi Christian,
die Reihenfolge in der Klammer bei
Array(„A“, „B“, „C“, „D“,…
legt fest welcher Buchstabe erscheint. Erster Buchstabe der dort steht kommt bei 0, der zweite bei 1, der dritte bei 2 usw. bis zum neunten Buchstaben der bei 8 kommt.
Natürlich geht auch dieses:
Array(„Hans“, „Peter“, „Claudia“, „Kim“, …
Private Sub Worksheet\_Change(ByVal Target As Range)
Dim Buchst
If Target.Column 5 Or Target.Cells.Count 1 Then Exit Sub
Buchst = Array("A", "B", "C", "D", "E", "F", "G", "H", "I")
If Len(Target.Value) = 1 And Target.Value \>= "0" And Target.Value
Gruß
Reinhard
Hallo Reinhard,
vielen lieben Dank für deine Antwort, klappt perfekt!
Gruß
Christian