Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Formel abhängig von Füllfarbe eintragen ?

Formel abhängig von Füllfarbe eintragen ?
04.10.2008 20:38:00
Füllfarbe
Hallo Leute,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Formel abhängig von Füllfarbe eintragen ?
04.10.2008 21:28:06
Füllfarbe
Hallo
könnte so funktionieren, es muss sich allerdings um die echte Füllfarbe handeln, nicht um eine bedingte Formatierung.
die Farbindexnummern können noch abweiche, da musst du selber testen, welche du verwendest

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

Anzeige
AW: Formel abhängig von Füllfarbe eintragen ?
04.10.2008 22:42:00
Füllfarbe
Hallo Daniel,
es funktioniert prima.
Eine Frage noch:
Wie bekomme ich in der rename-Formel die Verzeichnisname (ohne Dateiname) in die Formel (siehe unten fett dargestellten Abschnitt) eingefügt?
Beispiel momentan:
rename "C:\2008_06\2008_06_0011_r1.jpg" "2008_06_0011_neu.jpg"
Gewünschtes Ergebnis:
rename "C:\2008_06\2008_06_0011_r1.jpg" "C:\2008_06\2008_06_0011_neu.jpg"
Vielen Dank !
LG,
Selma
AW: Formel abhängig von Füllfarbe eintragen ?
05.10.2008 13:00:40
Füllfarbe
Hi Selma,
mein VBA kennt zwar rename nicht (fehlt wohl ein Verweis), aber probier mal:

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)

Anzeige
AW: Formel abhängig von Füllfarbe eintragen ?
05.10.2008 13:37:00
Füllfarbe
Hi
funktioniert auch, da ich aber in mit Excelformeln einen String nur von links nach rechts durchsuchen kann, mach ich das ganze jetzt direkt in VBA:

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

Anzeige
AW: Formel abhängig von Füllfarbe eintragen ?
05.10.2008 21:27:16
Füllfarbe
Vielen Dank !
LG,
Selma

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige