Office: Funktion aufrufen

Guten Morgen,

ich habe ein ganz doofes Problem.
Ich habe eine Funktion geschrieben, die nix berechnet sondern mir nur an vielen Stellen im Skript schreibarbeit abnehmen soll.
Beispiel:
Public Function Neu()
Sheets("Tabelle3").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.Delete
End Function

Nun will ich nach generierung einer neuen Datei diese Funktion ausführen.
Problem: Bei Aufruf mit Neu() kommt eine Fehlermeldung
"Fehler beim Kompilieren. Erwartet: =" *bawling

Hoffe mir kann jemand helfen

Gruß Jens

:)

 

moin,

wegen Montag-Morgen-Dummrumgeseier- Gelöscht :-)


Gruss eggzess

 

Moin,


@eggzess:
Sowohl Funktionen als auch Makros werden durch das Klammerpaar als ausführbare Aktionen gekennzeichnet - datt war nix... So, und nun bin ich scheinabr aufgewacht und habe (endlich?) verstanden, was Du meinst - logisch.

@Jens:
Wenn Du die Funktion aufrufst, macht sie bei mir doch das, was sie soll - aber warum eine Funktion und keine Sub verstehe ich nicht...

Edit: Warum aber nicht einfach unter EXTRAS / OPTIONEN / Reiter ALLGEMEIN die Anzahl der Blätter verringern?

 

Hallo noch mal.
Auch wenn man so was eigendlich nicht macht, aber bei mir funzt des immer noch net:

Sub Speichern()

Public Function Neu()
Sheets("Tabelle3").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.Delete
End Function

Blatt = 1
b = 1

Windows("Mahnliste.xls").Activate
Sheets("Hilfeblatt").Select
Range("A2").Select

Do While b = 1
Windows("Mahnliste.xls").Activate
Sheets("Hilfeblatt").Select
If IsEmpty(ActiveCell) Then
b = 0
End If
Blatt = ActiveCell
ActiveCell.Delete
Select Case Blatt
' Hier folgt eine Funktion, welche in einer gerade erzeugten Datei die Tabllenblätter 2 und 3 löscht
Public Function Neu()
Sheets("Tabelle3").Select
ActiveWindow.SelectedSheets.Delete
Sheets("Tabelle2").Select
ActiveWindow.SelectedSheets.Delete
End Function
Case 4001
If Dir("Pfad+Datei") = "Datei" Then
' Datei vorhanden
Else
' Datei nicht vorhanden
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"Pfad+Datei", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Neu() *bawling

End If
Windows("Mahnliste.xls").Activate
Sheets("04001").Select
Sheets("04001").Move After:=Workbooks("Leitung.xls").Sheets(1)
ActiveWorkbook.Save
Case *viele weitere*
Case Else
End Select
Windows("Mahnliste.xls").Activate
Loop

End Sub

Was hab ich verbockt?
Please help!!!

Gruß Jens

 

Moin, Jens,

eine Funktion oder eine andere Sub darf nicht innerhalb einer anderen Prozedur definiert werden - alles schön für sich alleine. Für Funktionen galt außerdem AFAIR der Grundsatz, dass sich diese in allgemeinen Modulen zu befinden hätten. Also bitte die Prozeduren einzeln aufschreiben - udn vielleicht ein wenig den Code bearbeiten (nichts gegen den Makrorekorder - aber mir ist der einfach zu unflexibel).

 

Dankeschön!

Des kommt davon, wenn man sonst nur C++ programmiert (Da geht so was nämlich).

Gruß Jens

P.S. Makrorekorder is ganz schön, wenn man nen Befehl such und den nicht findet. Makro aufnehmen -> Befehl rauskopieren und in eigenes Skript einfügen -> Fertig *angel

 

Moin, Jens,

die "lästige" Meldung könnte man dann per
Application.DisplayAlerts = False
vor den Löschanweisungen und unbedingt mit dem Zusatz True direkt hinterher ausschalten. Bitte beachten, sonst gibt es von Excel keine Hinweise mehr...

Trotzdem bleibt für mich die Frage, warum Du zuerst eine Mappe mit 3 Blättern anlegst, wenn Du nur eines möchtest.
Code:

sollte es doch auch tun, um eine Mappe mit einer Tabelle anzulegen...

@eggzess:
Sorry, ich sollte wohl erst einmal frühstücken, bevor ich Fragen beantworte - nun ist auch das nicht mehr gültige Zahlungsmittel bei mir gefallen.

 

Hallo.
Also doch noch mal *frown.gif* !
Leider funzt des immer noch gar überhaupt net.
Schon beim versuch zu kompilieren von MS Visual Basic kommt die Fehlermeldung *mad.gif*
Ich hab auch versucht die Funktion zu nem eigenen Sub zu machen und durch Neu() aufzurufen.
Hier nun noch mal der Code:

Sub Speichern()

Blatt = 1
b = 1

Windows("Mahnliste.xls").Activate
Sheets("Hilfeblatt").Select
Range("A2").Select

Do While b = 1
Windows("Mahnliste.xls").Activate
Sheets("Hilfeblatt").Select
If IsEmpty(ActiveCell) Then
b = 0
End If
Blatt = ActiveCell
ActiveCell.Delete
Select Case Blatt

Case 4001
If Dir("Pfad+Datei") = "Datei" Then
Else
Workbooks.Add
ActiveWorkbook.SaveAs Filename:= _
"O:\CONTROL\IST_BERI\2003\Mahnwesen\aktueller Monat\Leitung.xls", _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
Neu() *bawling

End If
Windows("Mahnliste.xls").Activate
Sheets("04001").Select
Sheets("04001").Move After:=Workbooks("Leitung.xls").Sheets(1)
ActiveWorkbook.Save
Case ...
Case Else
End Select
Windows("Mahnliste.xls").Activate
Loop

End Sub

 

Moin, jens,

vielleicht solltest Du den Vorschlag von eggzess aufgreifen (der übrigens richtig ist) und den Aufruf entweder durch
Neu oder
Call Neu gestalten - also ohne das Klammerpaar...

 

Alles ausprobiert -> Alles funzt super!

Danke an die edlen Helfer!

Hätt ich gleich mal ausprobieren sollen *tongue.gif*

Gruß Jens