Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 12:28:32
Formelfehler aufgrund Einfügen einer Zeile
18.04.2024 11:51:04
Aus Listbox Spalte als Wert zurück bekommen
18.04.2024 11:36:51
Beim Öffnen je nach Datum zu bestimmter Zelle springen
18.04.2024 11:16:38
Pfade werden mit Anführungszeichen "" versehen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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

304 Forumthreads zu ähnlichen 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
Anzeige
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 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 Dann mit Werten zwischen 2 Zellen
Thomas

Hallo,
montagsgemäß steh ich gerade auf dem Schlauch und benötoge Hilfe für folgendes Problem:
ich habe mind. 10 Werte in % von 50% bis 110%
In den Zellen A1 bis A10 steht ein Text, dahinter also in B1 bis B10 die Prozentwerte.
Dann steht in C1 ein Objektspezifischer Wert/ein E...
23.02.2009 11:55:52
Thread-ID: 1053025
3 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
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
Anzeige

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
3
6
9
2
3
4
6
2
4
4
7
7
3
2
13
4
4
1
40
5
1
6
6
4
2