Zelleingabe nur Nummer eingeben

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$J$33" Then On Error GoTo ERREXIT Application.EnableEvents = False Target.FormulaLocal = "=B" & Target ' oder ' Target = Cells(Target, 2) ' oder ' Cells(Target, 2).Copy Target End If ERREXIT: Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next With Target If .Address = "$J$33" Then Application.EnableEvents = False .Offset(0, 1) = Cells(.Value, 2) Application.EnableEvents = True End If End With On Error GoTo 0 End Sub

Hallo an alle Rätsel Profis ... ??

die von Wolfgang gewünschte Aufgabenstellung ist doch in dieser AW eindeutig beschrieben. Was ist daran so rätselhaft??
Hallo Piet: If Target.adress("J33", "J36") Then Ex -
Wer lesen kann und seinen Text gelesen hat begreift doch was er will, oder bin ich ein -PSI Ausnahme Mensch- im Forum??

Für Wolfgang, zum VBA lernen. Habe ich nur eine Adresse benutze ich gerne Target.Address > "xxx" und dahinter Exit Sub.
Bei zusammenhängender Adresse nimmt man üblicherweise den Befehl Intersect mit Range(Bereich) zum Auswerten.
Bei Einzelzellen lade ich die Target.Adresse in eine Variable und dahinter IF Then mit Adr1 Or Adr2 Or Adr3 (s. unten)

Welche Variante man benutzt ist letztendlich egal, Hauptsache die Auswertung funktioniert.
Wenn du meine Gedanken verstanden hast kannst du den Code auch selbst auf weitere Adressen umschreiben.

mfg Piet

Dim Adr As String

Private Sub Worksheet_Change(ByVal Target As Range)
Adr = Target.Address(0, 0)  ' J33, J36, J39 und J42
If Adr = "J33" Or Adr = "J36" Or Adr = "J39" Or Adr = "J42" Then
   If Target.Value = Empty Then Exit Sub
   If IsNumeric(Target) Then Target = "B" & Target
End If
End Sub

"Der wird schon seine Gründe haben" mag ja sein. Aber ich habe die Erfahrung gemacht, dass sehr viele Leute, die ein Excelproblem haben, auch glauben, wie sie es lösen könnten, wenn sie genug Excel- bzw VBA-Kenntnisse hätten.
Wenn man aber die Hintergründe (das Warum) hinterfragt, erkennt man oft, dass das völlig überflüssig oder viel zu kompliziert gedacht ist und dass ein anderer Lösungsweg das Problem gar nicht erst entstehen lässt bzw spielend lösbar macht. Sehr oft ist auch das Problem durch das hirnrissige Konzept des Blattes selbstproduziert.
Ähnlich wie wenn ein Patient zum Arzt geht und von ihm Medikamente gegen sein Sodbrennen verlangt, der Arzt aber ihn untersucht und ihm eine Diät verpasst und Medikamente gegen sein Magengeschwür gibt, statt nur die Symptome zu bekämpfen.

Beliebteste Forumthreads (12 Monate)

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelleingabe nur Nummer eingeben

31 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

31
Beiträge zum Forumthread

Beiträge zu diesem Forumthread