Microsoft Excel

Herbers Excel/VBA-Archiv

If-Bedingung

Betrifft: If-Bedingung von: Kim
Geschrieben am: 25.08.2004 16:50:00

Hallo Leute,

ich habe folgendes Makro:

If Not Sheets("DC").Range("Produkt").Select = "Auto" Then
Selection.EntireRow.Insert
End if

Das Makro soll überprüfen, ob in der gewählten Zelle das Wort Auto steht. Steht es nicht drin, soll er eine Zeile einfügen.

Das klappt leider nicht so ganz. Stimmt meine Bedingung nicht?

Grüße,
Kim

  


Betrifft: AW: If-Bedingung von: Boris
Geschrieben am: 25.08.2004 16:58:35

Hi Kim,

herrlich :-) - der Code hört sich an wie: When I am big, then i become a baker.
Versteht jeder - ist aber nicht so ganz richtig;-)

If ActiveCell = "Auto" Then Rows(Activecell.Row).Insert

Grüße Boris

Ist wirklich nicht bös gemeint...:-)


  


Betrifft: AW: If-Bedingung von: Kim
Geschrieben am: 25.08.2004 17:05:32

Hi Boris,

mußte bei Deinem Kommentar selbst über mich schmunzeln.
Jedenfalls, danke für Deine Hilfe!

Grüße,
Kim


  


Betrifft: AW: If-Bedingung von: Andy
Geschrieben am: 25.08.2004 16:59:53

Hallo!
Versuche es mal mit Range("Produkt").Value="Auto"

Andy