Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
504to508
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
504to508
504to508
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makromodul anlegen

Makromodul anlegen
20.10.2004 20:10:33
Brecki
Hallo,
habe ein entsprechendes Makro gefunden für eine Lösung...
Nun steht da:
Geben Sie den nachstehenden Code in ein Standardmodul ein und weisen sie einer Schaltfläche zu:
Wie ?
Code:
StandardModule: basmain
Public Const gsMacro....
bei Public hängt es sich auf?
Gruß Udo

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makromodul anlegen
20.10.2004 20:14:10
DieterB
Hallo Udo,
Extras, Makros, VBA-Editor
Einfügen Modul
Dort den Code rein
dann in der Tabelle über Formular eine Schaltfläche erstellen.
Excel fragt dann, welches Makro du zuweisen möchtest.
Viel Erfolg
Gruß
DieterB
AW: Makromodul anlegen
20.10.2004 21:04:08
Brecki
Hallo DieterB
hab ich so gemacht...
muß in der ersten Zeile die Zeile "StandardModule: basmain" stehen bleiben?
muß ich noch eine Sub einfügen?
hängt sich bei der Public Const Zeile auf?
anbei der gesamte Code..
StandardModule: basMain
Public Const gsMacro As String = "UpdateClock"
Public gdNextTime As Double
Sub StartClock()
Dim iIntervall As Integer
iIntervall = Range("E1").Value
gdNextTime = Now + TimeSerial(0, 0, iIntervall)
Application.OnTime earliesttime:=gdNextTime_
procedure: gsMacro , schedule:=True
End Sub
Sub UpdateClock()
Dim wks As Worksheet
Dim iRow As Integer
Set wks = ThisWorkbook.Worksheets("Tabelle1")
iRow = wks.Cells(Rows.Count, 2).End(xlUp).Row + 1
Cells(iRow, 2) = Now
Cells(iRow, 3) = Range("A1").Value
Call StartClock
End Sub
Sub StopClock()
On Error Resume Next
Application.OnTime earliesttime:=gdNetxtTime, _
procedure:=gsMacro, shedule:=False
End Sub
ClassModule: diese Arbeitsmappe

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call StopClock
End Sub

Gruß Udo
Anzeige
AW: Makromodul anlegen
20.10.2004 21:07:46
DieterB
Hallo Udo,
kommt der Code aus einer engl Version?
AW: Makromodul anlegen
20.10.2004 21:18:19
brecki
Keine Ahnung, hab ich aus dem Excel Forum Herber...
siehe Berti o.T.
20.10.2004 22:11:06
DieterB
sorry, falscher thread o.T.
20.10.2004 22:18:15
DieterB
AW: Makromodul anlegen
20.10.2004 21:20:43
brecki
Hallo DieterB...
hab mein Problem heut in das Forum gestellt...
siehe unter brecki: datum+Uhr automatisch etc.

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige