Microsoft Excel

Herbers Excel/VBA-Archiv

Position einer Tabelle bestimmen | Herbers Excel-Forum


Betrifft: Position einer Tabelle bestimmen von: Peter
Geschrieben am: 07.01.2010 16:04:31

Guten Tag

Gibt es eine Möglichkeit, mit VBA die Position x-te sichtbare Tabelle von links, resp. x-te sichtbare Tabelle von rechts gezählt zu bestimmen?
Am besten mit einer User definierten Funktion, die dann in einem Tabellenblatt verwendet werden kann (für die Tabelle "abc" z.B. =posLi("abc") resp. posRe("abc")

Danke für jeden Hinweis.

Gruss, Peter

  

Betrifft: AW: Beispieldatei von: Daniel
Geschrieben am: 07.01.2010 16:07:38

Hi
könntest du mal eine Beispieldatei hochladen mit den Tabellen und wie das Ergebnis aussehen soll?
Das würde die Problemlösung etwas vereinfachen.

Gruß, Daniel


  

Betrifft: AW: Position einer Tabelle bestimmen von: Rudi Maintaire
Geschrieben am: 07.01.2010 16:13:02

Hallo,
sowas?

Function PosLi(sTab As String) As Integer
  Dim i As Integer
  For i = 1 To Sheets.Count
    PosLi = PosLi - Sheets(i).Visible
    If Sheets(i).Name = sTab Then Exit Function
  Next
End Function

Function PosRe(sTab As String) As Integer
  Dim i As Integer
  For i = Sheets.Count To 1 Step -1
    PosRe = PosRe - Sheets(i).Visible
    If Sheets(i).Name = sTab Then Exit Function
  Next
End Function

Gruß
Rudi


  

Betrifft: AW: Position einer Tabelle bestimmen von: Peter
Geschrieben am: 07.01.2010 16:15:54

Hallo Rudi
Haargenau!
Vielen Dank
Gruss, Peter


  

Betrifft: AW: Position einer Tabelle bestimmen von: Peter
Geschrieben am: 07.01.2010 17:05:43

Hallo
Ich habe noch eine Anschlussfrage:
Wie muss der Code verändert werden, wenn die Position bestimmt werden soll, ohne Berücksichtigung ob Sheets ausgeblendet sind oder nicht?
Gruss, Peter


  

Betrifft: dann ists einfacher von: Rudi Maintaire
Geschrieben am: 07.01.2010 17:35:13

Hallo,

Function PosLi(sTab As String) As Integer
  PosLi = Sheets(sTab).Index
End Function

Function PosRe(sTab As String) As Integer
  PosRe = Sheets.Count - Sheets(sTab).Index + 1
End Function

Gruß
Rudi


  

Betrifft: AW: dann ists einfacher von: Peter
Geschrieben am: 07.01.2010 18:22:05

Hallo Rudi
Vielen Dank
Peter


Beiträge aus den Excel-Beispielen zum Thema "Position einer Tabelle bestimmen"