Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
480to484
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
480to484
480to484
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mit TAB in bestimmte Zellen springen ?

Mit TAB in bestimmte Zellen springen ?
09.09.2004 11:19:13
Jens
Hallo zusammen,
ich möchte in dem Sheet "EINGABE" bewirken das man per TAB-Taste von der Zelle "D4" aus in dieser Reihenfolge von Zelle zu Zelle springt:
(D5, D6, D7, E4, F4, G4, H1)
So wie das in Internet-Dokumenten i.d.R. der Fall ist.
Gibt es da einen Weg?
Ich kann leider das Blatt nicht schützen, da sonst meine Pulldowns
der Pivottabelle nicht mehr nutzbar sind! (siehe Posting von mir "schutz trotz pivot" -vor wenigen Minuten)-die Lösungen im Archiv treffen für mich alle nicht zu. (ungesperrte Zellen + Blattschutz etc.) :-(
Freue mich über jeden Lösungsansatz!!
Gruß - Jens

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Mit TAB in bestimmte Zellen springen ?
AndreasSt
Hallo,
hier ein Ansatz:
In das Modul DieseArbeitsmappe:

Private Sub Workbook_Open()
Application.OnKey "{TAB}", "CursorWeiter"
Range("d5").Activate
End Sub

in ein "normales" Modul:
Sub CursorWeiter()
Select Case ActiveCell.Address
Case "$D$5"
.Range("d6").Activate
Case "$D$6"
.Range("d7").Activate
Case "$D$7"
.Range("e4").Activate
Case "$E$4"
.Range("f4").Activate
Case "$F$4"
.Range("g4").Activate
Case "$G$4"
.Range("h1").Activate
Case "$H$1"
.Range("d5").Activate
End Select
End Sub
Dann speichern und neu öffnen.
Das verhindert natürlich nicht, dass der User auch andere Zellen anklicken kann.
Gruß
Andreas
Anzeige
AW: Mit TAB in bestimmte Zellen springen ?
09.09.2004 14:04:05
Jens
Hallo Andreas,
erstmal vielen Dank!
Ich habe es gemacht, wie beschrieben, aber leider will es nicht, wie es soll!
Ich habe in "DieseArbeitsmappe" bereits diesen Code:
-------------------------------------

Private Sub Workbook_Open()
Worksheets(1).Visible = False
Worksheets(2).Visible = False
Worksheets(3).Visible = True
Worksheets(4).Visible = True
Worksheets(5).Visible = False
End Sub

-------------------------------------
- kann es vielleicht sein, daß das Problem darin liegt?
Gruß - Jens
AW: Mit TAB in bestimmte Zellen springen ?
AndreasSt
Hallo,
"..., aber leider will es nicht, wie es soll!"
Was heißt das? Passiert gar nichts? Kommt eine Fehlermeldung?
Anzeige
AW: Mit TAB in bestimmte Zellen springen ?
09.09.2004 14:55:30
Jens
Hi,
zunächst hatte ich den für "DieseArbeitsmappe" bestimmten ganzen Code eingefügt,
was beim ausführen die Meldung "..nicht eindeutig" hervorbrachte, da es ja( 

Private Sub Workbook_Open)
zweimal gab. Dann habe ich nur den Mittelteil (also nur die zweite u. dritte Zeile)
zwischen
(Worksheets(5).Visible = False)
und
(End Sub
)
(s.o.)eingefügt; dann gab es bei jedem 'TAB' eine Meldung, die ich jetzt leider nicht mehr genau wiedergeben kann.
Als letztes habe ich Deinen Code für "DieseArbeitsmappe" in das Tabellenblatt "EINGABE"
eingefügt, was auch eine Fehlermeldung bewirkte.
SORRY, in Zukunft mache ich gleich Screenshots dieser Fehlerhinweise!
So kann ich das gar nicht richtig wiedergeben :-(
Dir vielen Dank für den Versuch
Gruß - Jens
Anzeige
Ach so...
Udo
o
Mit TAB in bestimmte Zellen springen?
10.09.2004 11:04:10
Jens
Hallo zusammen,
leider habe ich noch keine Lösung für mein Problem.
d.h. eine arbeitsintensive Datei im Unternehmen (ca.100 User)
veröffentlichen OHNE irgend einen Schutz! :-((
Ohgott! Da sehe ich jetzt schon schwarz!!!!
(-kenne ja die "Pappenheimer"....)
BITTE, hat nicht doch noch jemand eine Idee?
Als Alternative zu dieser Idee (mit der TAB-Taste in bestimmter Reihenfolge zu springen)
wäre mir ja auch geholfen, wenn ich nur das Blatt oder die Datei schützen könnte!
(-der Schutz darf halt nicht verhindern in dem Pivot-Tabellen-Bericht eine neue Auswahl zu treffen!)
Gruß - Jens
Anzeige

304 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
Anzeige

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