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

BUG, warum, wo ist der Fehler?

Forumthread: BUG, warum, wo ist der Fehler?

BUG, warum, wo ist der Fehler?
23.06.2024 13:56:27
Ralf Bredenbeck
Hallo zusammen,

ich habe eine makro, die immer in einen Fehler läuft, der einegentlich keiner ist.
Das Makro macht was es soll, speichert, auch am richtigen Ort, dann habe ich aber eine BUG Meldung.
Den Speicherort ( One drive) ist richtig und gibt es auch.

Ich habe ein anders Makro, wo es nur an einem anderen Ort gespeichert wird, das läuft alles glatt.

Kann mir einer sagen, wio der Fehler liegt.

Danke vorab.

LG Ralf

Sub Vorlage_in_onedrive_speichern()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\Anwender\OneDrive\Vorlage für die Kegelabende\" & "Spielplanvorlage für den " & Sheets("Kegeltermin").Range("C2") & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = False

End Sub
Anzeige

18
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: BUG, warum, wo ist der Fehler?
23.06.2024 14:10:46
Onur
Du willst wissen, wo der Fehler ist?
Dann schreibe, WAS GENAU und WO der Fehler sein soll und poste die Datei oder wenigstens den GANZEN Code - und nicht nur 2-3 Zeilen davon.
AW: BUG, warum, wo ist der Fehler?
23.06.2024 14:19:12
Ralf Bredenbeck
Dies ist das ganze Makro.

Gelb unterlegt ist Zeile 3-5

Gruß

AW: BUG, warum, wo ist der Fehler?
23.06.2024 14:20:06
Onur
WELCHE FEHLERMELDUNG ????
Anzeige
AW: BUG, warum, wo ist der Fehler?
23.06.2024 14:29:30
Ralf Bredenbeck
Laufzeitfehler '1004'

Die Methode 'SaveAs' für das Objekt'Workbook' ist fehlgeschlagen

LG
AW: BUG, warum, wo ist der Fehler?
23.06.2024 14:33:19
Onur
Wenn du eine Zeile in 3 Zeilen schreibst, muss hinter Zeile 1 UND 2 am Ende ein Unterstrich "_" sein.
AW: BUG, warum, wo ist der Fehler?
23.06.2024 14:39:30
JoWE
Hi,
und was genau steht in C2 ???
Jochen
Anzeige
AW: BUG, warum, wo ist der Fehler?
23.06.2024 23:15:57
Oppawinni
Also ich würde mir mal anschauen, ob der Pfad ok ist. 
Dim strFilePath

strFilePath = "C:\Users\Anwender\OneDrive\Vorlage für die Kegelabende\Spielplanvorlage für den " & Sheets("Kegeltermin").Range("C2") & ".xlsm"

debug.print strFilePath

wobei ich diese ewigen sprechenden Pfade nicht wirklich leiden kann.
Bei mir wär das maximal sowas: "....\Vorlage_Kegelabende\Vorlage_240703.xlsm
Anzeige
AW: BUG, warum, wo ist der Fehler?
24.06.2024 08:56:19
Ralf Bredenbeck
Hallo guten Morgen,

gestern bin ich nicht mehr dazu gekommen euch zu antworten.

Der Pfad stimmt, das Workbook wird auch gespeichert, dann läuft es in den 'Laufzeitfehler 1004'.

Nachdem das Makro fertig ist, sollte eine weiteres Makro ablaufen, das schliessen der gesamten Mappe und dies
läuft ja nicht, da die angesprochene Makro in den Fehler läuft.

Danke für all eure Vorschläge.

Gruß Ralf
Anzeige
AW: BUG, warum, wo ist der Fehler?
24.06.2024 09:09:43
Oppawinni
Waaas?
Dann tritt der Fehler womöglich nicht in der Sub auf, die du uns da zeigst?
Warum hast du eigentlich 2 mal Application.DisplayAlerts = False
Da wolltest du vielleicht auch mal wieder true setzen, oder ?
AW: BUG, warum, wo ist der Fehler?
24.06.2024 09:21:58
Ralf Bredenbeck
Hallo Oppawinni,

dies ist meine Fehlermeldung:

Laufzeitfehler '1004'

Die Methode 'SaveAs' für das Objekt'Workbook' ist fehlgeschlagen

und dies ist mein Makro:

Sub Vorlage_in_onedrive_speichern()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="C:\Users\Anwender\OneDrive\Vorlage für die Kegelabende\" & "Spielplanvorlage für den " & Sheets("Kegeltermin").Range("C2") & ".xlsm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled
Application.DisplayAlerts = False

End Sub

Siehst Du dort einen Grund warum ich den Fehler bekomme. Während das Makro läuft, sehe ich auf dem Bildschirm auch das der Upload stattfindet.
Dann kommt der Laufzeitfehler.

Gruß
Anzeige
AW: BUG, warum, wo ist der Fehler?
24.06.2024 09:31:07
Oppawinni
Ich verstehe nicht
a) warum du Warnungen unterdrückst, wenn du wissen willst, was potentiel das Problem ist.
b) warum du das am Ende der Sub wiederholst.
AW: BUG, warum, wo ist der Fehler?
24.06.2024 09:38:04
Ralf Bredenbeck
Wie sollte es deiner Meinung nach dann aussehen?
AW: BUG, warum, wo ist der Fehler?
24.06.2024 09:45:55
Oppawinni
Setze beide
Application.DisplayAlerts = True
und schau dir an, welche Meldungen auflaufen.

Anzeige
AW: BUG, warum, wo ist der Fehler?
24.06.2024 10:03:15
GerdL
Moin, teste mal. 
Sub Vorlage_in_onedrive_speichern_2()



a = "C:\Users\Anwender\OneDrive\Vorlage für die Kegelabende\" & "Spielplanvorlage für den "

b = Sheets("Kegeltermin").Range("C2") & Now



c = "'" & a & b & "'"

d = c & ".xlsm"

ActiveWorkbook.SaveAs Filename:=d, FileFormat:=xlOpenXMLWorkbookMacroEnabled



End Sub

Gruß Gerd
Anzeige
AW: Irgend eine Rückmeldung wäre ganz nett gewesen..(owT)
25.06.2024 22:04:28
Oppawinni
AW: BUG, warum, wo ist der Fehler?
23.06.2024 15:50:36
RPP63
Moin!
Genau das war auch mein erster Gedanke:
unzulässige Zeichen in C2
Der zweite Gedanke war:
… \Anwender\OneDrive\ …
Da steht doch hoffentlich der richtige Anwendername?
Da OneDrive eine eigene Umgebungsvariable belegt, setze ich den Pfad lieber wie folgt zusammen:
Environ("Onedrive") & "\Unterordner\ …"

Gruß Ralf
Anzeige
AW: BUG, warum, wo ist der Fehler?
23.06.2024 15:51:45
Onur
Und das da ein Unterstrich fehlt, kann nicht das Problem sein ?
AW: BUG, warum, wo ist der Fehler?
23.06.2024 15:54:03
RPP63
Nö, Onur! ;)
Der Zeilenumbruch wird hier von der Forensoftware produziert.
Kopiere mal den Code und füge ihn in den VBA-Editor ein.
Du erhältst: 
Sub Vorlage_in_onedrive_speichern()

Application.DisplayAlerts = False

ActiveWorkbook.SaveAs Filename:="C:\Users\Anwender\OneDrive\Vorlage für die Kegelabende\" & "Spielplanvorlage für den " & Sheets("Kegeltermin").Range("C2") & ".xlsm", _

FileFormat:=xlOpenXMLWorkbookMacroEnabled

Application.DisplayAlerts = False



End Sub

Gruß Ralf
Anzeige

Forumthreads zu verwandten Themen

Wo ist der Fehler?
Bernd

Einen schönen guten Morgen,
folgendes Problem habe ich:
Wie Ihr in der Tabelle sehen könnt, ist Andy auf platz 4 und Hery und Bernd auf Platz 5.
Wo ist da der Fehler in der Formel?
Tabelle2

 ABCD12PlatzNameverlorenhilfsspalte134Andy        1,30 €...
30.08.2008 07:15:00
Thread-ID: 1006008
3 Beiträge
wo ist der fehler?
stefan

Hallo,
ich habe eine spalte mit domainnamen (z.b domain.de oder domain.net). ich will daraus den wert ermitteln. wenn .de-domain, dann 1 ansonsten 1,5
habe folgende formel: =WENN(FINDEN(".de";$B2);1;1,5)
leider wirft er bei nicht .de-domains einen fehler aus und schreibt nicht 1,5 h...
09.12.2008 11:57:11
Thread-ID: 1031321
8 Beiträge
Formel: Summe= Monat, Jaht und Text
Frank

Hallo, bräuchte mal eure Hilfe.
Habe eine Tabelle und möchte nur die Anzahl des Textes die in A stehen
aber nur von bestimmtem Jahr und Monat
es wird erst in M der Monat gesucht den ich in B2 eingebe
dann das Jahr in M das ich in F1 eingebe
und nun der Text der in A steht.
14.12.2008 10:38:00
Thread-ID: 1032734
2 Beiträge
Zahl im Text herausfinden vba
Harald

Hallo im Excelforum,
ich möchte aus einer Zelle in der Text und Zahlen stehen, eine sechstellige Zahl finden deren erste 3 Zahlen immer gleich sind zb 208xxx und das mit vba. In Spalte vier steht der Text und in Spalte 9 sollte dann nur noch die Zahl stehen.
mfg
Harald
30.12.2008 16:07:13
Thread-ID: 1036013
22 Beiträge
KW Funktion funktioniert nicht
Peter

Hallo Excelfreunde
Ich bekomme in einer Datei die KW Funktion nicht hin.
Bei mir zu Hause funktioniert die Ausgabe der jeweiligen Kalenderwoche.
Die Analysefunktion muss dafür per Add in angewählt werden.
Dann "=KALENDERWOCHE(A1205)" eingeben - fertig.
Aber im Betrieb läuft...
14.03.2009 19:26:55
Thread-ID: 1060238
4 Beiträge
wo ist der fehler?
Hirschi

Sub mal4() Dim a As Integer For a = 1 To 100 If Cells(a, 1).Caption "" And Cells(a, 1).Caption Mod Cells(a, 2).Caption = 0 Then Cells(a, 3).Caption = CLng(Cells(a, 2)) / 5 * 4 Else Cells(a, 3).Caption = "" End If Next End Sub
Vielen Dank für eure Hilfe! Gruss Hirschi
27.03.2009 12:46:02
Thread-ID: 1064581
9 Beiträge
wo ist der fehler?
Emil

Hallo zusammmen
könnt ihr mir sagen wo hier der Fehler ist?
=WENN(L12="";RANG(C12;C$12:"C"$&Zeile(11+C9));"")
C$12:"C"$&Zeile(11+C9) darf man einen Bereich so formulieren?
in diesem falle müsste das dann geben den Bereich C12:C20
Gruss Emil
06.04.2009 15:14:56
Thread-ID: 1067119
6 Beiträge
Anzeige
wo ist der fehler?
Michel

Hallo
=SUMMENPRODUKT((A1:A1000)="Neue Formatdaten)"*((D1:D1000)="ZugriffLevel0"))
Vielen Dank für eure Hilfe!
Gruss Michel
08.05.2009 14:05:10
Thread-ID: 1073889
4 Beiträge
wo ist der Fehler?
Reto

Hallo zusammen
bekomme mit dieser Formel nur die Fehlermeldung #Wert..
=SUMMENPRODUKT((JAHR('einmalige Bestellungen'!D2:D5000)=Gesamtübersicht!A6)*1)
in D2:D5000 stehen Daten, in A6 ist 2004
wieso geht das nicht?
Vielen Dank für eure Hilfe!
Gruss Reto
15.05.2009 14:03:32
Thread-ID: 1075467
4 Beiträge
Wo ist der Fehler?
Jay

Hallo,
ich bin noch nicht so bewandert mit Schleifen, habe vesucht ein Textfeld einzublenden, falls folgende Zellenwerte Null sind, das klappt aber leider nicht, ist da vielleicht ein Fehler drin?
If Worksheets("Tabelle1").Cells(10, 11) = "0" Then
If Worksheets("Tabelle1").Cells(11...
21.05.2009 14:51:53
Thread-ID: 1076559
12 Beiträge
Formel interpretiert Feldwerte als Text
pietsch.st@gmx.de

Hallo Forum,
habe Werte in vier Zellen. Die Werte stammen jeweils aus folgender selbstgeschriebener Funktion mit Rückgabewert Long:
= Anz_Unf($B$2, "Arbeitsunfall", "3","e").
Die Werte dieser Formel sind im Feld als Zahl dargestellt und sind korrekt. Als Zahl gemäß Excel "Format-Zel...
08.07.2009 22:59:54
Thread-ID: 1087292
3 Beiträge
Anzeige
Text als Formel
chrissey

Hey Leut,
hab folgendes Problem:
Hab in Spalte C folgenden Text:
50*3,2+8,4
möchte nun diesen Text in Spalte F berechnet haben. Wie mach ich das,
weil =C1 oder ="="&C1 geht net.
Grüße und DANKESCHÖÖÖÖN schon mal
09.08.2009 18:29:54
Thread-ID: 1094551
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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