Zellbezüge in Makro ändern - bitte um Hilfe
11.02.2017 13:05:42
Jenny
an Werner, falls du das liest, ich bin die Jenny, mit der noch das größere Makro ansteht, aber hier geht es um eine völlig andere Mappe, das hat nichts miteinander zu tun.
Habe unten stehendes Makro,
lässt sich das irgendwie ändern, vorher wurde zwischen der Zeile 8 und 104 jede 12. Zeile genommen, jetzt soll jede 2. Zeile mit unterstrichenem Text genommen werden, man kann es leider nicht mehr an exakten Zeilen festmachen.
Und es sind jetzt 12 Zeilen, wo die HL Adresse genommen werden soll, nicht mehr 9 wie vorher.
Ansonsten soll das Makro weiterhin machen, was es auch bislang getan hat, nur halt andere Zeilen als Quelle nehmen.
Lässt sich das abändern?
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngZeile As Long
Dim lngZiel As Long
Dim shaShape As Shape
If Target.Cells(1).Address(False, False) = "A1" Then
With Worksheets("Tabelle2")
If .Range("A1") = "" Then
lngZiel = 1
Else
lngZiel = IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(.Rows.Count, 1).End(xlUp). _
_
Row, .Rows.Count) + 1
End If
For lngZeile = 8 To 104 Step 12
If Cells(lngZeile, 1).Hyperlinks.Count > 0 Then
.Cells(lngZiel, 1) = Cells(lngZeile, 1).Hyperlinks(1).Address
lngZiel = lngZiel + 1
End If
Next lngZeile
End With
Application.EnableEvents = False
ActiveSheet.Cells.Clear
Application.EnableEvents = True
For Each shaShape In ActiveSheet.Shapes
shaShape.Delete
Next shaShape
End If
End Sub