Werte für Makro aus Zellen übernehmen
05.09.2021 13:06:42
Thomas
ich hänge etwas fest und würde Euch gern um Helfe bzw. Anregungen fragen.
In den untenaufgeführten Skipt --> Zeile 6, sollen die "Koordinaten" d83 und d292 aus Zellen übernommen werden.
Also steht z.B. in Zelle AH28 "d" in Zelle AH29 "83" und in Zelle AH30 "292".
Wie kann ich das umsetzen?
Hat jemand einen Vorschlag?
Tausend Dank
Thomas
Sub hide_rows_WOT()
Dim xRg As Range
Dim BereichRg As Range
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
For Each xRg In Range("d83:d292") '268'292' 456
If IsError(xRg.Value) Then
xRg.EntireRow.Hidden = True
ElseIf xRg.Value = "" Or xRg.Value = 0 Or xRg.Value = "Ds [mm]" Or xRg.Value = "ks [mm]" Then
If BereichRg Is Nothing Then
Set BereichRg = xRg
Else
Set BereichRg = Union(BereichRg, xRg)
End If
ElseIf xRg.DisplayFormat.Interior.Color = RGB(226, 239, 218) Or xRg.DisplayFormat.Interior.Color = RGB(252, 228, 214) Or xRg.DisplayFormat.Interior.Color = RGB(255, 230, 153) Then 'grüne, rote u. Markierung, rote M
If BereichRg Is Nothing Then
Set BereichRg = xRg
Else
Set BereichRg = Union(BereichRg, xRg)
End If
Else
xRg.EntireRow.Hidden = False
End If
Next xRg
If Not BereichRg Is Nothing Then BereichRg.EntireRow.Hidden = True
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub