Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
524to528
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
524to528
524to528
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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

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

Anzeige
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
DANKE !!!! Es funzt nun :-)
Stefan
o.T.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige