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

mehrfach if bez.

mehrfach if bez.
16.02.2005 19:08:52
Lucas
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

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrfach if bez.
16.02.2005 19:25:01
herbert
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
 


gruß herbert.
Anzeige
AW: mehrfach if bez.
lucas
Danke herbert :-)
super geklappt
gruss
lucas
select case
ransi
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
AW: select case
Lucas
hallo ransi,
danke ransi für deine mühe deins ist je kompakter das klappt auch hervorragend.
Gruss
lucas

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige