Office: Hilfe!! Fehlermeldung :Argument ist nicht optional???

User · 13. März 2006

Hallo,

bekomme beim ausführen des folgenden Codes immer den Fehler:

"Argument ist nicht optional"

Was mache ich falsch??

Code:

Windows(dateiNameNeu).Activate

Dim s As Integer
Dim i As Integer

s = Worksheets.Count

For i = 1 To s

'Alle Kostenstellen Spalten löschen
SpaltenLoeschen dateiNameNeu, Sheets(i).Name, dateiNameAlt, sheetNameAlt

'Alle Kostenstellen UeberschriftUnterstrich
UeberschriftUnterstrich dateiNameNeu, Sheets(i).Name
Next i
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Danke für eure Hilfe!!

:)

User · 15. März 2006

Hat sich erledigt!!!

Danke

Moderatorenanmerkung:
siehe dazu den weiterführenden Code in Letzten 2 Zeichen eines Strings in Variable kopieren
jinx

zigge · 21. November 2006

Hallo liebe Foretter,

ich habe dasselbe Problemchen und starte deshalb eine Wiederbelebung des Threads:

Meine "Programmierung" ist zusammengewürfelt aus sämtlichen Tipps sämtlicher Foren, weil ich bis vor ca. 2 Wochen noch so gut wie überhaupt nicht mit Access gearbeitet habe und definitiv noch NIE in VB programmiert habe.

Vielleicht kann mir aber jemand netterweise einen Tipp geben, wie ich diese Programmierung verbessern kann, damit keine Fehlermeldung "Argument ist nicht optional" mehr vorkommt und ich mein "Projekt Datenbankentwicklung" endlich abschließen kann.

Private Sub Kombinationsfeld83_BeforeUpdate(Cancel As Integer)
'Wordausgabe, "H:\Eigene Dateien\Datenbank-Projekt\Anschreiben"
End Sub
Private Sub Befehl76_Click()
Dim WWapp As Word.Application
Dim WWDoc As Word.Document
Dim wwRange As Word.Range

On Error Resume Next

If IsNull(Me!DokumentPfad) Then
MsgBox "Es wurde keine Datei ausgewählt.", vbExclamation
Exit Sub
End If

Set WWapp = CreateObject("Word.Application")
'Dokument öffnen
Set WWDoc = WWapp.Documents.Open(Me!DokumentPfad)

'Felder an Textmarken übergeben
With WWDoc
Set wwRange = .Goto(What:=wdGoToBookmark, Name:="Anrede")
wwRange.Text = CStr(Me.Anrede.Value)
Set wwRange = .Goto(What:=wdGoToBookmark, Name:="Vorname")
wwRange.Text = CStr(Me.Vorname.Value)
Set wwRange = .Goto(What:=wdGoToBookmark, Name:="Nachname")
wwRange.Text = CStr(Me.Nachname.Value)
Set wwRange = .Goto(What:=wdGoToBookmark, Name:="Adresse")
wwRange.Text = CStr(Me.Adresse.Value)
Set wwRange = .Goto(What:=wdGoToBookmark, Name:="PLZ")
wwRange.Text = CStr(Me.PLZ.Value)
Set wwRange = .Goto(What:=wdGoToBookmark, Name:="Ort")
wwRange.Text = CStr(Me.Ort.Value)
End With
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Es geht darum, dass ich über ein DropDown-Feld eine Auswahl für ein Dokument treffen möchte und dieses ausgewählte Dokument dann über eine im Formular eingebettete Schaltfläche für den einen Datensatz ausdrucken möchte.

Wer kann mir helfen?

Office: Hilfe!! Fehlermeldung :Argument ist nicht optional???

Hilfe!! Fehlermeldung :Argument ist nicht optional???

Hilfe!! Fehlermeldung :Argument ist nicht optional???

Hilfe!! Fehlermeldung :Argument ist nicht optional??? - Similar Threads - Hilfe Fehlermeldung Argument

Hilfe bei "Zählenwenns"

Hilfe Excel Formel

Benötige Hilfe bei SQL-Befehl

Hilfe bei der Diagrammerstellung in Excel

Hyperlink mit Hilfe Sverweis

Excel: Eingabe einer Verlinkung/Verknüpfung - Folge beim Start/Öffnen: Fehlermeldung zu einer toten

HILFE!! Fehlermeldung Dokumentname oder Pfad ungültig