Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
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

VBA WennDann + Variable

VBA WennDann + Variable
Pascal
Guten Abend zusammen,
die letzte Stunde habe ich mir am folgendem Problem die Zähne ausgebissen :(
Ich versuche in einen relativen Zellbereich eine Wenn-Dann Abfrage reinzubauen.
Folgende Formel funktioniert auch:
Range(Cells(38, 12 + j), Cells(964, 12 + j)).FormulaR1C1 = "=IF(RC100.0001,-1,""0""))"
Sobald ich aber versuche die 0.0001 als Variable in die Formel zu schreiben, kommt immer ein Laufzeitfehler 1004. Könnt ihr mir vll sagen, was ich falsch mache?

Range(Cells(38, 12 + j), Cells(964, 12 + j)).FormulaR1C1 = "=IF(RC10" & x & ",-1,""0""))"
Vielen Dank im Voraus!!!
Gruß Pascal

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

Betreff
Benutzer
Anzeige
Dezimalpunkt und Komma
13.07.2010 20:59:05
Erich
Hi Pascal,
das hat mit den verschiedenen Sprachen und Dezimaltrennern zu tun.
Du willst eine Formel auf Englisch (mit IF für WENN) schreiben. Excel erwartet dann den Dezimalpunkt.
Wenn du x als Double deklariert hast und x = 0.0001 setzt, ist das in VBA normal und ok.
Wenn du dann aber " & x & " schreibst, wird x in einen String umgewandelt, der ein Dezimalkomma enthält.
Probier das mal auf einem leeren Blatt aus: 

Sub abc()
Dim x As Double, strX As String
x = 0.0001
strX = x
MsgBox strX ' hier siehst du das Komma
Range(Cells(1, 1), Cells(1, 2)).FormulaR1C1 = _
"=IF(RC100.0001,-1,""0""))"
On Error Resume Next
' Die nächsten beiden Anweisungen sind fehlerhaft:
Range(Cells(2, 1), Cells(2, 2)).FormulaR1C1 = _
"=IF(RC10" & x & ",-1,""0""))"
Range(Cells(3, 1), Cells(3, 2)).FormulaR1C1 = _
"=IF(RC10" & x & ",-1,""0""))"
On Error GoTo 0
' Ab hier ok
Range(Cells(4, 1), Cells(4, 2)).FormulaR1C1 = _
"=IF(RC10" & _
Replace(x, ",", ".") & ",-1,""0""))"
strX = Replace(x, ",", ".")
MsgBox strX ' hier siehst du den Punkt
Range(Cells(5, 1), Cells(5, 2)).FormulaR1C1 = _
"=IF(RC10" & strX & ",-1,""0""))"
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
noch eine kleine Korrektur
13.07.2010 21:01:44
Erich
Hi, die Anweisung für Zeile 3 war nicht die richtige.
Die richtige (und nicht funktionierende) Anweisung ist 

Range(Cells(3, 1), Cells(3, 2)).FormulaR1C1 = _
"=IF(RC10" & strX & ",-1,""0""))"
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
AW: VBA WennDann + Variable
13.07.2010 21:01:48
silex1
Hallo Pascal,
ich bin der VBA Vollpfosten schlecht hin, aber eine Formel mit ner Variablen, geht nur dann, wenn die Variable über NAMEN auch definiert ist.
Sicher hast Du auch deswegen noch keine Antwort, weil Du nur ne Zeile Deines Codes hier postest.
VG, Rene
@Rene: stimmt nicht
13.07.2010 21:06:26
Erich
Hi Rene,
"eine Formel mit ner Variablen, geht nur dann, wenn die Variable über NAMEN auch definiert ist":
Nein. Eine VBA-Variable hat nix zu tun mit Excel-NAMEN, muss auch nicht.
"keine Antwort, weil Du nur ne Zeile Deines Codes hier postest"
Nein. Das war sogar gut - genau um diese Zeile geht es ja, da ist das Problem.
Und zum Verständnis werden keine weiteren Zeilen gebraucht.
Grüße von Erich aus Kamp-Lintfort
Anzeige
@Erich: silex1=VBA Vollpfosten! ;-)
13.07.2010 21:20:06
silex1
Hallo Erich,
Danke für Deine Richtigstellung!
Bin wie gesagt zu doof für VBA.
Das allerdings manches geht, was bei Formeln nicht so ist, wird mir immer bewusster!
Leider hab ich auch keinen Draht zu VBA, da mir manches unlogisch erscheint, was füre Euch als VBA Profis logisch ist!
Hab auch nix versucht, da es m.E. auch für VBA nicht so etwas gibt wie den Formeleditor.
VG, Rene
AW: DANKE!!!!!!!!
13.07.2010 22:27:10
Pascal
Guten Abend Erich!
Der von dir gepostete Code funktioniert einwandfrei und hat mir wieder was beigebracht :)
Aber da wär ich im Leben nicht draufgekommen, dass beim string der Punkt zu einem Komma gewandelt wird... Naja, jetzt klappts jedenfalls!
Silex1 auch dir vielen Dank für deine Beiträge. Konntest mir leider nicht beim Problem helfen, aber du hast mir wenigstens ein lächeln ins Gesicht gezaubert. Mir hat damals (vor 2 Monaten) ein Einsteigerbuch über VBA geholfen. Den Rest such ich mir meist hier im Forum oder google zusammen!
Vielen Dank für Eure Hilfe!
Schönen Abend,
Pascal
Anzeige

307 Forumthreads zu ähnlichen Themen

VBA Code: wenn B1 <> blank, dann I in A1 schreiben
maxx_1985

Hi mit'nander
Braeuchte einen kleine Code dafuer:
wenn B1 blank, dann schreibe ein I in A1.
kann mir vielleicht jemand helfen? :-)
vielen vielen dank
denis
18.11.2008 16:27:16
Thread-ID: 1025694
5 Beiträge
Anzeige
Ohne VBA: Wenn Autofilter, dann anderen Zellwert
sunni

Hallo alle zusammen,
gibt es eine Möglichkeit über Excel (ohne VBA) zu sehen, ob ein Autofilter gesetzt ist?
Hintergrund: ich habe eine Formel bei gesetztem Autofilter. Wenn aber kein Autofilter gesetzt ist, soll hier in der Zelle eine 0 oder "" erscheinen.
Geht das?
Vielen Dank...
08.01.2010 12:35:47
Thread-ID: 1128216
8 Beiträge
wenn(isfehler=wahr;dann;sonst in vba
Joachim

Hallo,
ich wollte folgende Formel in vba schreiben:
=WENN(ISTFEHLER(VERGLEICH(B1;Wasserdaten!A:A;0))=WAHR;VERGLEICH(B1;Wasserdaten!A:A;1);VERGLEICH(B1; Wasserdaten!A:A;0))
Mein Code dazu geht auf Fehler:
zeile_ws = WorksheetFunction.if(IsError _
(Match(fdh_nr, Worksheets(...
30.04.2010 13:31:27
Thread-ID: 1154723
4 Beiträge
Anzeige
wie war das... VBA wenn dann ?
amintire

Hallo alle zusammen,
würde gerne in einem Label eine Auskunft geben wenn die UserForm geöffnet wird.
Also Daten stehen in A:B
'Wenn in der Spalte B größer als 1 vorhanden ist, dann soll die Zelle vor der Zahl mit angegeben werden.
=If B > 1 then
=?
oder so ähnlich ? <...
25.02.2011 11:37:33
Thread-ID: 1202920
16 Beiträge
wenn fehler dann sonst mit vba
Erik

Hallo Leute ich versuche einen Forecast zu erstellen und habe folgendes Problem.
Diese Formel:
=WENN(ISTFEHLER(VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B));"";VERWEIS(C:C;Tabelle3!A:A;Tabelle3!B:B))
Steht in einer Zelle.
Wenn die Leute jetzt in die zelle schreiben ist die formel weg....
24.10.2011 23:00:40
Thread-ID: 1235246
3 Beiträge
VBA Wenn dann
WalterK

Hallo,
ich komme nicht drauf, was ich bei der Definition von ErsteZei angeben muss! ErsteZei soll, wenn E3 Leer ist die Zahl 4 sein, ansonsten die Zahl 3!
So jedenfalls funktionert es nicht:
Sub Test() Dim ErsteZei As Integer ErsteZei = If Range("$E$3") = "" Then 4 Else 3 End If Msg...
11.07.2012 14:21:31
Thread-ID: 1270637
3 Beiträge
VBA Wenn Zelle Leer dann
Philipp

Hallo,
ich habe eine Tabelle und möchte daraus automatisch eine Liste generieren.
Die Tabelle sieht in etwa so aus
A B C
1 XYZ ABC
2 Bla 23%
3 Blub 2% 7%
4 ...
Das Makro soll nun schauen ob in der Spalte A...
12.07.2012 16:29:13
Thread-ID: 1270809
3 Beiträge
VBA2010 wenn dateiname dann makro
Rene

Hallo Leute,
ich habe einen Pfad, wo nur jene Dateien geöffnet werden sollen, die mit "BK" beginnen. Dann soll für all diese geöffneten "BK"-Dateien ein Makro durchlaufen, die BK-Dateien sind alle gleich aufgebaut. Nachdem das Makro durchgelaufen ist, soll die Datei unter dem Format .csv ge...
17.01.2013 09:46:25
Thread-ID: 1294735
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
4
8
7
3
4
15
2
2
2
2
3
4
1
1
10
2
1
5
1
5
1
1
6
8
2