Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1124to1128
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
1124to1128
1124to1128
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Position einer Tabelle bestimmen

Position einer Tabelle bestimmen
Peter
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

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

Betreff
Benutzer
Anzeige
AW: Beispieldatei
07.01.2010 16:07:38
Daniel
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
AW: Position einer Tabelle bestimmen
07.01.2010 16:13:02
Rudi
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
Anzeige
AW: Position einer Tabelle bestimmen
07.01.2010 16:15:54
Peter
Hallo Rudi
Haargenau!
Vielen Dank
Gruss, Peter
AW: Position einer Tabelle bestimmen
07.01.2010 17:05:43
Peter
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
dann ists einfacher
07.01.2010 17:35:13
Rudi
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
AW: dann ists einfacher
07.01.2010 18:22:05
Peter
Hallo Rudi
Vielen Dank
Peter
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige