Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 12:07:15
Werte einer Liste vergleichen und markieren
24.04.2024 11:56:21
Export bestimmter Spalten in eine neue Exceldatei
24.04.2024 11:32:28
Formel für die letzten 1-2 Zeichen
24.04.2024 11:13:07
Eingezeichnete Standardabweichung im Graphen begrenzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1652to1656
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1652to1656
1652to1656
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn,dann, sonst VBA

Wenn,dann, sonst VBA
24.10.2018 14:44:47
Moritz
Hallo zusammen,
ich bin Neu hier und auch noch recht unerfahren. Also in Sachen VBA :-)
Ich bräuchte für eine Tabelle folgende "Formel" als VBA Code und wäre euch für eure Hilfe echt dankbar.
Folgendes soll passieren:
- Wenn man in "E7" HAMU eintippt soll in "F7" automatisch "BP" erschienenen.
- Wenn man in "E7" CWI, MASS, CASC, oder SCBE eintippt soll "F7"automatisch "BS" erschienenen.
- Wenn man in "E7" UNUL oder WERT eintippt soll in "F7" automatisch "MUE" erschienenen.
- Wenn man in "E7" SPT eintippt soll in "F7" automatisch "intern" erscheinen.
- Wenn nichts davon (sonst), dann soll in "F7" automatisch "XXX" erscheinen
Ist das überhaupt möglich?
Vielen Dank schonmal!
LG Moritz

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn,dann, sonst VBA
24.10.2018 14:51:08
Daniel
HI
ja, geht mit dem SVerweis.
du musst dir eine kleine Hilfstabelle anlegen in welcher du in der ersten Spalte alle Begriffe eingibst, die in E7 eingegeben werden können und in die Spalte rechts daneben dann der Wert, er in F7 ausgegeben werden soll
in F7 kommt dann diese Formel: 
=Wenn(E7="";"";Wennfehler(SVerweis(E7;$AA$1:$AB$8;2;0);"XXX"))

wobei AA1:AB8 der Zellbereich ist, in welchen du deine Hilfstabelle hinterlegt hast.
Gruß Daniel
AW: Wenn,dann, sonst VBA
24.10.2018 15:51:02
Peter(silie)
Hallo,
hier als Worksheet_Change Event in VBA: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 5 Then Exit Sub
If Not Target.Row = 7 Then Exit Sub
Select Case LCase(Target.Value)
Case "hamu"
Me.Cells(7, 6).Value = "BP"
Case "cwi", "mass", "casc", "scbe"
Me.Cells(7, 6).Value = "BS"
Case "unul", "wert"
Me.Cells(7, 6).Value = "MUE"
Case "spt"
Me.Cells(7, 6).Value = "intern"
Case Else
Me.Cells(7, 6).Value = "XXX"
End Select
End Sub

Anzeige
AW: Wenn,dann, sonst VBA
25.10.2018 06:57:48
Moritz
Vielen Dank dir. Echt der Hammer!
Könntest du mir noch ein Gefallen tun und mir Verraten wie ich das Worksheet so abändere, das es ab "E3" / "F3" für die gesamte Spalte gilt?
AW: Wenn,dann, sonst VBA
25.10.2018 11:19:51
Peter(silie)
Hallo,
dass ginge so: 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Column = 5 Then Exit Sub
If Not Target.Row > 2 Then Exit Sub
Dim tRow As Long
tRow = Target.Row
Select Case LCase(Target.Value)
Case "hamu"
Me.Cells(tRow, 6).Value = "BP"
Case "cwi", "mass", "casc", "scbe"
Me.Cells(tRow, 6).Value = "BS"
Case "unul", "wert"
Me.Cells(tRow, 6).Value = "MUE"
Case "spt"
Me.Cells(tRow, 6).Value = "intern"
Case Else
Me.Cells(tRow, 6).Value = "XXX"
End Select
End Sub

Anzeige
AW: Wenn,dann, sonst VBA
25.10.2018 12:44:32
Moritz
Nochmals vielen Dank, dir. Funktioniert einwandfrei.
...oder zur Sicherheit, so
25.10.2018 13:45:22
EtoPHG 

Private Sub Worksheet_Change(ByVal Target As Range)
Dim aCell As Range
On Error GoTo Error_Exit
If Not Target.Column = 5 Then Exit Sub
If Not Target.Row > 2 Then Exit Sub
Application.EnableEvents = False
For Each aCell In Target
Select Case aCell.Text
Case "hamu"
aCell.Offset(, 1) = "BP"
Case "cwi", "mass", "casc", "scbe"
aCell.Offset(, 1) = "BS"
Case "unul", "wert"
aCell.Offset(, 1) = "MUE"
Case "spt"
aCell.Offset(, 1) = "intern"
Case Else
aCell.Offset(, 1) = "XXX"
End Select
Next aCell
Error_Exit:
Application.EnableEvents = True
On Error GoTo 0
End Sub
Gruess Hansueli
Anzeige

322 Forumthreads zu ähnlichen Themen

MSGBox wenn Zelleninhalt geleert wurde?!
Tom

Hallo!
Ist es denn eigentlich möglich zu überprüfen ob eine Zelle gerade geleert wurde?
Hintergrund ist, dass ich gern sicherstellen möchte, dass der User wirklich den Zelleninhalt löschen wollte.
Ich würde gern eine Mitteilung erscheinen lassen wenn eine Zelle vom Inhalt her gelösc...
26.08.2008 15:07:01
Thread-ID: 1004826
6 Beiträge
Anzeige
Leere Zellen Überspringen
Michael

Moin zusammen,
habe ja gestern durch euch einige Probleme lösen können:-) Danke nochmal.
Ich habe einen einfachen Makro erstellt, um den gesamten Inhalt eine Arbeitsmappe zu markieren, um die Werte dann in eine andere zu kopieren.
Range("A2:AD2").Select
Range(Selection, Selectio...
11.09.2008 10:06:00
Thread-ID: 1008990
5 Beiträge
"wenn, dann, sonst" - Frage
Oliver

Hallo,
kleines Problem,
=WENN($I$4=4;4;0) liefert mir den Wert "0"
Jetzt habe ich diese Formel folgendermaßen abgeändert:
=Wenn((Istfehler(A1);"";Wenn($I$=4;4;0))
... dies liefert mir wieder den Wert "0", obwohl Istfehler(A1) erfüllt wird -confused-
Nun meine Frage,...
11.09.2008 10:23:00
Thread-ID: 1008998
16 Beiträge
Anzeige
Warum leere Zelle "" >0 ???
Simon

Hallo,
ich verstehe das Ergebnis meiner Formel nicht ganz:
ich habe eine wenn Funkion nach folgendem Schema gemacht:
wenn(A1=5;"ok";"")
Das Ergbnis ist also entweder 5 oder eine leere Zelle. Wenn ich nun mit dieser "leeren Zelle" weiter arbeite, behandelt Excel die "" Zelle imme...
15.09.2008 10:08:00
Thread-ID: 1009683
13 Beiträge
Wenn Zelle leer, dann Grafik löschen
TomTom

Hi,
ich möchte auf meinem Sheet abprüfen, ob die Zelle A41 und B41 leer sind, und wenn ja, soll eine Grafik (.bmp / wurde eingefügt mit Kopieren und einfügen und heisst im Namensfeld "Bild 01")
gelöscht oder unsichtbar werden.
Wie mache ich dies ?
Danke mal
Gruss
Tom<...
22.09.2008 08:28:10
Thread-ID: 1011373
3 Beiträge
Makro unterbrechen wenn bestimmte Zelle leer
WalterK

Guten Morgen,
wer kann mir beim folgenden Code eine kleine Änderung durchführen:
1.) das Makro sollte abgebrochen werden, wenn im Blatt "Daten" die Zelle "AB12" leer ist und
2.) es sollte eine MsgBox mit dem Hinweis kommen, dass die Eingabe bei "AB12" fehlt und das sollte mit OK bes...
03.10.2008 07:29:45
Thread-ID: 1013985
10 Beiträge
Zählen wenn Zelle nicht leer
Tim

Hallo Forum,
wie kann ich in einem Bereich (z.B. A1:A50) die Anzahl der Zellen, in denen ein Eintrag vorhanden ist (Text oder Zahl) zählen?
Gruß
Tim
20.10.2008 11:47:00
Thread-ID: 1017617
3 Beiträge
Formel wenn dann sonst ...
Uwe

Hallo, Gemeinde ..
Mir stellt sich folgende Herausforderung:
ich möchte in einer Liste Fahrtkosten berechnen. Der Arbeiter bekommt von km 1 bis km 10 0,36€ pro km (einfach). ab dem 11 km bekommt der Arbeiter 0,40€.
Wie bekomme ich eine Formel hin, die das berechnet, wenn
- der A...
31.10.2008 11:20:00
Thread-ID: 1020821
10 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
6
4
15
5
12
2
9
2
9
4
3
10
4
2
5
5
4
2
7
7
1
5
9
1