Folgendes Makro habe ich aufgezeichnet:
Sub Markieren()
Range("D16,B16,F16,H16,J16").Select
Range("J16").Activate
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Range("J16").Select
End Sub
Jetzt möchte ich dabei den Wert für die Zeile 16 durch den jeweils aktuellen Wert der aktiven Zelle ersetzen. Daher hebe ich eine Variable (Reihe) als Byte angelegt (Reihe = ActiveCell.Row). Aber ich bekomme diese Variable einfach nicht in der Range >Range("D16,B16,F16,H16,J16").Select Wie funktioniert das?
>Range("D & Reihe,B & Reihe,F...").Select >Range(""D:" & Reihe,"B:" & Reihe,"F:" ...").Select >Range(""D" & Reihe,"B" & Reihe,"F" ...").Select Und viel mehr fällt mir heute morgen dazu nicht ein...
Vielen Dank im voraus, Jürgen