onChange
04.12.2012 11:34:33
ptonka
ich habe folgendes onChange in meiner Tabelle "Tabelle1" hinterlegt:
Private Sub Worksheet_Change(ByVal target As Range)
Wert = target.Value
Spalte = ActiveCell.column
Zeile = ActiveCell.Row
Select Case Spalte
Case Is 1
Exit Sub
Case Is = 1
If Wert = "" Then Exit Sub
Cells(Zeile - 1, 5).Value = Cells(Zeile - 1, 1) & Cells(Zeile - 1, 2) & Cells(Zeile - 1, 3) & " _
1" & Cells(Zeile - 1, 4)
End Select
End Sub
Es sorgt lediglich dafür, dass bei einem Eintrag in Spalte A in Spalte E die Werte
aus A, B, C einer 1 und D kombiniert und in E ausgegeben werden.
Nun funtkioniert dies aber nur, wenn die Eingabe in A mit ENTER bestätigt wird.
Verlasse ich Spalte A mit TAB oder per Maus wird das onChange nicht ausgeführt.
Was kann ich tun, damit auch das funtkioniert?
Für einen Tipp wäre ich mehr als dankbar.
Gruß,
Ptonka