Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon JoergG vom 04.06.2020, 15:42 Options
Excel Range Laufzeit 1004
Hallo ,
ich habe eine Problem mit Range wenn ich in einen Sheet
nach einen Begriff suche und dann in 2 Zellen eine Formel
eintragen möchte. Erstmal der Codeausschnitt:
Dim gZelle As Range, sBegriff$
sBegriff = "Auftrag"
Set gZelle = Worksheets(FBFile).Columns("A:F").Find(sBegriff)
Set gZelle = gZelle.Offset(0, 2)
MSgbox FBFile & " " & gZelle.Address(False, False)
Worksheets(FBFile).Range(gZelle.Address).Formula = "=WENN(Startseite!$D$6="";"";Startseite!$D$6)"
Ich finde hier meinen Fehler nicht..
Lg Jörg
ich habe eine Problem mit Range wenn ich in einen Sheet
nach einen Begriff suche und dann in 2 Zellen eine Formel
eintragen möchte. Erstmal der Codeausschnitt:
Dim gZelle As Range, sBegriff$
sBegriff = "Auftrag"
Set gZelle = Worksheets(FBFile).Columns("A:F").Find(sBegriff)
Set gZelle = gZelle.Offset(0, 2)
MSgbox FBFile & " " & gZelle.Address(False, False)
Worksheets(FBFile).Range(gZelle.Address).Formula = "=WENN(Startseite!$D$6="";"";Startseite!$D$6)"
Ich finde hier meinen Fehler nicht..
Lg Jörg
Antwort 1 von schnallgonz vom 13.06.2020, 21:39 Options
Salve,
schon ein paar Tage her, Lösung gefunden oder aufgegeben?
Ich tippe auf "dos problemos" ;-)
mfg
schnallgonz
schon ein paar Tage her, Lösung gefunden oder aufgegeben?
Ich tippe auf "dos problemos" ;-)
- Du verwendest dt. Bezeichnungen, das muss man Herrn Excel mit "FormulaLocal" sagen
- In der Formel sollen "" übergeben werden, die aber gleichzeitig für die Stringerkennung sorgen.
Entweder Du deklarierst eine Anführungszeichenvariable oder Du setzt die "" in "", wobei man schon mal durcheinander kommen kann, guxu hier:Worksheets(FBFile).Range(gZelle.Address).FormulaLocal = _ "=WENN(Startseite!$D$6=" & """""" & ";" & """""" & ";Startseite!$D$6)"
mfg
schnallgonz
Antwort 2 von JoergG vom 17.07.2020, 11:16 Options
Danke dir, das war der fehler...
Lg Jörg
Lg Jörg
Ähnliche Themen
Laufzeitfehler 1004 bei Methode 'UpdateLink'
jojo5 17.10.2007 - 123 Hits - 2 Antworten
Laufzeitfehler 1004
rheym 22.04.2008 - 109 Hits - 2 Antworten
VBA Excel
lanz 20.05.2008 - 49 Hits - 5 Antworten
Laufzeitfehler '1004' - bei Sheets().Range(Cells(), Cells()).copy
jojo5 19.05.2008 - 73 Hits - 3 Antworten
Laufzeitfehler 1004 in Excel 2003
Surprise 05.06.2008 - 100 Hits - 2 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
