wenn die Füllfarbe in Spalte B rot oder grün ist, dann möchte ich die Formeln (siehe unten) eintragen.
Bei rot der delete-Befehl
Bei grün der rename-Befehl
Wie mache ich das per VBA?
Anbei ein Beispiel:
Vielen Dank im Voraus !
Liebe Grüße,
Selma
Sub test()
Dim Zelle As Range
For Each Zelle In Range(Range("B1"), Range("B1").End(xlDown))
Select Case Zelle.Interior.ColorIndex
Case 3 '--- rot
Zelle.Offset(0, 1).FormulaR1C1 _
= "=CONCATENATE(""delete "","""""""",RC[-2],"""""""",)"
Case 4 '--- grün
Zelle.Offset(0, 1).FormulaR1C1 = _
"=CONCATENATE(""rename "","""""""",RC[-2],"""""""","" "","""""""",RC[-1],"""""""")" _
Case Else
End Select
Next
End Sub
Gruß, Daniel
rename "C:\2008_06\2008_06_0011_r1.jpg" ThisWorkbook.Path & "2008_06_0011_neu.jpg"
so müsste das eigentlich klappen!?
Gruß
Uwe
(:o)
Sub test()
Dim Zelle As Range
For Each Zelle In Range(Range("A1"), Range("A1").End(xlDown))
Select Case Zelle.Interior.ColorIndex
Case 3 '--- rot
Zelle.Offset(0, 2) = "delete """ & Zelle & """"
Case 4 '--- grün
Zelle.Offset(0, 2) = "rename """ & Zelle & """ """ & _
Left(Zelle, InStrRev(Zelle, "\")) & Zelle.Offset(0, 1) & """"
Case Else
End Select
Next
End Sub
Gruß, Daniel