Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro für Schaltbutton anpassen

Makro für Schaltbutton anpassen
07.05.2017 11:03:59
Hans
Hallo Forum
Ich habe einem Schaltbutton ein Makro zugeteilt das ich im Internet gefunden habe.
Nun möchte ich noch eine Tastenkombination dazu haben (STRG + S)komme aber alleine nicht weiter.
Wer kann helfen?
Vielen Dank
Hans
Private Sub CommandButton6_Click()
Dim strDateiname As String
Dim strAntwort As String
strDateiname = Range("I35").Value & ".XLSM"
ActiveWorkbook.SaveAs ("C:\Rechnungen\" & strDateiname)
Sheets("Eingabemaske").Select
Range("AD6").Select
End Sub

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro für Schaltbutton anpassen
07.05.2017 11:10:07
Hajo_Zi
bei CommandButton hast Du nur die Eigenschaft "Accelerotor" Alt +Buchstabe

AW: Makro für Schaltbutton anpassen
07.05.2017 11:19:13
Hans
Hallo Hajo,
wenn ich ein Makro per Recorder erstelle, dann kann ich doch auch eine Tastenkombination erstellen.
'
' Loeschen Makro
'
' Tastenkombination: Strg+l
'
Ich hab versucht das auch so einzugeben, geht aber nicht....
Hans
AW: Makro für Schaltbutton anpassen
07.05.2017 11:21:30
Hajo_Zi
Hallo Hans,
dann habe ich es wohl falsch gesehen das der Code unter der Tabelle ist und nicht mit dem Makrorecorder aufgezeichnet wurde.
Ich bin dann raus.
Gruß Hajo
Anzeige
Gelöst ...... hier das Ergebnis
07.05.2017 11:28:45
Hans
Moin moin,
also ich hab das Problem selbst lösen können.
Ich hab den Makrorecorder gestartet, dem Makro ein Namen und eine Tastenkombination gegeben.
Dann die Aufnahme beendet.
Das Vorhandene Makro einfach in das neu aufgenommene kopiert und dann das gesamte Makro wieder dem Schaltbutton wieder zugeteilt.
Private Sub CommandButton6_Click()
' Speichern Makro
' Tastenkombination: Strg+s
Dim strDateiname As String
Dim strAntwort As String
strDateiname = Range("I35").Value & ".XLSM"
ActiveWorkbook.SaveAs ("C:\Rechnungen\" & strDateiname)
Sheets("Eingabemaske").Select
Range("AD6").Select
End Sub

Anzeige
AW: Gelöst ...... hier das Ergebnis
07.05.2017 12:06:59
Werner
Hallo Hans,
also ehrlich gesagt verstehen kann ich das jetzt auch nicht wirklich.
entweder Schaltfläche und damit das Makro starten
oder ShortCut und damit das Makro starten
warum beides?
Aber wenn es sein muss, dann geht es auch einfacher. Nimm eine Schaltfläche aus den Formularsteuerelementen und füge die auf deinem Blatt ein.
Anschließend öffnet sich ein Fenster, dort auf Neu klicken. Es wird automatisch ein Modul sowie eine Prozedur erstellt. Die Prozedur besteht aus:
Sub Schaltfläche1_Klicken()
End Sub

Dort rein dann deinen Code.
Diesem Makro kannst du dann ganz normal über Makros - Optionen ein SchortCut zuweisen.
Gruß Werner
Anzeige
Ergänzend!
07.05.2017 13:35:25
Sepp
Hallo Hans,
ein CommandButton hat auch die Eigenschaft "Accelerator" dort kannst du einen Buchstaben zuordnen und den Button dan mit [Alt+Buchstabe] auslösen.
Gruß Sepp

AW: Ergänzend! @ Sepp
07.05.2017 14:12:37
Hans
Moin moin Sepp,
nun hab ich das verstanden! Du meinst über die "Eigenschaften" des Schaltbutton.
Darauf bin ich nicht gekommen. Ich kenne nur sehr wenig von VBA (ganz wenig) daher hab ich mir es so einfach wie möglich gemacht....
Man lernt NIE aus.....
Hans
AW: Makro für Schaltbutton anpassen
07.05.2017 11:28:04
MB12
Hallo Hans,
ein Beitrag von Case in office-loesung.de:
....Mal ein Beispiel:
Code gehört unter "DieseArbeitsmappe"
Code: 
Private Sub Workbook_Open()
Application.OnKey "^{l}", "Tabelle1.CommandButton2_Click"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnKey "^{l}"
End Sub

Anpassen musst Du nun eventuell noch "Tabelle1" - das ist aber nicht der Tabellenblattname, sondern der Codename der Tabelle.
Erkennbar im VBA-Editor links vom Tabellenblattnamen, der in Klammern steht:
z. B. Tabelle1 (Tabelle1)
Gruß, Margarete
Anzeige
AW: Makro für Schaltbutton anpassen
07.05.2017 11:26:35
Gerd
Hallo Hans,
du kannst deinen Code in ein Makro in einem allgemeines Modul, z.B.Modul1, kopieren u. diesem den Shortcut zuweisen. Der Teil mit dem Namen des Blattes vom Button muss noch passend geändert werden.
Sub teste()
Dim strDateiname As String
Dim strAntwort As String
strDateiname = Worksheets("Tabelle1").Range("I35").Value & ".XLSM"
ActiveWorkbook.SaveAs ("C:\Rechnungen\" & strDateiname)
Sheets("Eingabemaske").Select
Range("AD6").Select
End Sub

Gruß Gerd
Allen Helfern vielen Dank ! owT
07.05.2017 14:50:17
Hans
t

304 Forumthreads zu ähnlichen Themen

Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Anzeige
Optionsbutton in Userform abhängig von Zelle
Zelle

Hallo,
ich habe drei Optionsbuttons in einer Userform. Alle gehören zu einer Gruppe.
es kann also immer nur eine Option gewählt sein.
Beim Aufruf der Userform soll eine Option in Abhängigkeit des Wertes in Zelle A1
"voreingestellt" werden.
Dazu habe ich im Userform_Initializ...
26.01.2009 12:04:00
Thread-ID: 1043821
3 Beiträge
Zeitdifferenz in Zelle einfügen
Alina

Hallo zusammen,
ich habe mir in Excel eine Überstundentabelle gebastelt. Soweit funktioniert auch alles. Ich kann mir auch die Überstunden pro Tag in der Spalte G berechnen lassen. Berechnet wird das durch die Solleinzeit in Spalte F und der tatsächlichen Endzeit in Spalte D.
Nun möcht...
16.08.2009 00:06:36
Thread-ID: 1096190
12 Beiträge
Anzeige
TAB-Sprung von Zelle in Sheet zu CommandButton
Zelle

Hallo Excel-Experten,
mir stellt sich folgendes Problem:
Ich habe ein Worksheet, das in den Spalten A-G (in nur einer Zeile) Werte enthält.
Rechts neben diesen Werten befindet sich ein CommandButton.
Nun springe ich per Tab durch die jeweiligen Zellen und tippe händisch Werte ei...
10.11.2009 13:51:22
Thread-ID: 1115852
3 Beiträge
Bilder in Zelle einfügen wenn
Andre´

Hallo alle zusammen,
ich möchte für den Bereich C5:F10 Bilder einfügen (jeweils mittig in Zelle), in Abhängigkeit des Zellwertes.
Ist der Zellwert = 1 dann Bild1 von Tabelle "Bilder" einfügen
Ist der Zellwert = 2 dann Bild2 von Tabelle "Bilder" einfügen
Ist der Zellwert = 3 dann...
15.12.2009 09:51:03
Thread-ID: 1123961
5 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:37:43
Thread-ID: 1125900
8 Beiträge
Datum und Zeit in Zelle einfügen
chris

Schönen Christtag!
Ich suche eine Lösung welche ich trotz googlen nichts geeignetes finden konnte.
Also: Wenn im Bereich F4:F100 neue Werte eingetragen werden, dann soll sich im Bereich L4:L100 in der gleichen Zeile das Datum (evtl. sogar mit Uhrzeit) neu eingetragen werden.
Für Hil...
25.12.2009 13:38:19
Thread-ID: 1125901
2 Beiträge
Über Button in Zelle Hyperlink einfügen
Ingo

Hallo zusammen,
Ich möchte bei Betätigung eines Button in der makierten Zelle einen Hyperlink einfügen. Bei der Betätigung des Buttons soll sich ein Dialog öffnen in dem ich den Pfad für den Hyperlink angeben kann.
Hat jemand hiermit Erfahrung und hätte einen Tipp? Die Makroaufzeichnug...
22.04.2010 11:40:05
Thread-ID: 1153267
2 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
3
1
2
11
5
2
4
7
1
1
4
4
3
2
7
2
2
5
11
4
2
8
3
12
1