mehrfach if bez.

Bild

Betrifft: mehrfach if bez. von: Lucas
Geschrieben am: 16.02.2005 19:08:52

Hallo zuasmmen,

habe folgende frage an euch.

habe folge makro erstellt.


Sub Makro1 ()
Dim i As Integer
Worksheets ("Test").Activate
For i = 13 To 2 Cells (Rows.Count, 1).End(x1Up).Row
if Cells (i, 10).Value = baum Then
Cells (i, 22).Value = "Kirsch"
End if
Next
End Sub


ich möchte wenn in spalte 10 baum steht das in spalte 22 kirsch geschrieben wird es klappt auch nur nun soll zusätzlich noch
wenn in spalte 10 Auto steht, das in spalte 22 VW
wenn in spalte 10 Maschine steht, das in spalte 22 Kran steht.

wie mache ich eine mehrfach if bez.

Danke
gruss

Lucas
Bild


Betrifft: AW: mehrfach if bez. von: herbert grom
Geschrieben am: 16.02.2005 19:25:01

halo lucas,

so müsste das funktionieren:


      
Sub Makro1()
    
Dim i As Integer
    Worksheets("Test").Activate
    
For i = 13 To 22
        Cells(Rows.Count, 1).End(x1Up).Row
        
If Cells(i, 10).Value = "baum" Then
            Cells(i, 22).Value = "Kirsch"
        
End If
        
If Cells(i, 10).Value = "Auto" Then
            Cells(i, 22).Value = "VW"
        
End If
        
If Cells(i, 10).Value = "Maschine" Then
            Cells(i, 22).Value = "Kran"
        
End If
    
Next
End Sub
 

     Code eingefügt mit Syntaxhighlighter 3.0


gruß herbert.


Bild


Betrifft: AW: mehrfach if bez. von: lucas
Geschrieben am: 16.02.2005 20:00:34

Danke herbert :-)

super geklappt

gruss
lucas


Bild


Betrifft: select case von: ransi
Geschrieben am: 16.02.2005 19:46:56

hallo lucas

schau dir mal select case an.
Ist für wie für dein vorhaben gemacht.

Select Case Cells(i, 10)
Case Is = "baum"
wert = "Kirsch"
Case Is = "Auto"
wert = "VW"
Case Is = "Maschine"
wert = "Kran"
End Select
Cells(i, 22) = wert

ransi


Bild


Betrifft: AW: select case von: Lucas
Geschrieben am: 16.02.2005 20:43:28

hallo ransi,

danke ransi für deine mühe deins ist je kompakter das klappt auch hervorragend.

Gruss
lucas


 Bild

Beiträge aus den Excel-Beispielen zum Thema "mehrfach if bez."