Hallo Shadow,
Der Makro fügt jetzt in Zelle C6 die entsprechende Formel ein. Damit wird also der vorherige Zustand wieder restauriert.
Dann mal zur Tat ;D
1) neu Excel-Datei öffnen
2) VB-Editor öffnen Alt+F11
Links siehst Du ein Fenster mit der Überschrift Projekt-VBA-Project.
In diesem Fenster ist die neue Arbeitsmappe unter dem Namen VBAProject(Mappe1) zu finden.
3) VBA-Modul anlegen mit
3a) VBAProject(Mappe1) mit der Maus selektieren
3b) rechte Maustaste -> Einfügen -> Modul
in der Mitte geht das Code-Fenster Mappe1-Modul1(Code) auf
4) den gesamten Code per copy und Paste in dieses Fenster hineinkopieren
Code:
Function myButtonMakro1 ()
->in Zelle C6 des aktuellen Blattes Formel einfügen
->also Zeile 6, Spalte 3
ActiveSheet.Cells(6, 3).Formula = = D8*50+F5/12
End Function
5) VB-Editor schliessen mit Alt+Q
6) Excel-Datei als
Microsoft Add-In (*.xla) speichern, z.B. als->Excel_MyButtonMakors.xla'
7) Excel schließen
So erster Schritt geschaft
Die Datei Excel_MyButtonMakors.xla verschiebst Du in den XLStart-Ordner von Office
(wahrscheinlich C:\Programme\Microsoft Office\Office\XLStart)
Wenn Du Excel jetzt startest wird der Makro automatisch mitgeladen.
So jetzt zur Symbolleiste mit Button:
1) Excel öffnen
2) irgendwo in der Symbolleiste rechter Maustaste->Anpassen
(es öffnet sich des Anpassen-Fenster)
3) Reiter->Symbolleiste' -> Neu -> Nake Symbolleiste-> MyButtonLeiste -> OK
(es ist irgendwo eine Symbolleiste erschienen, Anpassen nicht schliessen)
4) die neu Symbolleiste in dem Bereich der Symbolleisten plazieren
5) Reiter->Befehle' -> linken Fenster->Makros' auswählen
(im rechten Fenster siehst Du jetzt ein Smiley->Schaltfläche anpassen')
6) den Smiley schiebst Dujetzt mit gdrückter linken Maustaste auf die neue Symbolleiste
(jetzt hat deine neue Symbolleiste eine Smiley-Button mit schwarzem Rahmen)
7) rechte Maustaste auf den Smiley -> Makro zuweisen... -> Makroname -> myButtonMakro1 -> ok
8 ) eventuell mit rechte Maustaste auf smiley -> Schalltflächensymbol ändern -> ein anderes Icon zuweisen
8a) eventuell mit rechte Maustaste auf smiley -> Schalltflächen
9) eventuell mit rechte Maustaste auf smiley -> Name: -> Formel in C6 Einfügen -> Schalltflächensymbol und Text
So jetzt reicht es
10) Anpassen-Fenster -> Schliessen
Wenn Du noch etwas ändern möchtest, einfach rechte Maustaste in irgendeine Symbolleiste -> Anpassen ...
So mal schauen, ob ich in der Beschreibung noch etwas vergessen habe.
Viel Spaß beim Ausprobieren.
Gruß Matjes