Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

zwei VBA fragen

Forumthread: zwei VBA fragen

zwei VBA fragen
01.12.2004 12:39:50
stefan
hallo,
ich habe folgende Code

Sub input_formula()
For i = 1 To Cells(65535, 27).End(xlUp).Row
Select Case Cells(i, 27)
Case "Farbe ist gleich rosa"
Cells(i, 27) =SVERWEIS($A31;Base!$A:$M;2;FALSCH)
End Select
Next i
End Sub

wie kann ich für die zeile
Case "Farbe ist gleich rosa" festlegen dass wenn die farbe der zelle=rot, dann formel einfügen ?
wie kann ich in vba das einfügen einer formel festlegen ?
Cells(i, 27) =SVERWEIS($A31;Base!$A:$M;2;FALSCH) führt zu einer fehlermeldung ?
thx
stefan
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: zwei VBA fragen
Uduuh
Hallo,
cells(i,27).formulalocal="=sverweis(....)"
Gruß aus'm Pott
Udo

AW: zwei VBA fragen
Stefan
Danke Udo, aber eine Frage habe ich noch:
Ich möchte die Hintergrundfarbe abfragen und nur wenn diese 36 (Interior Color) ist, soll die formel eingefügt werden.
THX

Sub vergleich()
For i = 1 To Cells(65535, 27).End(xlUp).Row
Select Case Cells(i, 27)
Case .Interior.Color = 36
Cells(i, 27).FormulaLocal = "=SVERWEIS($A31;Base!$A:$M;2;FALSCH)"
End Select
Next i
End Sub

Anzeige
siehe Ulfs Code
Uduuh
anstatt 3 36 einsetzen.
Gruß aus'm Pott
Udo

AW: zwei VBA fragen
Ulf

Sub input_formula()
For i = 1 To Cells(65535, 27).End(xlUp).Row
Select Case Cells(i, 27).interior.colorindex
Case 3 'Rot
Cells(i, 27).FormulaLocal = "=SVERWEIS($A31,Base!$A:$M,2,0)"
End Select
Next i
End Sub

Ulf
Anzeige
DANKE !!!! Es funzt nun :-)
Stefan
o.T.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige