Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1048to1052
1048to1052
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro ändern auf nur wenn Bedingung erfüllt.

Forumthread: Makro ändern auf nur wenn Bedingung erfüllt.

Makro ändern auf nur wenn Bedingung erfüllt.
15.02.2009 00:26:00
Josef_T
Guten Morgen zusammen.
könnt Ihr mir bitte helfen, ein Modul so abzuändern, dass es nur dann funktioniert wenn die Bedingungen erfüllt sind?
Habe mal ein Muster hochgeladen, damit ist alles ein wenig verständlicher.
https://www.herber.de/bbs/user/59472.xls
Danke schon mal
Gruß
Josef
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Makro ändern auf nur wenn Bedingung erfüllt.
15.02.2009 00:42:00
Uwe
Hi Josef,
vielleich so:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K5:K400")) Is Nothing Then Exit Sub
If Intersect(Target, Range("K5:K400")) And Target.Offset(0, -8) = "" Then _
MsgBox " Zuerst Lfs.Nr. eingeben!", , "Achtung"
Application.EnableEvents = False
Select Case Target
Case "100"
Target = "Benutzer A"
Case "200"
Target = "Benutzer B"
Case "300"
Target = "Benutzer C"
Case "400"
Target = "Benutzer D"
'usw.
Case Else
Target = "Unbekannter Benutzer"
End Select
Application.EnableEvents = True
End Sub


Gruß
Uwe
(:o)

Anzeige
AW: Makro ändern auf nur wenn Bedingung erfüllt.
15.02.2009 01:12:00
Josef_T
Hi Uwe,
erstmal Danke, dass Du mir so schnell geholfen hast.
Uwe, kann man das noch so abändern, dass keine Mitarbeiter-Nr. eingetragen wird, wenn keine Lfs.Nr. vorhanden ist? Wäre echt Super, weil dann alles perfekt wäre.
Danke und Gute Nacht
Josef
AW: Makro ändern auf nur wenn Bedingung erfüllt.
15.02.2009 09:07:00
Luschi
Hallo Josef,
probier mal das hier: 

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K5:K400")) Is Nothing Then
Exit Sub
End If
Application.EnableEvents = False
If Target.Offset(0, -8).Value = "" Then
MsgBox " Zuerst Lfs.Nr. eingeben!", 64, "Achtung"
Target.Value = ""
Else
Select Case Target.Value
Case "100"
Target.Value = "Benutzer A"
Case "200"
Target.Value = "Benutzer B"
Case "300"
Target.Value = "Benutzer C"
Case "400"
Target.Value = "Benutzer D"
'usw.
Case Else
Target.Value = "Unbekannter Benutzer"
End Select
End If
Application.EnableEvents = True
End Sub

Gruß von Luschi
aus klein-Paris

Anzeige
AW: Makro ändern auf nur wenn Bedingung erfüllt.
15.02.2009 09:54:00
Josef_T
Guten Morgen Luschi,
genau so sollte es sein, Perfekt!
Danke sehr und schönen Sonntag noch.
Gruß
Josef

Forumthreads zu verwandten Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
2 Bedingungen - ZÄHLENWENN
Toby

Hi!
Unten meine aktuelle Formel. Nun möchte ich aber, daß Excel zählen soll, wenn es ungleich X und ungleich Leerfeld ist.
Oder er soll nur dann zählen, wenn eine Zahl drin steht.
=ZÄHLENWENN(C3:AJ3;"X")
Bestimmt leicht für euch ...
Danke, Toby ...
10.08.2008 18:26:00
Thread-ID: 1000661
4 Beiträge
Anzeige
Zellen prüfen / Ausgabe wenn Bedingung erfüllt
Kay

Hallo,
Ich brauche dringend Eure Hilfe. Unter https://www.herber.de/bbs/user/54533.xls findet Ihr eine Mappe, in welcher in Spalte A
1 für "Kaufen"
0 für " "
-1 für "Verkaufen"
steht. IN SPALTE B SIND BISHER NUR MANUELL ERSTELLTE BEISPIELEINTRÄGE ENTHALTEN, DAMIT ERSICHTLIC...
12.08.2008 09:51:36
Thread-ID: 1001078
3 Beiträge
If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Anzeige
Hilfe ! Zellen einfärben mit bedingung
sockel939

Hallo Leute,
wie schaffe ich es per makro ( ! )
alles was links neben zelle m2 bis m1000 steht einzufärben.
Also wenn in M2 z.B. a steht, alle zellen von L2 bis A2 = Grün
M3 z.B. Hallo = L3 bis A3 = Rot usw.
Weis nicht in welcher reihenfolge ich die makros aufnehmen soll :-...
15.08.2008 15:09:00
Thread-ID: 1002195
5 Beiträge
Unterschiedliche Werte mit Bedingung
kerberus

Hallo liebes Forum
Ich benötige mal wieder eure Hilfe. Das Ziel: eine Formel die mir die Anzahl unterschiedliche Eintragungen liefert. Folgender Code konnte ich bis jetzt erstellen:
Function ZUnterschiede(Kriterium As String, Kriteriumbereich As Range, Wertebereich As Range) _ As D...
22.08.2008 10:34:00
Thread-ID: 1003771
3 Beiträge
Anzeige
2 zellen als Bedingung
sockel939

Guten Morgen an alle,
habe diesen code hier gebastelt!
Würde ihn jetzt gerne um 2 Bedingungen erweitern
und zwar soll der bereich L4:L1000 und N4:N1000 als Bedingung hinzukommen,
hab aber keinen Plan wies geht.
For Each Zelle In Range("K4:K1000")
If Zelle = "overhauled"...
23.08.2008 04:57:59
Thread-ID: 1004065
10 Beiträge
Anzeige
ganze Zeile nach Bedingung formatieren
Tom

Hallo
wie kann ich denn ausgehend von der aktuellen Zeile diese mittels VBA formatieren.
Hintergrund:
Steht in Spalte N der Wert "Ja", dann ändere den Hintergund dieser Zeile von A bis R in grau ab (Interner Farbwert von Excel sollte 15 sein)
Wird diese Formatierung mittels VBA...
26.08.2008 14:48:36
Thread-ID: 1004813
3 Beiträge
Summe mit 2 Bedingungen
TobiasM

Hallo Excel-Experten,
ich würde gerne eine Summe mit zwei Bedingungen berechnen:
Wenn Wert in Spalte H gleich "EUR" und Wert in Spalte I gleich ""2005", dann Summe der entsprechenden Werte in Spalte J.
Könnte mir jmd. bitte einen Hinweis zur Formel geben?
Vielen Dank!!!
Tobi...
28.08.2008 10:11:30
Thread-ID: 1005310
3 Beiträge
Datum nach Prüfung mehrer Bedingungen anzeigen
Wilfried

Hallo, brauche dringend Hilfe !!
In einer Tabelle mit Kundendaten wird in Spalte C2:C350 zu Prüfzwecken ein "x" eingetragen. In Spalte AB2:AB350 erfolgt der Eintrag "N" wenn der Kunde nicht erschienen ist. In Spalte Z2:Z350 steht das dazugehörige Datum. Ich benötige eine Formel, welche mi...
28.08.2008 13:27:54
Thread-ID: 1005419
18 Beiträge
If Bedingung
Urmila

Hallo,
wie kann ich sagen ob in irgendeiner Zelle der Spalte (z.B. E) selektiert ist und in der aktiven Zelle ein Datum steht (Spalte E in diesem Fall im Format Datum)?
LG
Urmila
01.09.2008 09:24:24
Thread-ID: 1006329
4 Beiträge
Zählenwenn funktion an zweite Bedingung knüpfen
Simon

Hallo,
ich komme schon wieder mal nicht weiter und bräuchte eure Hilfe:
Ich will eine Zählenwenn funktion an eine zweite Bedingung knüpfen. kontkret sieht das folgendermaßen aus:
Ich habe folgende Spalten:
Kundennummer Bestellmenge
1000 5
1001...
02.09.2008 09:05:00
Thread-ID: 1006644
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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