Herbers Excel-Forum - das Archiv

Makro nur beim ersten Aufruf der Datei ausführen

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
Excel-Beispiele zum Thema "Makro nur beim ersten Aufruf der Datei ausführen"
Die ersten 5 Zeichen nach einem "+" separieren Druckbereich bis zum ersten Nullwert festlegen
Ersten Absatz eines Word-Dokumentes in Tabelle einfügen Zeilen eines zweiten Blattes im ersten über Drehfeld anzeigen
Ermittlung des ersten Tages einer Kalenderwoche nach DIN 1355 Ersten mit einem neuen Buchstaben beginnenden Namen fett schreiben
Bestimmung der ersten und letzten Zelle eines Filters Zweite ListBox in Abhängigkeit der ersten füllen
Den ersten Wert einer gefilterten Spalte ermitteln Eine WENN-Formel nur bei der ersten Werteänderung berechnen