Wo füge ich diesen Code ein?

Computer: Software & Programmierung Visual Basic
#1

Servus Gemeinde,

WO FÜGE ICH DIESEN CODE REIN?

Userform soll beim Öffnen der Datei angezeigt werden

[code]
Option Explicit

Private Sub Workbook_Open()
'UserForm1.Show
Dim rng_Zelle As Range
Dim str_Liste1 As String
Dim str_Liste2 As String

str_Liste1 = „“
str_Liste2 = „“

For Each rng_Zelle In Range(„f3:f100“).Cells
If (rng_Zelle.Value - Int(Now()) >= 0) Then

If (rng_Zelle.Value - Int(Now())

#2

Sorry da muss ich passen :cry:

#3

Hallo Yahoo,

Du willst eine Sub Workbook_Open() in einen Code einfügen, der diese Sub schon kennt… geht natürlich nicht.
Deshalb Deinen Code von

Dim rng_Zelle As Range
Dim str_Liste1 As String

.
.
.

UserForm1.Show

in die bestehende Sub Workbook_Open() einfügen.

Also

Private Sub Workbook_Open()
Call Berechnung_formelqm

Dein Code, siehe oben

End Sub

Sollte dann eigentlich funktionieren

#4

Hallo,

ALT F11

Dann „diese Arbeitsmappe“ auswählen.

Gruss