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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen