Hyperlink
14.08.2006 12:24:22
Eisnic
ich habe ein kleines Problemchen :o( Vielleicht kann mir jemand weiterhelfen...hier die Problematik:
Ich habe eine Excel-Datei mit vorerst 1 Tabellenblatt. In diesem Tabellenblatt stehen in Zeile 2 diverse Zahlen, welche die Länge der Zellen festlegen sollen. Diese Länge wird in einem Makro geprüft. Überschreitet eine Zelle die vorgegebene Länge, wird dieses Feld gelb markiert, ein zweites Tabellenblatt angelegt und die Fehlermeldung dort ausgegeben. Mein Problem ist nun, dass ich gerne fuer jede Fehlermeldung einen Hyperlink erstellen moechte, der einen in das fehlerhafte Feld in Tabellenblatt 1 fuehrt. Der Code, den ich bisher habe, sieht folgendermassen aus:
Sub laenge_pruefen()
Dim lZeile As Long
Dim iSpalte As Integer
Rows(2).NumberFormat = "0"
Rows(2).Value = Rows(2).Value
For iSpalte = 1 To Range("IV2").End(xlToLeft).Column
For lZeile = 6 To Range("A65536").End(xlUp).Row
If Len(Cells(lZeile, iSpalte)) > Cells(2, iSpalte).Value Then Cells(lZeile, iSpalte).Interior.ColorIndex = 6
Next lZeile
Next iSpalte
Dim c As Range, wks As Worksheet
For Each wks In Worksheets
If wks.Name = "Prüfungen" Then
Application.DisplayAlerts = False
wks.Delete
Application.DisplayAlerts = True
End If
Next
For Each c In Sheets("Satzaufbau").UsedRange
If c.Interior.ColorIndex = 6 Then
On Error Resume Next
Set wks = Sheets("Pruefungen")
On Error GoTo 0
If wks Is Nothing Then
Set wks = Worksheets.Add
wks.Name = "Prüfungen"
wks.Move After:=Sheets(4)
End If
wks.Range("A65536").End(xlUp).Offset(1, 0).Value = "Feld " & c.Address & " ist zu lang"
End If
Next c
End Sub