AW: Inputbox bei Aktivierung einer Zelle
05.10.2006 10:11:36
UweD
Hallo
- rechtsclick auf den Tabellenblattreiter unten
- Code anzeigen
- im neuen Fenster rechts den Code reinkopieren
Bei jeder Änderung der Zelle (nach Enter)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Eingabe$
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error GoTo Fehler
Eingabe = InputBox("Bitte Wert eintragen", "Eingabe über Inputbox")
Application.EnableEvents = False
'Inputbox in aktuelle Zelle schreiben
Target = Eingabe
'in weitere Zellen eintragen(Beispiel B bis E in der Zeile)
Range(Cells(Target.Row, 2), Cells(Target.Row, 5)) = Eingabe
End If
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub
soll die Box bereits vor der Eingabe in die Zelle erfolgen dann so (erste Zeile ist anders)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Eingabe$
If Not Intersect(Target, Range("A:A")) Is Nothing Then
On Error GoTo Fehler
Eingabe = InputBox("Bitte Wert eintragen", "Eingabe über Inputbox")
Application.EnableEvents = False
'Inputbox in aktuelle Zelle schreiben
Target = Eingabe
'in weitere Zellen eintragen(Beispiel B bis E in der Zeile)
Range(Cells(Target.Row, 2), Cells(Target.Row, 5)) = Eingabe
End If
Fehler:
If Err.Number <> 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
Application.EnableEvents = True
End Sub
Gruß UweD
(Rückmeldung wäre schön)