Knacknuss für Experten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Hajo und Nepumuk,
Bei allen Spalten darf nur eine Zahl (z.B. die einstellige Zahl 1) eingegeben werden mit Ausnahme von Spalte "K", wo zwei Zahlen (z.B. die zweistellige Zahl 32) und Spalte "AC" wo drei Zahlen (z.B. dei dreistellige Zahl 426) eingegeben werden sollen, und das immer, also nie Buchstaben. Es sollen alle Zahlen vorkommen in der Tabelle: von 1 bis 999.
Die Tabelle dient dazu, eine Auswertung zu machen. Zum besseren Verständnis ein Beispiel:
eine Familie hat bis 9 Kinder (Spalte A = 1)
Eine Familie hat bis 10 Zimmer (Spalte K = 10)
Eine Familie bezahlt Miete von 999 Euro (Spalte AC = 999) usw.
Damit all diese Zahlen, die eingegeben werden müssen effizient eingegeben werden können, hoffe ich, dass der Cursor nach dem Eingeben ohne Enterschlag auf die nächste Spalte springt. Wie du jedoch gesagt hast, ist es nicht möglich, ohne enter weiterzuspringen. Aber genau da liegt das "Problem". Ich möchte all diese Zahlen eingeben (x-tausende)ohne Enterschlag. Falls dies tatsächlich nicht machbar ist, so breche ich die Aktion ab und bedanke mich bereits jetzt schon im voraus und wünsche einen schönen Sonntag.
Gruss
Michel

Hallo
Ohne ENTER geht's aber nicht:

Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim dB  As Worksheet
Dim B   As Single
'Wenn Spalte>AZ dann abbruch
If Target.Column > 52 Then Exit Sub
Set dB = Worksheets("Tabelle1")
On Error GoTo Fehler
Application.EnableEvents = False
Select Case Target.Column
'Spalte K
Case 11
    If IsNumeric(dB.Range(Target.Address).Value) Then       'Abfrage, ob Zahl
        If dB.Range(Target.Address).Value = 55 Then
            dB.Range(Target.Address).Offset(0, 1).Select    'Sprung 1 Zellen nach rechts
        End If
    End If
'Spalte AC
Case 29
    If IsNumeric(dB.Range(Target.Address).Value) Then       'Abfrage, ob Zahl
        If dB.Range(Target.Address).Value = 555 Then
            dB.Range(Target.Address).Offset(0, 1).Select    'Sprung 1 Zellen nach rechts
        End If
    End If
Case Else
    If IsNumeric(dB.Range(Target.Address).Value) Then       'Abfrage, ob Zahl
        If dB.Range(Target.Address).Value = 5 Then
            dB.Range(Target.Address).Offset(0, 1).Select    'Sprung 1 Zellen nach rechts
        End If
    End If
End Select
Application.EnableEvents = True
Exit Sub
mfg, GraFri

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Knacknuss für Experten

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread