Sub letzte_Zelle_mit_gelber_Füllfarbe()
lz = Cells(Rows.Count, 2).End(xlUp).Row
For i = lz To 1 Step -1
If Cells(i, 2).Interior.ColorIndex = 6 Then
MsgBox "Letzte Zelle mit gelber Füllfarbe " & Cells(i, 2).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Exit For
End If
Next i
End Sub
Sub letzte_Zelle_mit_gelber_Füllfarbe()
For i = 65536 To 1 Step -1
If Cells(i, 2).Interior.ColorIndex = 6 Then
MsgBox "Letzte Zelle mit gelber Füllfarbe " & Cells(i, 2).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Exit For
End If
Next i
End Sub
Sub letzte_Zelle_mit_gelber_Füllfarbe()
Dim I As Long
For I = 65536 To 1 Step -1
If Cells(I, 2).Interior.ColorIndex = 6 Then
Range("B1:B" & I).Copy Destination:=Range("D2")
' MsgBox "Letzte Zelle mit gelber Füllfarbe " & Cells(I, 2).Address(RowAbsolute:=False, _
' ColumnAbsolute:=False)
Exit For
End If
Next I
End Sub
Sub Makro1()
Dim I As Long
For I = 65536 To 1 Step -1
If Cells(I, 1).Interior.ColorIndex = 36 Then
Range("a3:c" & I).Copy Destination:=Sheets("Tabelle1").Range("a1")
Exit For
End If
Next I
End Sub
Sub Makro1()
Dim LoE As Long
Dim LoA As Long
For LoE = 65536 To 1 Step -1
If Cells(LoE, 1).Interior.ColorIndex = 36 Then Exit For
Next LoE
For LoA = 1 To LoE
If Cells(LoA, 1).Interior.ColorIndex = 36 Then Exit For
Next LoA
Range(Cells(LoA, 1), Cells(LoE, 3)).Copy Destination:=Sheets("Tabelle1").Range("a1")
End Sub
Private Sub Farbindex36_finden()
Dim Lz$, dblC#, Zelle, sBereich$
On Error GoTo Fehler:
Lz = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address
dblC = 36 'Range(RefEdit1.Value).Interior.Color
For Each Zelle In Range("A1:" & Lz)
If Zelle.Interior.ColorIndex = dblC Then sBereich = sBereich & Zelle.Address & ", "
Next
sBereich = VBA.Left(sBereich, VBA.Len(sBereich) - 2)
Range(sBereich).Select
'ab hier Dein Code für das was Du weiter vor hast...
Exit Sub
Fehler:
MsgBox "Colorindex 36 nicht gefunden"
End Sub
Private Sub Farbindex36_finden()
Dim Lz$, dblC#, Zelle, sBereich$
On Error GoTo Fehler:
Lz = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address
dblC = 36 'Range(RefEdit1.Value).Interior.Color
For Each Zelle In Range("A1:" & Lz)
If Zelle.Interior.ColorIndex = dblC Then sBereich = sBereich & Zelle.Address & ", "
Next
sBereich = VBA.Left(sBereich, VBA.Len(sBereich) - 2)
Range(sBereich).Select
'ab hier Dein Code für das was Du weiter vor hast...
Exit Sub
Fehler:
MsgBox "Colorindex 36 nicht gefunden"
End Sub