Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro wenn und sverweis

Forumthread: Makro wenn und sverweis

Makro wenn und sverweis
10.12.2006 18:33:19
Stamereilers
Hallo Excel Experten!
Ich hätte gerne folgende Formel durch ein Makro ersetzt.
=WENN(ISTNV(SVERWEIS(Kalender!D4;Training!$A$1:$B$1000;2;FALSCH));WENN(ISTNV(SVERWEIS(D4;Termine!$E$1:$F$3998;2;FALSCH));"";SVERWEIS(D4;Termine!$E$1:$F$3998;2;FALSCH));SVERWEIS(Kalender!D4;Training!$A$1:$B$1000;2;FALSCH))
Im Kalenderblatt steht die Formel von E4:E780
Vielen Dank für eure Hilfe!
Gruß
Rolf
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro wenn und sverweis
10.12.2006 19:01:52
Daniel
Hallo
ich glaube du meinst, du hättest gerne ein Makro, daß dir die Ergebnisse der Formel als Fixwerte in die Tablle schriebt, damit nicht jedesmal eine Zeitaufwendige Neuberechnung ausgeführt wird?
Könnte so funktionieren:

Sub Test
with range("E4:E780")
.formulalocal ="=WENN(ISTNV(SVERWEIS(Kalender!D4;Training!$A$1:$B$1000;2;FALSCH));WENN(ISTNV(SVERWEIS(D4;Termine!$E$1:$F$3998;2;FALSCH));"";SVERWEIS(D4;Termine!$E$1:$F$3998;2;FALSCH));SVERWEIS(Kalender!D4;Training!$A$1:$B$1000;2;FALSCH))"
.formula = .value
end with
End Sub

Gruß, Daniel
Anzeige
AW: Makro wenn und sverweis
10.12.2006 19:13:33
Stamereilers
Hallo Daniel!
Vielen Dank für deine Hilfe!
Kann man das Makro auch automatisieren? Das heißt, das das Makro automatisch abläuft, wenn ich eine Zahl oder einen Buchstaben in Kalenderblatt D4: D1000 reinschreibe?
Gruß
Rolf
AW: Makro wenn und sverweis
10.12.2006 20:23:30
Daniel
Hallo
ja, kann man automatisieren, wenn man im Codebereich des Sheets diesen Code einträgt:
das Makro läuft automatisch ab, wenn im Sheet was geändert wird.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Row < 4 Then Exit Sub
If Target.Columns.Count > 1 Then Exit Sub
Application.EnableEvents = False
With Target.Offset(0, 1)
.FormulaLocal = "Hier deine Formel eintragen"
.Formula = .Value
End With
Application.EnableEvents = True
End Sub

Was sich nicht ändern sollte sind die Werte in den Sheets Training und Termine. Wenn sich hier was ändert, müssen alle Fixwerte in der Tabelle nochmal aktualisiert werden.
Gruß, Daniel
Anzeige
AW: Makro wenn und sverweis
11.12.2006 21:16:06
Stamereilers
Hallo Daniel!
Leider funkt das makro noch nicht!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 4 Then Exit Sub
If Target.Row < 4 Then Exit Sub
If Target.Columns.Count > 1 Then Exit Sub
Application.EnableEvents = False
With Target.Offset(0, 1)
.FormulaLocal = "=WENN(ISTNV(SVERWEIS(Kalender!D4;Training!$A$1:$B$1000;2;FALSCH));WENN(ISTNV(SVERWEIS(D4;Termine!$E$1:$F$3998;2;FALSCH));"";SVERWEIS(D4;Termine!$E$1:$F$3998;2;FALSCH));SVERWEIS(Kalender!D4;Training!$A$1:$B$1000;2;FALSCH))"
.Formula = .Value
End With
Application.EnableEvents = True
End Sub

Woran kann es liegen?
Das Makro soll immer ausgeführt werden wenn ich in Tabellenblatt Kalender D4:D780 etwas ändere.
Vielleicht kannst noch einmal schauen?
Danke!
Gruß
Rolf
Anzeige
Bitte mal Datei einstellen. owt
11.12.2006 22:42:20
Daniel
AW: Bitte mal Datei einstellen. owt
12.12.2006 20:23:52
Stamereilers
Hallo Daniel!
Leider konnte ich nur einen Teil der Datei hochladen.
Ich hoffe es recht.
Gruß
Rolf
Datei fehlt
12.12.2006 20:50:03
Daniel
Hi klar, braucht nicht die ganze Datenbank sein.
Momentan ist aber gar nichts da.
ggf vergessen, den Link reinzukopieren?
Gruß, Daniel
Anzeige
AW: Datei fehlt
13.12.2006 16:56:10
Stamereilers
Hallo Daniel!
Und ich habe mich schon gewundert wofür der Link wohl ist. :)
https://www.herber.de/bbs/user/38956.xls
Danke für deine Hilfe!
Gruß
Rolf
AW: Datei fehlt
13.12.2006 22:11:47
Daniel
Hallo
kann auch so nicht gehen, ich hatte übersehen, daß du innerhalb deiner Formel Anführungszeichen verwendest.
Wenn du mit .formula oder ähnlichem einer Zelle eine Formel zuweist, müssen die Anführungszeichen , die zu der Formel gehören immer gedoppelt werden, damit Excel erkennt, daß die Anführungszeichen auch wirklich zur Formel gehören und nicht den String begrenzen.
ne Formel mit Anführungszeichen muß dann so aussehen:
.formulaLocal = "=""Guten Abend Herr""&A5"
Gruß, Daniel
Anzeige
AW: Datei fehlt
15.12.2006 19:00:26
Stamereilers
Hallo Daniel!
Nun habe ich ein Makro gefunden welches genau passt!
'ClassModule: Kalender

Private Sub Worksheet_Change(ByVal Target As Range)
Dim var As Variant
If Target.Column <> 4 Then Exit Sub
With Application
var = .VLookup(Target.Value, _
Worksheets("Training").Columns("A:B"), 2, 0)
If Not IsError(var) Then
Target.Offset(0, 1) = .VLookup(Target.Value, _
Worksheets("Training").Columns("A:B"), 2, 0)
End If
End With
End Sub

Vielen Dank noch mal für deine Hilfe!!
Gruß
Rolf
Anzeige
;

Forumthreads zu verwandten Themen

Wenn-Dann + SVERWEIS ???
B@sti

Hallo zusammen,
ich bräuchte zu folgendem Thema eure Hilfe:
und zwar geht es um den Abgleich zweier Arbeitmappen. In der ersten Arbeitsmappe befinden sich die Infos, aus der ein Ergebnis für die zweite Arbeitsmappe ausgelesen werden soll. Hab mal ne Beispieldatei angehängt:
https://...
21.08.2008 10:54:00
Thread-ID: 1003404
4 Beiträge
Zelleninhalt suchen wenn gefunden dann...
Ernst

Hallo Fachleute,
ich möchte mit einem Makro eine Tabelle (möglichst nur einen vorher definierten Bereich) auf bestimmte Zellinhalte durchsuchen und wenn es einen Inhalt findet soll es dort eine Zeile einfügen und von mir im Makro definierten Text einfügen.
Nähere Anleitung in der Datei....
16.11.2008 14:44:22
Thread-ID: 1024902
7 Beiträge
Sverweis, Wenn dann -> richtige Preise auswählen
Till

Hallo Excel Freunde,
ich habe mal wieder ein Problem.
In folgender Liste muss ich mehrere Entscheidungen durchführen.
Im Bildanhang die Liste:

D.h. in einer Kalkulation stehen jetzt nur 20 Stück von Produkt A und Excel soll dann den richtigen Preis (also in diesem Fall 230...
26.11.2008 11:51:00
Thread-ID: 1027984
10 Beiträge
Wort austauschen mit "wenn dann"
Ingo

Hallo
Ich stehe hier gerade auf dem Schlauch und wollte Euch darum um Hilfe bitten.
Ich möchte, dass in Zelle D automatisch das gleiche erscheint, wie in Zelle A.
Mit folgender Ausnahme:
Wenn ich Zelle A unter anderem das Wort "Hund" vorkommt, soll in Zelle D an gleicher Stelle...
29.11.2008 16:50:00
Thread-ID: 1028864
3 Beiträge
Anzeige
Wenn dann mit VBA und Makro starten
Thomas

Hallo guten Morgen liebe Helfer,
ich komme mit einer Wenn Dann Formel im VBA nicht klar. Wer kann mir bitte helfen.
WENN Zelle C1 = OK DANN starte Makro1 sonst MsgBox "Eingabe leider falsch"
Ich schaffe es einfach nicht das ich innerhalb der Abfrage ein Makro starten lasse möchte we...
31.01.2009 09:18:37
Thread-ID: 1045583
4 Beiträge
Wenn/Dann mit vielen Bed. & je Bed. zwei Lösungen
Joerschi

Hallo Excel-Fans,
ich hänge grad ein einem Wenn/Dann-Problem.
Es sollen mehrere Bedingungen geprüft werden (also wahrscheinlich Einbindung der UND-Funktion) und wenn diese alle erfüllt sind, dann gibts ein Ergebnis A. Wenn nicht erfüllt, dann Ergebnis B.
Soweit klingts einfach - der...
12.02.2009 12:28:00
Thread-ID: 1050000
5 Beiträge
SVERWEIS mit WENN
Cordula

Hallo Forum,
stehe gerade völlig auf dem Schlauch. Habe folgende Formel, die ich um eine weitere WENN-Abfrage erweitern muss. Nur wo?
=WENN(ISTFEHLER(D2-SVERWEIS(B2;Tabelle1;3;FALSCH));"Nicht vorhanden";D2-SVERWEIS(B2;Tabelle1;3;FALSCH))
Jetzt soll noch rein: Wenn die Zelle D2 in T...
14.02.2009 21:27:00
Thread-ID: 1050798
7 Beiträge
Wenn Sheet nicht vorhanden, dann Abbruch..
Mandy

Hi zusammen,
wie kann ich denn folgende Abfrage machen:
Wenn sheet("data") NICHT VORHANDEN, dann Abbruch
Danke
Mandy
31.03.2009 08:32:23
Thread-ID: 1065486
5 Beiträge
Anzeige
Schleife mit WENN, DANN
Mandy

Hi,
wie kann ich denn eine Schleife machen die die Spalte duchläuft und überprüft:
Wenn B5 und C5 nicht leer ist, dann A5 = "100" `Startwert
Wenn B6 und C6 nicht leer ist, dann A5 * 1,25
Wenn B7 und C7 nicht leer ist, dann A6 * 1,25
Wenn B8 und C8 nicht leer ist, dann A8...
05.04.2009 10:32:59
Thread-ID: 1066896
5 Beiträge
Wenn-Dann-Abfrage mit mehr als 8 Argumenten
Uwe

Hallo an alle Nutzer dieses Forums,
ich habe folgendes Problem mit einer Wenn-Dann-Abfrage.
Wir haben 15 experimentell ermittelte Zahlenwerte die mit folgenden Werten verbunden sind ( 2,4,6,8,10... bis 30 ).
Wenn Wert 2,dann Wert A,wenn Wert 4, dann Wert B usw. bis Wert 30,dann Wer...
20.04.2009 16:42:20
Thread-ID: 1069883
8 Beiträge
Anzeige
sverweis mit wenn
Karel

Hallo Forum,
wie kann ich unterstehende Formel argänzen mit ein abfrage Wert in zelle C2
Abfrage lautet wenn $C$2 Datumswert = 01.15.09 wenn gleiche wert gefunden im stammdaten dan ausgabe X
wenn datum nicht übereinstimmt dann eben niks
'=WENN((ISTNV(SVERWEIS(C7;stammdaten;7...
23.06.2009 12:59:20
Thread-ID: 1083767
8 Beiträge
Username und Uhrzeit mit Wenn-Dann?
Mario

Hallo zusammen,
ich habe schon so Einiges in Richtung Usernamen ermitteln usw. gelesen, bin aber nicht in der Lage, die Codes auf mein Problem hin anzupassen. Deshalb erhoffe ich mir nun hier Hilfe.
Wir haben im Team eine "offene-Punkte-Liste.xls", in die entsprechende Daten eingetragen...
30.06.2009 18:10:03
Thread-ID: 1085453
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige