blätter, die mit "Abl" beginnen in eine übersicht eintragen

07/08/2009 - 14:39 von klaus.könig | Report spam
hallo

ich will alle blàtter, die mit abl beginnen in ein einegfügtes sheet
mit hyperlink eintragen. der folg code schreibt dabei nur ein
entsprechendes blatt.

hat jemand eine idee?

freue mich auf eine antwort klaus

'alle Blàtter, die mit Abl beginnen, werden in das Übersichtsblatt
eingetragen
For Each Blatt In Sheets
bolAbl = False
bolAbl = Left(Blatt.Name, 3) = "Abl"
If bolAbl = True Then
i = 2 'für die Zelle; erster Eintrag beginnt ab der
zweiten Zeile
iAbl = Blatt.Index
'erstellt den Link zum Ablöseblatt
With Worksheets(sName)
.Hyperlinks.Add _
anchor:=.Cells(i, 1), _
Address:="", _
SubAddress:="'" & Worksheets(iAbl).Name & "'!A1", _
TextToDisplay:=Worksheets(iAbl).Name

'erzeugt in Spalte B den Gesamtpreis der Maßnahme
.Range("B" & i).Value = _
Blatt.Range("K12").Value

'erzeugt in Spalte C den Gesamtpreis der Maßnahme
.Range("C" & i).Value = _
Blatt.Range("M12").Value
End With
i = i + 1

End If
Next Blatt
 

Lesen sie die antworten

#1 Claus Busch
07/08/2009 - 14:54 | Warnen spam
Hallo Klaus,

Am Fri, 7 Aug 2009 05:39:52 -0700 (PDT) schrieb klaus.könig:

ich will alle blàtter, die mit abl beginnen in ein einegfügtes sheet
mit hyperlink eintragen. der folg code schreibt dabei nur ein
entsprechendes blatt.



[Code ausgeschnitten]

probiers mal so für die Hyperlinks:
Sub Hyperlinks()

Dim ws As Worksheet
Dim sName As String
Dim i As Integer

sName = "Übersicht"
i = 1

For Each ws In Sheets
If Left(ws.Name, 3) = "Abl" Then
i = i + 1
With Sheets(sName)
.Hyperlinks.Add _
anchor:=.Cells(i, 1), _
Address:="", _
SubAddress:="'" & ws.Name & "'!A1", _
TextToDisplay:=ws.Name
End With
End If
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Ähnliche fragen