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

Formel per VBA einfügen

Forumthread: Formel per VBA einfügen

Formel per VBA einfügen
Pascal
Hallo liebes forum,
ich hab da mal ne frage. Ich möchte gerne per VBA Formel in Zellen auf einen anderen Tabellenblatt einfügen, aber ich bekomme derzeit immer den Fehler: Laufzeitfehler 1004 "Anwendungs- und Objekt definierter Fehler.
Hier ein Auszug von meinem Code:
Private Sub OK1_Click()
Personalnummer = TextBox11
IA_Nummer = TextBox12
IST_Zeit = TextBox13
Bemerkung = TextBox14
Worksheets("Zeitprotokoll").Rows(6).Insert
Worksheets("Zeitprotokoll").Range("d6").Formula = "=WENNFEHLER(SVERWEIS(C6,Mitarbeiterliste! A:B,2,FALSCH),"")"
Worksheets("Zeitprotokoll").Range("l6").Formula = "=WENNFEHLER((((K6/100)*I6)/J6),"")"
Worksheets("Zeitprotokoll").Range("n6").Formula = "=WENNFEHLER(SVERWEIS(M6,Freigabeliste!A:B,2,FALSCH),"")"
Worksheets("Zeitprotokoll").Select
...............
Danke im Vorraus
Pascal
Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
;"") --> ;"""")
25.05.2011 09:12:22
Matthias
Hallo
Activecell.FormulaLocal="=WENNFEHLER(SVERWEIS(C6;Mitarbeiterliste!A:B;2;FALSCH);"""")
setz die Anführungszeichen in nochmal in Anführungszeichen
Userbild
AW: ;"") --> ;"""")
25.05.2011 09:34:44
Pascal
Hallo Maththias,
ich hab jetzt folgenes stehen:
Private Sub OK1_Click()
Personalnummer = TextBox11
IA_Nummer = TextBox12
IST_Zeit = TextBox13
Bemerkung = TextBox14
Worksheets("Zeitprotokoll").Rows(6).Insert
Worksheets("Zeitprotokoll").Range("d6").ActiveCell.FormulaLocal = "=WENNFEHLER(SVERWEIS(C6,Mitarbeiterliste! A:B,2,FALSCH),"""")"
Worksheets("Zeitprotokoll").Range("l6").ActiveCell.FormulaLocal = "=WENNFEHLER((((K6/100)*I6)/J6),"")"
Worksheets("Zeitprotokoll").Range("n6").ActiveCell.FormulaLocal = "=WENNFEHLER(SVERWEIS(M6,Freigabeliste!A:B,2,FALSCH),"""")"
Worksheets("Zeitprotokoll").Select
jetzt habe ich den Fehler: Laufzeitfehler 438 "Ojekt unterstützt die Eigenschaft oder Methode nicht"
was mache ich da falsch?
Gruß
Pascal
Anzeige
AW: ;"") --> ;"""")
25.05.2011 09:40:48
Matthias
Hallo
Ich baue das nicht nach, aber ich tippe hier
Worksheets("Zeitprotokoll").Range("l6").ActiveCell.FormulaLocal = "=WENNFEHLER((((K6/100)*I6)/J6),"")"
Worksheets("Zeitprotokoll").Range("l6").ActiveCell.FormulaLocal = "=WENNFEHLER((((K6/100)*I6)/J6),"""")"
nicht getestet
Userbild
Anzeige
Semikolon statt Komma ... ?
25.05.2011 09:49:37
Matthias
Hallo
FormulaLocal="=WENNFEHLER((((K6/100)*I6)/J6);"""")
Gruß Matthias
AW: Semikolon statt Komma ... ?
25.05.2011 09:58:48
Pascal
Hallo,
ich hab jetzt mal die Formel aufgezeichnet uns hab die wie folgt abgeändert:
Private Sub OK1_Click()
Personalnummer = TextBox11
IA_Nummer = TextBox12
IST_Zeit = TextBox13
Bemerkung = TextBox14
Worksheets("Zeitprotokoll").Rows(6).Insert
Worksheets("Zeitprotokoll").Range("d6").ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],Mitarbeiterliste!C[-3]:C[-2],2,FALSE)),"""")"
Worksheets("Zeitprotokoll").Range("l6").ActiveCell.FormulaR1C1 = "=IFERROR((((RC[-2]/100)*RC[-2])/RC[-1]),"""")"
Worksheets("Zeitprotokoll").Range("n6").ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(""M6!"",Freigabeliste!C[-13]:C[-12],2,FALSE),"""")"
Worksheets("Zeitprotokoll").Select
hab jetzt immer noch den Fehler 438. ich dachte man müsste im VBA bei Formeln immer Komma statt Simikolon?
Gruß
Pascal
Anzeige
AW: Semikolon statt Komma ... ?
25.05.2011 10:05:36
Pascal
Noch eine kleine Aänderung zum Code bei der dritten Formel:
ActiveCell.FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-1],Freigabeliste!C[-13]:C[-12],2,FALSE),"""")"
AW: nochmal ...
25.05.2011 10:36:41
Pascal
Hey,
hat geklappt. Super
Danke
Pascal
AW: Semikolon statt Komma ... ?
25.05.2011 10:37:26
fcs
Hallo Pascal,
in den verweisen auf die Zellen darf das ".ActiveCell" nach der Range-Angabe nicht vorhanden sein.
In der letzten Formel ist ""M6!"" wahrscheinlich falsch. Hier muss wohl RC[-1] stehen.
Mit dem With-Konstrukt erspart man sich hier die ständige Wiederholung des Blattnamens
Gruß
Franz 
Private Sub OK1_Click()
Personalnummer = 12345 'TextBox11
IA_Nummer = IA1224 'TextBox12
IST_Zeit = "08:10" 'TextBox13
Bemerkung = "Bemerkung" 'TextBox14
With Worksheets("Zeitprotokoll")
.Rows(6).Insert
.Range("d6").FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-1],Mitarbeiterliste!C[-3]:C[-2],2,FALSE)),"""")"
.Range("l6").FormulaR1C1 = "=IFERROR((((RC[-2]/100)*RC[-2])/RC[-1]),"""")"
.Range("n6").FormulaR1C1 = _
"=IFERROR(VLOOKUP(""M6!"",Freigabeliste!C[-13]:C[-12],2,FALSE),"""")"
'   .Range("n6").FormulaR1C1 = _
"=IFERROR(VLOOKUP(RC[-1],Freigabeliste!C[-13]:C[-12],2,FALSE),"""")" '?
.Select
End With
End Sub

Anzeige
AW: Formel per VBA einfügen
25.05.2011 09:28:53
Marc
Moin!
Der Gedanke der formel ist gar nicht verkehrt
Füge doch mal folgende Formel mit dem VBA-Rekorder per Copy/Paste deine Tabelle.
=WENN(ISTFEHLER(SVERWEIS(C6;Mitarbeiterliste!A:B;2;FALSCH));"";"Sonst was?")
Die anderen Formeln mußt du entsprechend korrigieren.
Gruß, Marc
Anzeige
;

Forumthreads zu verwandten 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:33:59
Thread-ID: 1000866
3 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
VBA - Zelle kopieren bis Wert einer Zelle null ist
Schulze

Halli Hallo,
ich bin ziemlicher Neuling in VBA. Daher würde ich euch bitten mir bei meiner Fragestellung zu helfen und zwar wie folgt: Ich möchte aus einer Tabelle aller Zellen kopieren, bis der Wert einer Zelle 0 annimmt. Diesen bestimten Bereich möchte ich in einer neuen Datei abspeichern...
19.08.2008 08:39:35
Thread-ID: 1002782
17 Beiträge
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
Anzeige
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
Zelleninhalt mit VBA suchen
Tom

Hallo
zum Feierabend noch mal fix ne Frage
ich möchte in einem anderen sheet, in einer anderen Tabelle etwas suchen und danach 4 Zellen nach links gehen und den Wert kopieren...
Dim strActiveCell As String
Dim rFound As Range
Tabellenname = ActiveSheet.Name
Tabellenname...
04.09.2008 16:41:17
Thread-ID: 1007457
4 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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