Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1836to1840
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
1836to1840
1836to1840
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Modul ausführen

Modul ausführen
10.07.2021 20:43:05
Frank
Hallo Zusammen.
Ich habe folgendes Modul:

Sub Anstosszeiten_FrSa2xSo()
ActiveCell.Offset(1, 0) = ActiveCell + 1
ActiveCell.Offset(2, 0) = ActiveCell + 1
ActiveCell.Offset(3, 0) = ActiveCell + 1
ActiveCell.Offset(4, 0) = ActiveCell + 1
ActiveCell.Offset(5, 0) = ActiveCell + 1
ActiveCell.Offset(6, 0) = ActiveCell + 1
ActiveCell.Offset(7, 0) = ActiveCell + 2
ActiveCell.Offset(8, 0) = ActiveCell + 2
ActiveCell.Offset(0, 2) = "20:30"
ActiveCell.Offset(1, 2) = "15:30"
ActiveCell.Offset(2, 2) = "15:30"
ActiveCell.Offset(3, 2) = "15:30"
ActiveCell.Offset(4, 2) = "15:30"
ActiveCell.Offset(5, 2) = "15:30"
ActiveCell.Offset(6, 2) = "18:30"
ActiveCell.Offset(7, 2) = "15:30"
ActiveCell.Offset(8, 2) = "17:30"
End Sub
Dieses möchte ich mehreren Button zuweisen. Wie muss ich das anstellen?
Vielen Dank im Voraus!
Gruß Frank H.

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Modul ausführen
10.07.2021 20:45:04
Hajo_Zi
Hallo Frank,
Doppelklick auf den Button und folgende Zeile eintragen
Anstosszeiten_FrSa2xSo
Warum mehrere Button.
GrußformelHomepage
AW: Modul ausführen
10.07.2021 21:46:25
Frank
Hallo Hajo!
Danke für die Nachricht, werde es so umsetzen!
Schönen Sonntag morgen.
Gruß Frank H.
AW: Modul ausführen
10.07.2021 21:48:53
GerdL
Moin Frank,
ein Muster für Button aus der ActiveXSteuerelementetoolbox.
Bei Button aus der Formularleiste das Makro im Entwurfsmodus direkt zuweisen.

Private Sub CommandButton1_Click()
Call Anstosszeiten_FrSa2xSo
End Sub
Sub Anstosszeiten_FrSa2xSo()
With ActiveCell
.Offset(1, 0).Resize(6, 1) = .Value + 1
.Offset(7, 0).Resize(2, 1) = .Value + 2
.Offset(0, 2).Resize(9, 1) = Application.Transpose(Array("20:30:00", _
"15:30:00", _
"15:30:00", _
"15:30:00", _
"15:30:00", _
"15:30:00", _
"18:30:00", _
"15:30:00", _
"17:30:00"))
End With
End Sub
Gruß Gerd
Anzeige
AW: Modul ausführen
10.07.2021 22:02:41
Frank
Hallo Gerd,
ebenfalls Danke!
Auch dir morgen einen schönen Sonntag.
Gruß Frank H.

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