ich bin VBA-Anfänger und stehe vor einem, für mich, unlösbaren Problem
Ich wollte mir ein Makro schreiben was Folgendes tut:
1) einen Ordner erstellen und wie folgt benennen:
aus dem Sheet Vorgaben sollen die Zellen C41 und D41 ausgelesen und verknüpft werden.
Beispiel: In C41 steht KW in D41 steht7. Der Ordner soll unter N:\FE\Laborprüfungen\Direktbeschichtung\Wochenprüfung\2009\PDF Protokolle erstellt werden, also N:\FE\Laborprüfungen\Direktbeschichtung\Wochenprüfung\2009\PDF Protokolle\KW 7
2) Nach dem Erstellen des Ornder soll eine PDF-Datei erstellt, und diese nach einem Zelleninhalt benennen, welcher dem aus dem Sheet Vorgaben Zelle I41 ausgelesen wird (z.B. DBS-Wochenprüfung - KW7 - Seite - 0von0). Das alles soll sich nach Möglichkeit im Hintergrund abspielen, sodass der User nichts mitbekommt.
3) Erst wenn der Ordner erstellt, und die PDF Datei gesichert wurde, soll der Ordner dem User mit der erstellten PDF-Datei erscheinen.
Info: Ich benutzte FreePDF XP als PDF-Creator:
Sub PDF()
Application.ActivePrinter = "FreePDF XP auf Ne01:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"FreePDF XP auf Ne01:", Collate:=True
End Sub
Des Weiteren habe ich ein kleineres =wenn(); wenn(); wenn(); ... Problem
Wert1 in Zelle "F37"
Wert2 in Zelle "F39"
wenn F37
prüfen ob F37 ≥50 und F39 ≥150 und Zellenausgabe in E41 "Klasse 2" wenn nicht dann ...
prüfen ob F37 ≥150 und F39 ≥350 und Zellenausgabe in E41 "Klasse 3" wenn nicht dann ...
prüfen ob F37 ≥250 und F39 ≥650 und Zellenausgabe in E41 "Klasse 4" wenn nicht dann ...
prüfen ob F37 ≥350 und F39 ≥1000 und Zellenausgabe in E41 "Klasse 5" wenn nicht dann ...
E41 leer
Sollte weder erste Werte noch zweite Werte etwas stehen, soll das Ausgabefeld Feld leer bleiben.
Geht das mit einfacher Mehrfachverknüpfung oder Handarbeit im VBA-Editor?
Wenn VBA, wie und wie lege ich den Code auf die Zelle E41 fest?
Ich hoffe die Profis unter euch können mir weiterhelfen.
Vielen Dank im Voraus
Gruß
Micha