Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
248to252
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
248to252
248to252
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Private Sub Workbook_Open()

Private Sub Workbook_Open()
30.04.2003 15:43:35
Renate
Hallo
Wer kann mir helfe?
Ich wollte wenn ich meine mappe aufmachen das folgende
Private Sub Workbook_Open()
'Das klappt bei mir nicht statt 30.04.2003 ist 37741, es egal was ich tut.
'Also was machen ich falsch?
Dim i As Integer
Sheets("Tabelle2").Columns("B:B").Select
' oder Sheets("Tabelle2").Columns("B").Select
Selection.NumberFormat = "mm/dd/yyyy"
With Selection
.HorizontalAlignment = xlGeneral
End With
‘Hier weitere Funktion von mir das funktionier auch sehr gut
End Sub
Gruß Renate

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Private Sub Workbook_Open()
30.04.2003 15:52:02
Michael Scheffler
Hi,

das Ganze kommt in das Modul "DieseArbeitsmappe" bzw. "ThisWorkbook".

Gruß

Micha

Re: Private Sub Workbook_Open()
30.04.2003 16:26:35
Rolf, Lgh.
Hallo Renate,
so?
Worksheets("Tabelle2").Activate
Columns(3).NumberFormatLocal = "TT.mm.JJJJ"
Gruß Rolf
Re: Private Sub Workbook_Open()
30.04.2003 17:15:33
Renate
Hallo Rolf
Leider nicht...... immer noch das gleicht
Gruß Renate
Re: Private Sub Workbook_Open()
30.04.2003 17:38:39
Rolf, Lgh.
... wie sieht Dein Code jetzt aus ...
Re: Private Sub Workbook_Open()
30.04.2003 17:43:43
Renate
hallo
Private Sub Workbook_Open()
Dim i As Integer
Worksheets("Tabelle2").Activate
Columns(2).NumberFormatLocal = "TT.mm.JJJJ"
With Selection
.HorizontalAlignment = xlGeneral
End With
'weitere funktion
End Sub
Anzeige
Re: Private Sub Workbook_Open()
30.04.2003 17:45:36
Renate
hallo
Private Sub Workbook_Open()
Dim i As Integer
Worksheets("Tabelle2").Activate
Columns(2).NumberFormatLocal = "TT.mm.JJJJ"
With Selection
.HorizontalAlignment = xlGeneral
End With
'weitere funktion
End Sub
Re: Private Sub Workbook_Open()
30.04.2003 19:16:06
Rolf, Lgh.
So, oder was soll anders sein?

' Klassenmodul DieseArbeitsmappe
Option Explicit

Private Sub Workbook_Open()
  Dim i As Integer
  Worksheets("Tabelle2").Activate
  Columns(2).NumberFormatLocal = "TT.mm.JJJJ"
  Columns(2).HorizontalAlignment = xlGeneral
  'weitere funktion
End Sub

Anzeige
Berichtigung
30.04.2003 19:59:59
Rolf, Lgh.
' Klassenmodul DieseArbeitsmappe

Option Explicit

Private Sub Workbook_Open()
  Dim i As Integer
  Worksheets("Tabelle2").Activate
  Columns(2).NumberFormatLocal = "TT.MM.JJJJ"
  Columns(2).HorizontalAlignment = xlGeneral
  'weitere funktion
End Sub

     Code eingefügt mit Syntaxhighlighter 1.13


Anzeige

42 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige