Thema Datum  Von Nutzer Rating
Antwort
16.05.2018 11:02:49 Dennis
NotSolved
16.05.2018 12:38:15 xlKing
NotSolved
16.05.2018 12:40:09 xlKing
NotSolved
16.05.2018 12:51:38 xlKing
NotSolved
16.05.2018 12:58:16 Gast32618
NotSolved
Blau Definierten Bereich in einer Tabelle nacheinander durchlaufen
 16.05.2018 12:48:08 Gast32618
Solved
16.05.2018 13:04:44 Gast225
NotSolved

Ansicht des Beitrags:
Von:
Gast32618		 Datum:
16.05.2018 12:48:08		 Views:
477		 Rating:
     
Antwort:
 Nein
Thema:
Definierten Bereich in einer Tabelle nacheinander durchlaufen		 
Option Explicit

Sub Test()
  
  Dim rngR As Excel.Range
  Dim rng As Excel.Range
  
  If Not TypeOf Selection Is Excel.Range _
    Then Exit Sub
  
  Set rngR = Selection.Parent.Range("B4:M34")
  Set rng = Selection.Cells(1)
  
  If rngR.Row <= rng.Row And rng.Row <= rngR.Rows(rngR.Rows.Count).Row _
  And rngR.Column <= rng.Column And rng.Column <= rngR.Columns(rngR.Columns.Count).Column Then
    If rng.Row < rngR.Rows(rngR.Rows.Count).Row Then
      rng.Offset(1, 0).Select
    ElseIf rng.Column < rngR.Columns(rngR.Columns.Count).Column Then
      rng.Offset(-rngR.Rows.Count + 1, 1).Select
    Else
      Call MsgBox("Ende erreicht.", vbExclamation)
    End If
  Else
    Call MsgBox("Cursor befindet sich außerhalb des gültigen Bereichs.", vbExclamation)
  End If
  
End Sub

So, vermute ich mal.

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
16.05.2018 11:02:49 Dennis
NotSolved
16.05.2018 12:38:15 xlKing
NotSolved
16.05.2018 12:40:09 xlKing
NotSolved
16.05.2018 12:51:38 xlKing
NotSolved
16.05.2018 12:58:16 Gast32618
NotSolved
Blau Definierten Bereich in einer Tabelle nacheinander durchlaufen
 16.05.2018 12:48:08 Gast32618
Solved
16.05.2018 13:04:44 Gast225
NotSolved