Zellinhalt prüfen; Code stoppen
31.08.2006 07:59:13
Erich
habe mit Hilfe des Forums nachstehenden Code, der bestimmte Namen der Tabellenblätter
in die spalte A als Liste mit Hyperlink einträgt. Da die Anzahl variabel ist,
habe ich jetzt das Problem, dass ein Eintrag dann unterbleiben soll, wenn
dadurch in Spalte A ein Zellinhalt "Gesamt" überschrieben werden soll.
Kann das innerhalb des Codes geprüft werden und dann gestoppt werden?
Beispiel: in Zeile 35 der Spalte A steht "Gesamt". Die Tabellenblätter sind
38 und würden deshalb bis unter die Zeile 34 eingetragen werden, 1 Zeile vor "Gesamt"
sollte aber gestoppt oder der Code mit einem Warnhinweis gar nicht ausgeführt werden.
Gesamt kommt in der Spalte A nur 1x vor. Evtl. könnte man ja die Zeilennummer
prüfen und dann die Tabellenblätter berechnen lassen? Der Code:
Sub Tabaktuell()
' by Boris von Herbers Forum
Dim i As Integer, k As Integer
For i = Worksheets("Beginn").Index + 1 To Worksheets("Ende").Index - 1
k = k + 1
With Worksheets("Gesamtübersicht")
.Cells(k + 2, 1) = Worksheets(i).Name
.Hyperlinks.Add anchor:=.Cells(k + 2, 1), Address:="", SubAddress:="'" & Worksheets(i).Name & "'!A1"
End With
Next i
End Sub
Besten Dank für eine Hilfe!
mfg
Erich
Private Tippgemeinschaft für Lotto oder Keno: http://www.kenostrategen.de