Makromodul anlegen

Forumthread: 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

AW: Makromodul anlegen

20.10.2004 20:14:10

DieterB
AW: Makromodul anlegen

20.10.2004 21:04:08

Brecki
AW: Makromodul anlegen

20.10.2004 21:07:46

DieterB
AW: Makromodul anlegen

20.10.2004 21:18:19

brecki
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

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

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)

Forumthread: Makromodul anlegen

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

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread