Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
572to576
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro nur beim ersten Aufruf der Datei ausführen

Makro nur beim ersten Aufruf der Datei ausführen
24.02.2005 14:04:04
Drazen
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro nur beim ersten Aufruf der Datei ausführen
24.02.2005 14:28:47
Drazen
Hi,
VIELEN DANK!!
Nochmals Grüsse
Drazen
AW: Makro nur beim ersten Aufruf der Datei ausführen
UweD
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 
Anzeige

310 Forumthreads zu ähnlichen Themen

Zahlen aus Zelle auslesen
Timo

Hallo liebes Forum,
gibt es eine Möglichkeit aus einer Zelle nur die Zahlen auszulesen, siehe Beispiel:
'123456 BLA --> 123456
Ist eine Excel-interne (keine VBA-Programmierung) hier möglich?
Vielen Dank für die Unterstützung!
Timo
14.08.2008 11:16:00
Thread-ID: 1001770
7 Beiträge
Anzeige
Makro nur beim ersten Öffnen ausführen
gregor

Guten Morgen!
Kann mir vielleicht jemand bei einem Problem helfen - ich möchte nämlich ein makro nur
beim ersten Öffnen automatisch ausführen - danach nicht mehr!
Geht das irgendwie?
Danke!
27.11.2008 10:09:00
Thread-ID: 1028240
5 Beiträge
Zelle des erstes Vorkommen eines Zeichens ausgeben
-s

Hallo Forum,
ich habe in Zeile 1 in jeder Spalte einen Buchsteben stehen:
a|b|c|c|c|e|
Wie kann ich die Zelle ausgeben lassen, in der beispielsweise das "c" das erste mal vorkommt? Als Ergebnis soll dann C1 ausgegeben werden.
Besten Dank!
-s
07.12.2008 21:32:00
Thread-ID: 1030929
4 Beiträge
Anzeige
gewisse sonderzeichen aus zelle entfernen
Tobias

Hallo allerseits,
Ich würde gerne ein gewisses sonderzeichen aus einer zelle entfernen
nämlich dieses: •
If ((cells(i,2) = ?) then ' wenn die zelle dieses zeichen enthält
cells(i,2) = ? ' entfernen
End if
Was muss ich in diesen code einb...
28.02.2009 15:56:56
Thread-ID: 1055091
8 Beiträge
Zahl aus best. Zelle auslesen
klaus

Hallo!
Folgende Tabelle soll dargestellt werden:
Tabelle1

 AB1Spalte 1nur 90 (für Anzahl Werte >2 und 210019,12,15,70,70,8,90,9013100160410009,10016,10019,10021,12,16,19,2,24,70,77,8,9,9015 0610009,77,99,88,10019,10021,12,16,19,2,24,70,77,8,9,900

Excel Tabel...
02.03.2009 15:51:14
Thread-ID: 1055623
6 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
hab' ein kleines Problem:
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
13.03.2009 16:49:57
Thread-ID: 1059943
4 Beiträge
Datum aus Zelle auslesen im Dateinamen übernehmen
Ralf

Hallo Zusammen,
ich hab' immer noch mein kleines Problem, vielleicht weiß hier ja einer weiter?
Wie kann man ein in einer Zelle hinterlegtes Datum im Dateinamen übernehmen.
Gruß Ralf
18.03.2009 13:41:01
Thread-ID: 1061396
6 Beiträge
Nur 50 Zeichen eines Strings auslesen
Kai

Hi,
ich habe in A1 einen String stehen, den möchte ich auslesen und weiter verwerten. Wenn der String aber über 50 Zeiche hat, sollen nur die ersten 50 Zeichen ausgelesen werden, der Rest kann ignoriert werden.
String = Sheets("Daten").Range("A1")
Wie lesen ich diese aus ?
Dank...
20.05.2009 08:15:40
Thread-ID: 1076201
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
8
4
3
3
7
5
3
5
14
3
4
2
9
7
2
3
7
10
1
2
8
6
2
12