Bedingtes Einfügen



Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Bedingtes Einfügen
von: Bernd
Geschrieben am: 16.05.2002 - 18:47:07


Wenn in jeweiliger Zeile in Spalte F - N U R - die Folge "21," steht und nicht "21, und noch etwas" dann füge in der jeweiligen Zeile in Spalte K ein "x" ein.

Vielen Dank


nach oben   nach unten

Re: Bedingtes Einfügen
von: WernerB.
Geschrieben am: 16.05.2002 - 19:01:21

Hallo Bernd,

damit sollten Deine Wünsche in Erfüllung gehen:


Option Explicit
Sub Einfuegen()
Dim As Long, laR As Long
    Application.ScreenUpdating = False
    laR = Cells(Rows.Count, 6).End(xlUp).Row
    For i = 1 To laR
      If Len(Cells(i, 6).Value) = 3 Then
        If Cells(i, 6).Text = "21," Then _
          Cells(i, 11).Value = "x"
      End If
    Next i
    Application.ScreenUpdating = True
End Sub

Viel Erfolg wünscht
WernerB.
nach oben   nach unten

Re: Bedingtes Einfügen
von: Silvio
Geschrieben am: 16.05.2002 - 19:04:01

Schreibe in die Spalte K folgende Formel:
=WENN(F2=21;"x";"")
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "minimum bildung"