Anzeige
Archiv - Navigation
1680to1684
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
Inhaltsverzeichnis

mehrere Bedingungen

mehrere Bedingungen
18.03.2019 15:07:14
Michael
Hallo zusammen
ich benötige mal eure hielfe
ich habe diesen code

Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngErste As Long
If Target.Column = 14 Then
If Target.Count = 1 Then
If UCase(Target) = "8" Then
With Worksheets("Lost !")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
Rows(Target.Row).Copy
.Cells(lngErste, 1).PasteSpecial Paste:=xlValues
Rows(Target.Row).Delete shift:=xlUp
End With
End If
End If
End If
End Sub
wie kann ich mehrer bedingungen einfügen , hier macht er wenn 8 da drin steht das was ich will.
wenn ich aber 1 oder 2 bis 10 eingebe soll er was anderes machen
kann mir da jemand helfen bitte

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: mehrere Bedingungen
18.03.2019 15:15:22
Werner
Hallo Michael,
zum Beispiel mit Select Case
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngErste As Long
If Target.Column = 14 Then
If Target.Count = 1 Then
Select Case Target.Value
Case 1
'mach was
Case 2
'mach was
Case 3
'mach was
Case 4
'mach was
Case 5
'mach was
Case 6
'mach was
Case 7
'mach was
Case 8
With Worksheets("Lost !")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
Rows(Target.Row).Copy
.Cells(lngErste, 1).PasteSpecial Paste:=xlValues
Rows(Target.Row).Delete shift:=xlUp
End With
Case 9
'mach was
Case 10
'mach was
Case Else
'mach nix
End Select
End If
End If
End Sub
Gruß Werner
Anzeige
Tastatur kaputt oder Feedback ein Fremdwort? o.w.T
23.03.2019 22:25:25
Werner

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige