Makro nur beim ersten Aufruf der Datei ausführen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Makro nur beim ersten Aufruf der Datei ausführen
von: Drazen
Geschrieben am: 24.02.2005 14:04:04
Hallo,
ist es möglich einen Code so einzustellen, dass er nur beim ersten Aufruf der Datei auf dem entsprechenden Rechner ausgeführt wird?
Es geht um die Page-Einstellungen, die ich nicht bei jedem Starten der Datei neu einstellen lassen möchte, wenn so etwas geht.
Grüsse
Drazen

Bild

Betrifft: AW: Makro nur beim ersten Aufruf der Datei ausführen
von: Bert
Geschrieben am: 24.02.2005 14:25:26
Alles Weitere in der Mappe:
https://www.herber.de/bbs/user/18679.xls
Bert
Bild

Betrifft: AW: Makro nur beim ersten Aufruf der Datei ausführen
von: Drazen
Geschrieben am: 24.02.2005 14:28:47
Hi,
VIELEN DANK!!
Nochmals Grüsse
Drazen
Bild

Betrifft: AW: Makro nur beim ersten Aufruf der Datei ausführen
von: UweD
Geschrieben am: 24.02.2005 14:29:42
Hallo

eine Möglichkeit wäde diese.

Leg in der Datei eine Tabelle User an (kannst du ausblenden)
dann

  • VBA Editor öffnen (Alt F11)

  • Project Explorer öffnen (Strg+R)

  • "DieseArbeitsmappe" doppelklicken

  • Im neuen Fenster das Makro einfügen





      
Private Sub Workbook_Open()
    
'Es wird ein Tabellenblatt "User" vorrausgesetzt
    On Error GoTo Fehler
    
Set sh1 = Sheets("User")
    LR = sh1.Cells(Rows.Count, 1).End(xlUp).Row 
'letzte Zeile der Spalte
    CN = Environ("ComputerName")
    MsgBox 
"Ihr aktueller Computername ist " & CN ' kann weg
    If CN = "" Then CN = "Unbekanner Name"
    
Set c = sh1.Range("a:a").Find(CN, LookIn:=xlValues)
    
If Not c Is Nothing Then
        
'Keine MSGBOX
    Else
        Sheets(
"User").Cells(LR + 1, 1).Value = CN
        MsgBox 
"Du bist das erste mal hier!"
        
'hier deine Einstellungen vornehmen
    End If
    
Exit Sub
Fehler:
    MsgBox 
"Blatt 'User' fehlt"
End Sub 



 Bild

Beiträge aus den Excel-Beispielen zum Thema "Makro nur beim ersten Aufruf der Datei ausführen"