Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
25.04.2024 10:30:04
Suche mit MINWENNS und Rückgabe mehrerer Werte
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1164to1168
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
1164to1168
1164to1168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Formel in VBA schreibweise

Formel in VBA schreibweise
Hans
Hallo Leute .. ich sehe den Wald vor lauter Bäumen nicht mehr.
Ich habe eine Fomel in VBA schreibweise 
Formel : =WENN(ISTLEER(K20);"";WENN(ISTNV(SVERWEIS(K20;[Preise.xls]Ersatzteilpreise!$A:$E;5;0)); _
"nicht vorhanden";SVERWEIS(K20;[Preise.xls]Ersatzteilpreise!$A:$E;5;0)))
VBA : Target.Offset(0, -8).FormulaR1C1 = "=IF(ISBLANK(RC[8]),"""",IF(ISNA(VLOOKUP(RC[8],'[Preise.xls]Ersatzteilpreise'!C1:C5,4,0)),""nicht vorhanden"",            VLOOKUP(RC[8],'[Preise.xls]Ersatzteilpreise'!C1:C5,4,0)))"
Nun muss ich die Formel ergänzen und vekomme es einfach nicht in die VBA Form.
Kann mir da jemand helfen ?
Formel : =WENN(ISTLEER(K20);"";WENN(ISTNV(SVERWEIS(K20;[Preise.xls]Ersatzteilpreise!$A:$E;5;0)); _
WENN(ISTNV(SVERWEIS(K20;[Preise.xls]Ersatzteilpreise!$B:$E;4;0));"nicht vorhanden";SVERWEIS(K20; [Preise.xls]Ersatzteilpreise!$B:$E;4;0));SVERWEIS(K20;[Preise.xls]Ersatzteilpreise!$A:$E;5;0)))
VBA : ?

LG
Hans

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
benutze den Recorder. owT
05.07.2010 15:02:04
Rudi
AW: benutze den Recorder. owT
05.07.2010 15:10:38
Hans
Und wie soll ich dem Recorder diese verschachtelte Formel beibringen?
AW: benutze den Recorder. owT
05.07.2010 15:21:23
Rudi
Hallo,
Anrede, Frage, Gruß?
indem du sie in eine Zelle eingibst, den Recorder anmachst, in die Zelle gehst, F2 und Enter drückst und den Recorder wieder ausmachst. Dann musst du dir nur noch die aufgezeichnete Formel in deinen Code kopieren. Mache ich auch so, wenn's kompliziert wird.
Gruß
Rudi
AW: benutze den Recorder. owT
05.07.2010 15:29:03
Hans
Hallo
Dann kommt die Meldung "Kann nicht aufzeichen"
Gruß
Hans
mein Recorder sagt ...
05.07.2010 15:33:22
Rudi
Hallo,
ActiveCell.FormulaR1C1 = _
"=IF(ISBLANK(R[17]C[8]),"""",IF(ISNA(VLOOKUP(R[17]C[8],[Preise.xls]Ersatzteilpreise!C1:C5,5,0)), ""nicht vorhanden"",VLOOKUP(R[17]C[8],[Preise.xls]Ersatzteilpreise!C1:C5,5,0)))"
Gruß
Rudi
Anzeige
AW: mein Recorder sagt ...
05.07.2010 15:36:12
Hans
Hallo Rudi
Das ist die obere Formel .. die geht bei mir auch
bei der unteren Formel geht es leider nicht.
Aber wenn ich die Formel in eine Zelle einfüge funktioniert sie.
Das ist ja das was mich verwundert. Ich versuche die jetzt schon seit Stunden von Hand zu Fuß in VBA einzugeben und es kommt immer eine Fehlermeldung .. auch wenn sie mir als Richtig erscheint.
:o
lg
Hans
AW: Mein Recorder sagt ... leider gar nichts mehr
05.07.2010 15:39:42
NoNet
Hey Rudi,
mein Rekorder ist leider (wortwörtlich) : Ohne Worte :
;-))
Gruß, NoNet
"4 Gewinnt"
Anzeige
AW: Formel in VBA schreibweise
05.07.2010 16:30:45
Rudi
Hallo,
target.offset(,-8).FormulaR1C1 = _
"=IF(ISBLANK(RC[8]),"""",IF(ISNA(VLOOKUP(RC[8],[Preise.xls]Ersatzteilpreise!C1:C5,5,)),IF(ISNA(VLOOKUP(RC[8],[Preise.xls]Ersatzteilpreise!C2:C5,4,)),""nich da"",VLOOKUP(RC[8],[Preise.xls]Ersatzteilpreise!C2:C5,4,)),VLOOKUP(RC[8],[Preise.xls]Ersatzteilpreise!C1:C5,5,)))"
Gruß
Rudi
AW: Formel in VBA schreibweise
05.07.2010 17:27:33
BoskoBiati
Hallo,
der Sinn des Ganzen erschließt sich mir nicht.
1. Könnte man die Formel, sofern man sie nicht unter fremdsprachigen Systemen nutzt mit FormulaLocal direkt, wie aufgeschrieben, eingeben.
2. 

ISTNV(SVERWEIS(K20;[Preise.xls]Ersatzteilpreise!$A:$E;5;0))
zweimal hintereinander einzusetzen ist unsinnig und vermutlich sowieso eine Fehlinterpretation! Hier wird nach dem Vorhandensein des SUCHBEGRIFFS! aus K20 gefragt, und nicht, ob in D oder E ein Wert steht, dass müsste man anders abfragen.
=WENN(ISTLEER(K20);"";WENN(ISTNV(vergleich(K20;[Preise.xls]Ersatzteilpreise!$A:$A;0));"nicht  _
vorhanden";_
WENN(SVERWEIS(K20;[Preise.xls]Ersatzteilpreise!$B:$E;4;0)"";SVERWEIS(K20; [Preise.xls] _
Ersatzteilpreise!$B:$E;4;0));_
SVERWEIS(K20;[Preise.xls]Ersatzteilpreise!$A:$E;5;0)))

Gruß
Bosko
Anzeige

319 Forumthreads zu ähnlichen Themen

7 a in eine Zelle schreiben
Kai

Hallo zusammen,
wie bekomme ich es hin, in eine Zelle "7 a" (7 Leerzeichen a) zu schreiben? Excel macht mir dann immer 7:00 AM daraus oder 0,29...
Danke
07.08.2008 16:45:31
Thread-ID: 1000024
6 Beiträge
Anzeige
Userform Textboxinhalte in Zellen schreiben
Gerd

Guten Tag zusammen!
Bitte helft mir bei folgendem Problem:
In einer Userform habe ich eine ganze Reihe Textboxen, in die zum größten Teil Zahlen eingegeben werden.
Nun ist ja bekannt, dass beim Schreiben in Zellen der Inhalt der Textboxen als Text interpretiert wird. Mit der Anweisu...
11.08.2008 14:34:08
Thread-ID: 1000867
5 Beiträge
VBA-Formel um nur Berechnungswerte einzutragen
Matthias

Hallo Excel und Makrofans.
Ich habe folgende 2 Probleme. Erstmal zum ersten Problem:
Ich habe eine Datei in der ich Daten (Betriebsparameter [Druck, Temperatur usw.]) aus einem externen Programm einlese. Aus diesen Werten möchte ich gerne einige Werte Berechnen.
Zur Zeit mache ich d...
12.08.2008 08:51:00
Thread-ID: 1001053
6 Beiträge
Anzeige
VBA Formel finden
Baywatch

Hi,
ich brauche etwas hilfe, mit einer VBA programmierung, vielleicht hat jemand ein paar MInuten Zeit.
Ich habe eine Tabelle 1 in der eine eingabe passiert und eine TAbelle 2 sollen die Einträge aus TAbelle 1 hinkopiert werden und erst nach Spalte G dann nach B und dann nach A sortiert...
25.08.2008 08:47:34
Thread-ID: 1004371
7 Beiträge
Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Makrostart wenn in Zelle was geschrieben wird
Bernd

Hallo,
wie stelle ich es an, damit ein Makro startet, sobald ich in einer bestimmten Zelle etwas schreibe?
Mein Code will irgendwie nicht so wie ich will. Der läuft ohne nonstop.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("D3") "" Then Call tabelle_kopi...
31.08.2008 11:09:00
Thread-ID: 1006152
2 Beiträge
Matrix-formel via VB-Skript in die Zelle einfügen
Wladimir

Hallo zusammen,
ich soll via VB-Skript eine
Excel-Matrix-formel in die Zelle der
geschlossenen Datei einfügen.
Ich habe die Formel entsprechend
angepasst und versuchte sie mit
FormulaArray in die Zelle einzufügen,
aber erfolglos. Es kommt die Meldung:
"Die For...
01.09.2008 12:08:24
Thread-ID: 1006391
14 Beiträge
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 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
5
2
4
5
16
6
5
1
13
2
3
4
3
2
8
5
4
30
3
8
11
10
12
5
4