MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 10.09.2019, 22:23   #1
FrankyHB
Neuer Benutzer
Neuer Benutzer
Standard Excel 2013 - Reihenfolge der Zellen unterbrechen

Hallo, ich habe ein Formularblatt in Excel erstellt in dem ich die Reihenfolge der Zellen festgelegt habe.

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim i As Integer

' Static strA As String
Select Case strA
Case "$B$4" 'Start in B4
Range("B6").Activate 'Sprung nach B6
Case "$B$6"
Range("B8").Activate
Case "$B$8"
Range("E8").Activate
Case "$E$8"
Range("B10").Activate
Case "$B$10"
Range("B12").Activate
Case "$B$12"

Range("E4").Activate
End Select

strA = ActiveCell.Address

End Sub


Wenn ich bei der Dateneingabe etwas vergessen habe und möchte mit der Maus auf die entsprechende Zelle gehen, wird die Reihenfolge der Zellen erst komplett bis zum Ende durchgeführt.

Ich suche nach einer Mögichkeit, durch Aktivierung einer Zelle mit der Maus die Reihenfolge zu unterbrechen bzw. diese nach Aktualisierung wieder fortzusetzten.

Wäre toll wenn mir jemand weiterhelfen könnte.

Gruss Frank
FrankyHB ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.09.2019, 04:46   #2
Hajo_Zi
MOF Guru
MOF Guru
Standard

Hallo Frank,

lösche denm gesamten Code da er nichts macht. Die Variable strA ist bei jeder Aktion Leer.
Jedenfalls in meiner Datei.

GrußformelHomepage

__________________

Signatur in jedem Beitrag
Bitte Version angeben. Bei keiner Angabe gehe ich von meinen Angaben aus.
Betriebssystem: Windows 10 - 64 Bit, Office 2016 - 32 Bit.
Fragen werden im Forum beantwortet, nicht per PN.

Beitrag bewerten.
Am Beitrag unten Links, mittleres Symbol, rechte Maustaste, im neuen Fenster öffnen.
Hajo_Zi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.09.2019, 07:46   #3
EarlFred
MOF Guru
MOF Guru
Standard

Application.EnableEvents = False bzw. = True vor bzw. hinter deinen Code.

__________________

Datum und Uhrzeit, Makrorekorder-Code entschlacken, {Matrixformeln}
Tutorials zu Pivottabellen: Kurzeinstieg; Dynamischer Datenbereich; Daten und Zeiten gruppieren
Für 8 meiner Beiträge haben sich die Hilfesuchenden mit einer Spende an Wikipedia, die Tafeln oder Hilfe für krebskranke Kinder eV bedankt (das entspricht 0,054% per 13.08.2019) - eine tolle Geste!
EarlFred ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.09.2019, 22:03   #4
FrankyHB
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Fred,

leider klappt das nicht.

Um es noch einmal deutlicher zu machen, beim drücken der Enter-Taste springt der Courser auf die von mir festgelegte nächte Zelle.

Das klappt auch wunderbar.

Doch wenn ich einen z.B. einen Schreibfehler entdecke und klicke auf die entsprechende Zelle um diesen zu korrigieren oder etwas anderer einzugeben, dann arbeitet das Programm erst alle Zellen der Reihenfolge ab und ich muss solange die Enter-Taste drücken bis die zu ändernde Zelle wieder an der Reihe ist.

Wie kann ich das ändern?
Oder gibt es deinen besseren VBA-Code um die Reihenfolge der Zellen festzulegen?

Gruß Frank
FrankyHB ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.09.2019, 23:44   #5
WS-53
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Frank,

mit folgendem Code klappt es bei mir:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim i As Integer

Select Case Target.Address
Case "$C$4" 'Start in B4
Range("B6").Activate 'Sprung nach B6
Case "$C$6"
Range("B8").Activate
Case "$C$8"
Range("E8").Activate
Case "$F$8"
Range("B10").Activate
Case "$C$10"
Range("B12").Activate
Case "$C$12"

Range("E4").Activate
End Select

End Sub

Wenn du eine Eingabe in den genannten Zellen mit Enter oder Pfeil rechts bestätigt springt er eine Zelle nach rechts und von dort direkt in das nächste Ziel. Somit kannst du jederzeit eine vergesse Eingabe nachholen bzw, korrigieren.

__________________

VG, WS-53


>>> Ein Spezialist kann nicht viel, dies aber gut. Die Steigerung ist, noch weniger noch besser zu können. Die Krönung ist, nichts zu können, aber darin perfekt zu sein! Es gibt aber auch Naturtalente, die überspringen die Ersten beiden Stufen. <<<
<FONT SIZE="1">
Übrigens, Feedback, egal welcher Art, ist immer hilfreich. Und erledigte Beiträge sollten auch den Status "erledigt" erhalten.

Geändert von WS-53 (11.09.2019 um 23:57 Uhr).
WS-53 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.09.2019, 21:57   #6
FrankyHB
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

ich habe hier die Beispiel Datei hochgeladen.

Ich hoffe ihr könnt mir weiterhelfen.
Angehängte Dateien
Dateityp: xlsm Beispiel.xlsm (40,7 KB, 1x aufgerufen)
FrankyHB ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2019, 07:00   #7
WS-53
MOF Koryphäe
MOF Koryphäe
Standard

Hallo,

anbei die angepasste Version, bei der es, nach meinem Empfinden, wie gewünscht funktioniert.

Damit dies aber, wie bereits im letzten Beitrag beschreiben, funktioniert, musste ich die jewils rechts liegend Zellen entsperren. Denn sonst werden diese bei "Enter" nicht angesprungen und die Abfragen würden somit ins leere laufen.
Angehängte Dateien
Dateityp: xlsm mof - Reihenfolge der Zellen unterbrechen.xlsm (37,4 KB, 3x aufgerufen)

__________________

VG, WS-53


>>> Ein Spezialist kann nicht viel, dies aber gut. Die Steigerung ist, noch weniger noch besser zu können. Die Krönung ist, nichts zu können, aber darin perfekt zu sein! Es gibt aber auch Naturtalente, die überspringen die Ersten beiden Stufen. <<<
<FONT SIZE="1">
Übrigens, Feedback, egal welcher Art, ist immer hilfreich. Und erledigte Beiträge sollten auch den Status "erledigt" erhalten.

Geändert von WS-53 (13.09.2019 um 07:32 Uhr).
WS-53 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 13.09.2019, 22:36   #8
FrankyHB
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Vielen Dank für deine Hilfe - klappt jetzt sehr gut.

So hatte ich mir das gedacht.

Jetzt fehlt mir nur noch eine Lösung die ComboBox in diese Rehenfolge mit einzubeziehen.
FrankyHB ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 06:12 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.