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

InserLines => Fehler 1004

Forumthread: InserLines => Fehler 1004

InserLines => Fehler 1004
25.04.2003 22:57:52
Robert
Hallo,

kann mir jemand sagen was in folgender Zeile falsch ist, denn ich erhalte immer einen "Laufzeitfehler '1004'".

ThisWorkbook.VBProject.VBComponents("Modul1").CodeModule.InsertLines 1, "test"

Danke

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: InserLines => Fehler 1004
26.04.2003 06:30:34
andre

hallo robert,
hast du ein modul1, steht der code da drin, ?
gruss andre


Re: InserLines => Fehler 1004
26.04.2003 18:26:04
Robert

Hi andre,

Modul1 ist vorhanden. Code steht in "DieseArbeitsmappe".

Robert

Re: InserLines => Fehler 1004
26.04.2003 18:51:58
Robert

Hi,

habe Fehler gefunden. Microsoft war mal wieder übervorsichtig:
Extras => Makros => Sicherheit => Vertrauenswürdige Quellen => Zugriff auf Visual Basic-Projekt vertrauen

Robert

Anzeige
;

Forumthreads zu verwandten Themen

1 Klick in Excel = Serienbrief (Word)
Marcus

Hallo zusammen,
ich habe da mal wieder ein kleines Problem!
Ich habe eine Exceltabelle mit Kundendaten. Diese muss ich in Einzelfällen anschreiben! Ich habe einen Worddokument, in dass ein paar Daten von einem Kunden eingetragen werden sollen.
Nun meine frage:
Gibt es eine Mögl...
03.09.2008 13:09:49
Thread-ID: 1007086
3 Beiträge
"Wenn Zeit > 17.30 Uhr dann"
Susanne99

Hallo,
wie formuliere und formatiere ich den o.g. Ausdruck als Formel?
Gruß
Susanne
14.09.2008 23:24:58
Thread-ID: 1009640
6 Beiträge
Kann =mid(A1,1,1) nicht mit SVERWEIS verbinden
maxx_1985

Hallo liebe Excelexperten,
mein Problem:
14000 ich mache daraus eine 1. Mit der Formel =(A1,1,1)
Diese 1 steht nun in B1. Jetzt moechte ich mich darauf beziehen und eine IF/THEN Formel einbauen. Excel macht das aber nicht. Nur wenn ich in B1 die 1 MANEULL reinschreibe, greift meine...
07.11.2008 18:46:00
Thread-ID: 1022785
5 Beiträge
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
select range if cellvalue =1
patrick

Hallo ich hab wieder eine frage an die excel und VBA profis:
ich möchte gerne ein makro dass mir einen bereich markiert wenn in einer bestimmten spalte ein bestimmter wert drin steht.
dh: zb:
wenn in einer zelle der spalte C85 eine "1" steht dann markiere den bereich B85:J85 oder w...
04.03.2009 11:16:37
Thread-ID: 1056258
5 Beiträge
ActiveSheet.CircleInvalid = null dann makro
Benjamin

hallo zusammen,
ich habe folgendes problem.
ich habe ein excel sheet mit mehren datenüberprüfungen versehen. Also z.B. in einer Spalte darf nur Datum grösser heute eingegeben werden, in einer anderen darf die maximale Textlänge 5 Zeichen nicht übertragen usw.
Das funktioniert auch g...
07.03.2009 17:23:28
Thread-ID: 1057716
6 Beiträge
Anzeige
select range if cellvalue =1
patrick

Hallo ich hab wieder eine frage an die excel und VBA profis:
ich möchte gerne ein makro dass mir einen bereich markiert wenn in einer bestimmten spalte ein bestimmter wert drin steht.
dh: zb:
wenn in einer zelle der spalte C85 eine "1" steht dann markiere den bereich B85:J85 oder we...
09.03.2009 15:47:00
Thread-ID: 1058202
13 Beiträge
Anzeige
Sortierung mit Kopfzeie trotz "Header:=x1Guess"
ROlf

Hallo Leutz,
Folgender Codeauschnitt:
Columns("A:AP").EntireColumn.AutoFit
'************************
'TABELLE SORTIEREN
'************************
If Hauptmenu.OptionButton4.Value = True Then
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Key2:=Range("D2") _
09.04.2009 12:57:22
Thread-ID: 1067975
8 Beiträge
wenn Änderung Zellinhalt dann Macro
Joachim

Hallo,
ich hab 2 Tabellen (Eintrag und Statistik) und 2 Diagramme (Fehler und TelFax). Bei der Tabelle Statistik habe ich folgenden Code eingetragen:
Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("D2:G30")) Is Nothing Then Call DiaFehlerFormat Call...
07.05.2009 14:02:59
Thread-ID: 1073604
12 Beiträge
Wert aus Zelle x in Zelle y, wenn Zelle Y =1
Wolfgang

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
08.05.2009 11:11:52
Thread-ID: 1073830
3 Beiträge
Anzeige
Werte von Zelle x übernehmen, wenn Zellwert=1
Zelle

Liebe Profis
In folgender Prozedur
Private Sub CommandButton1_Click() Range("A23:A37").Select Selection.TextToColumns Destination:=Range("A23"), DataType:=xlDelimited, _ TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _ Semicolon:=False, Comma:=False, Space:=Fal...
11.05.2009 15:53:03
Thread-ID: 1074391
4 Beiträge
Wenn "Test" in I19:I23 dann Wert kopieren
Heinz

Guten morgen Leute
Habe ein Problem,deren Lösung ich nicht weiterkomme.
ZB. In Sheet "Zuschauer"A2 =WENN('R1'!$I19:$I23="Test";R1'!$j$19
In Sheet "Zuschauer" geht es bis 'R36' A2 - A3 - A4 usw. es geht um ein Diagramm für Zuschauer bei
HEIMSPIELEN.
Wenn zB. 'R3 "Test" i...
11.07.2009 10:40:54
Thread-ID: 1087834
2 Beiträge

Beliebteste Forumthreads (12 Monate)

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