Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Automatisch zur nächsten Zelle springen (ohne Tab)

Automatisch zur nächsten Zelle springen (ohne Tab)
22.02.2004 19:16:23
Thomas
Hallo,
ich möchte für "Masseneingaben" Folgendes erreichen:
Im Tabellenblatt sollen Zahlen eingegeben werden und zwar in A2 eine einstellige Zahl, in B2 eine vierstellige Zahl, in C2 eine sechsstellige Zahl.
Beim Erreichen der Feldlänge (1, 4 bzw. 6) soll die Gültigkeit geprüft werden (nur Eingabe von Zahlen zulässig) und wenn Prüfung erfolgreich war, soll "automatisch" zur nächsten Zelle gesprungen werden (ohne Tab- bzw. Entertaste). Nach C2 soll dann in die nächste Zeile (A3) gesprungen werden.
Läßt sich das bewerkstelligen? Vielen Dank fürs Grübeln.
Thomas

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Automatisch zur nächsten Zelle springen (ohne Tab)
22.02.2004 19:39:07
Nepumuk
Hallo Thomas,
nur mit Hilfe eines Userforms. Sollen nur ganze Zahlen zulässig sein, oder sind auch Kommastellen erlaubt?
Gruß
Nepumuk
AW: Automatisch zur nächsten Zelle springen (ohne Tab)
22.02.2004 19:49:16
Thomas
Hallo Nepumuk,
es sind nur ganze Zahlen erlaubt, keine Kommastellen.
Danke und Gruß
Thomas
AW: danke
22.02.2004 20:40:05
Thomas
Hallo Nepumuk,
super :-)))
vielen vielen Dank
Thomas
AW: Automatisch zur nächsten Zelle springen (ohne
22.02.2004 21:17:21
Reinhard
Hi Thomas,
probiers mal mit nachfolgendem Code.
Leider klappte die Parameterübergabe an "check(x as Integer)" nicht, wie zB so:
Application.OnKey "0", "check(""0"")" o.ä.
Gruß
Reinhard

Sub Ein()
Application.OnKey "0", "check0"
Application.OnKey "1", "check1"
Application.OnKey "2", "check2"
Application.OnKey "3", "check3"
Application.OnKey "4", "check4"
Application.OnKey "5", "check5"
Application.OnKey "6", "check6"
Application.OnKey "7", "check7"
Application.OnKey "8", "check8"
Application.OnKey "9", "check9"
End Sub



Sub Aus()
Application.OnKey "0"
Application.OnKey "1"
Application.OnKey "2"
Application.OnKey "3"
Application.OnKey "4"
Application.OnKey "5"
Application.OnKey "6"
Application.OnKey "7"
Application.OnKey "8"
Application.OnKey "9"
End Sub



Sub check0()
x = 0
If ActiveCell.Row > 1 Then
Select Case ActiveCell.Column
Case 1
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 1 Then ActiveCell.Select
Case 2
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 4 Then ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 4 Then ActiveCell.Select
Case 3
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 6 Then ActiveCell.Offset(1, -2).Select
If Len(ActiveCell.Value) > 6 Then ActiveCell.Select
Case Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End Select
Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End If
End Sub



Sub check1()
x = 1
If ActiveCell.Row > 1 Then
Select Case ActiveCell.Column
Case 1
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 1 Then ActiveCell.Select
Case 2
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 4 Then ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 4 Then ActiveCell.Select
Case 3
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 6 Then ActiveCell.Offset(1, -2).Select
If Len(ActiveCell.Value) > 6 Then ActiveCell.Select
Case Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End Select
Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End If
End Sub



Sub check2()
x = 2
If ActiveCell.Row > 1 Then
Select Case ActiveCell.Column
Case 1
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 1 Then ActiveCell.Select
Case 2
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 4 Then ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 4 Then ActiveCell.Select
Case 3
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 6 Then ActiveCell.Offset(1, -2).Select
If Len(ActiveCell.Value) > 6 Then ActiveCell.Select
Case Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End Select
Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End If
End Sub



Sub check3()
x = 3
If ActiveCell.Row > 1 Then
Select Case ActiveCell.Column
Case 1
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 1 Then ActiveCell.Select
Case 2
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 4 Then ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 4 Then ActiveCell.Select
Case 3
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 6 Then ActiveCell.Offset(1, -2).Select
If Len(ActiveCell.Value) > 6 Then ActiveCell.Select
Case Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End Select
Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End If
End Sub



Sub check4()
x = 4
If ActiveCell.Row > 1 Then
Select Case ActiveCell.Column
Case 1
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 1 Then ActiveCell.Select
Case 2
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 4 Then ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 4 Then ActiveCell.Select
Case 3
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 6 Then ActiveCell.Offset(1, -2).Select
If Len(ActiveCell.Value) > 6 Then ActiveCell.Select
Case Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End Select
Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End If
End Sub



Sub check5()
x = 5
If ActiveCell.Row > 1 Then
Select Case ActiveCell.Column
Case 1
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 1 Then ActiveCell.Select
Case 2
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 4 Then ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 4 Then ActiveCell.Select
Case 3
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 6 Then ActiveCell.Offset(1, -2).Select
If Len(ActiveCell.Value) > 6 Then ActiveCell.Select
Case Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End Select
Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End If
End Sub



Sub check6()
x = 6
If ActiveCell.Row > 1 Then
Select Case ActiveCell.Column
Case 1
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 1 Then ActiveCell.Select
Case 2
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 4 Then ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 4 Then ActiveCell.Select
Case 3
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 6 Then ActiveCell.Offset(1, -2).Select
If Len(ActiveCell.Value) > 6 Then ActiveCell.Select
Case Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End Select
Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End If
End Sub



Sub check7()
x = 7
If ActiveCell.Row > 1 Then
Select Case ActiveCell.Column
Case 1
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 1 Then ActiveCell.Select
Case 2
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 4 Then ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 4 Then ActiveCell.Select
Case 3
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 6 Then ActiveCell.Offset(1, -2).Select
If Len(ActiveCell.Value) > 6 Then ActiveCell.Select
Case Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End Select
Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End If
End Sub



Sub check8()
x = 8
If ActiveCell.Row > 1 Then
Select Case ActiveCell.Column
Case 1
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 1 Then ActiveCell.Select
Case 2
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 4 Then ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 4 Then ActiveCell.Select
Case 3
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 6 Then ActiveCell.Offset(1, -2).Select
If Len(ActiveCell.Value) > 6 Then ActiveCell.Select
Case Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End Select
Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End If
End Sub



Sub check9()
x = 9
If ActiveCell.Row > 1 Then
Select Case ActiveCell.Column
Case 1
ActiveCell.Value = x
ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 1 Then ActiveCell.Select
Case 2
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 4 Then ActiveCell.Offset(0, 1).Select
If Len(ActiveCell.Value) > 4 Then ActiveCell.Select
Case 3
ActiveCell.Value = ActiveCell.Value * 10 + x
If Len(ActiveCell.Value) = 6 Then ActiveCell.Offset(1, -2).Select
If Len(ActiveCell.Value) > 6 Then ActiveCell.Select
Case Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End Select
Else
ActiveCell.Value = ActiveCell.Value * 10 + x
End If
End Sub

Anzeige
AW: Automatisch zur nächsten Zelle springen (ohne
22.02.2004 22:38:55
Nepumuk
Hallo Reinhard,
die Idee ist an sich nicht schlecht, aber das funktioniert bei mir auf dem Ziffernblock nicht, sondern nur mit den Ziffern der Schreibmaschinentastatur.
Gruß
Nepumuk
AW: Automatisch zur nächsten Zelle springen (ohne
23.02.2004 20:28:23
Reinhard
Hallo Nepumuk,
hatte ich nicht getestet. Scheinbar kann man mit onkey nicht die Ziffern im Ziffernblock auswerten.
Gruß
Reinhard

309 Forumthreads zu ähnlichen Themen

VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
Anzeige
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Anzeige
VBA heutiges Datum finden und Inhalt der Zelle prü
NeptunesChild

Hallo Leutz,
ich möchte in einer Zeiterfassung auf einem Monatsblatt das heutige Datum finden, dann in einer anderen Spalte (5 weiter links) eine Uhrzeit eintragen. Zuvor soll aber die Kontrolle erfolgen, ob in der Zelle bereits etwas steht und ob dies kleiner ist, als die aktuelle Zeit. We...
06.11.2008 15:38:08
Thread-ID: 1022323
3 Beiträge
in farblich markierte Zelle springen
Maja

Hallo,
ich möchte in einem Excelblatt innerhalb eines bestimmten Zellbereichs diejenigen Zellen farblich anders markieren, die den Wert 0 aufweisen, die Namen dieser Zellen in einer MsgBox ausweisen und bei Klicken auf "OK" der MsgBox zur ersten der ausgegebenen markierten Zeile springen.
13.11.2008 15:11:05
Thread-ID: 1024246
6 Beiträge
Leere Zelle suchen, Wert eintragen VBA
andreas

Hallo zusammen,
habe ein kleines Formular mit zwei "Command-Button".
Bei drücken von "Zufügen" soll die nächst leere Zelle im Bereich "F3:J3500" gesucht werden und ein "x" eingetragen werden.
Bei drücken von "Entfernen" suche im selben Bereich die letzte ausgefüllte Zelle und diese...
19.11.2008 11:57:07
Thread-ID: 1025960
2 Beiträge
Per Makro zu einer bestimmten Zelle springen
Joachim

HI,
dank Eurer Hilfe weiss ich nun, wie ich meine Spalte prüfen kann:
For Each c In .Range("BD10:BD100")
If Not IsDate(c) And Not IsEmpty(c) Then
UserForm1.TextBox1 = "Cell " & c.Address & " is not a date !"
Exit Sub
End If
Next
Wenn es die Möglichkeit gi...
25.11.2008 08:16:21
Thread-ID: 1027553
5 Beiträge
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
16
4
5
3
2
2
5
1
4
4
4
2
2
2
4
5
2
2
4
2
4
2
3
7
2