ich habe eine Tabelle mit und ohne farbig markierten Werten. Die farbigen möchte ich gerne mit zugehörigem Wert aus der ersten Spalte lückenlos in einer neuen Tabelle ausgeben.
Mein Code funktioniert nicht ganz. Er gibt mir die farbigen Werte in der Salte wieder, wie in der Ausgangstabelle. Da zu unübersichtlich, möchte ich die Daten nacheinander wiedergegeben haben.
Sub Beispie()
Dim Zeile As Range
Dim a, b%
For a = 2 To 54 'Zeile
For b = 7 To 72 'Spalte
If Sheets(1).Cells(a, b).Interior.ColorIndex = 3 And _
Cells(a, b).Font.ColorIndex = 2 Then
Sheets(2).Cells(a, 1) = Sheets(1).Cells(a, 5)
Sheets(2).Cells(a, b - 5) = Sheets(1).Cells(a, b) & " " & Sheets(1).Cells(1, b)
End If
Next b
Next a
Cells(1, 1).Select
End Sub
Wer kann mir helfen?
Danke und Gruss