Kompliziertes Problem mit Excel-Makro
Luca
Ich hab ein ziemlich kompliziertes Problem.
Also ich probiere es so gut wie möglich zu erklären.
Wir haben ein Programm das über Access läuft, dieses geht auf eine Datenbank und sucht sicht nach gewissen gegebenen Parametern Personen zusammen, und gibt diese dann in einem Excelsheet aus.
Die Spaltenüberschriften werden in einem neuen Exceldokument direkt in der ersten Zeile generiert.
Jetzt sind meine Mitarbeiter mit der Bitte an mich herangetreten, dass sobald das Dokument aufgeht und die Daten da sind, soll ein Fenster aufgehn und nach einem Titel für das Dokument fragen. Nach bestätigen auf OK wird eine Zeile eingefügt, die Zellen verbunden, fett gestellt und die Schrift vergrösst, sowie den gewünschten Titel eingefügt.
Da bei jedem Aufruf dieser Routine wieder ein neues Excelsheet generiert wird, kann ich den VBA-Code nicht da reinschreiben, es löscht ihn jedes mal wieder.
Also hab ich mir gedacht, machen wir doch ein Makro/Addin daraus und packen es irgendwo im Excel mit einem speziellen Button hin.
Aber da hab ich gemerkt das es in Excel keine Normal.dot gibt wie im Word.
Hat jmd. von euch eine Idee wie ich das trotzdem realisieren kann? Bin am Ende mit meinen Nerven^^ Hab zwar schon im Google gesucht wie es gehen könnte(mit addin-knopf etcetcetc) aber nichts brauchbares gefunden.
Der Code für das erstellen einer neuen Zeile etc. konnte ich ohne grosse Probleme generieren:
'Zelle einfügen
Worksheets("EWK Export Konfession").Rows(1).Insert
'Zellen zusammenführen
Range("A1:O1").Select
Selection.Merge
With Selection
.Merge
.HorizontalAlignment = xlCenter
End With
Range("A1:O1").Select
With Selection.Font
.Name = "Arial"
.Size = 14
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = xlAutomatic
End With
Range("A1").Value = TextBox1
End
Dieser würde in einem Addin auch funktionieren oder?
Freundliche Grüsse
Luca Summermatter