Wann wird dieses Makro gestartet ??

Sub FormelEinstellen_Initialize() Sheets("Jänner").Activate Range("F271").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(VLOOKUP(RC[-5],feiertage,3,0)),IF(WEEKDAY(RC[-5],2)<5,8,IF(WEEKDAY(RC[-5],2)=5,6,"""")),VLOOKUP(RC[-5],feiertage,3,0))" Selection.AutoFill Destination:=Range("F271:F301"), Type:=xlFillDefault Range("F271:F301").Select End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Heinz,
das kann so nicht funktionieren, diese beiden Makros gehören, so wie sie sind, in das Modul eines UserForm.
'-------Bildschirmauflösung-------------


Private Sub UserForm_Initialize()
If ScreenResolution() = "800x600" Then
UserForm1.Height = 430
UserForm1.Width = 600
UserForm1.Zoom = 70
End If
If ScreenResolution() = "1024x768" Then
UserForm1.Height = 555
UserForm1.Width = 768
UserForm1.Zoom = 79
End If
If ScreenResolution() = "1152x864" Then
UserForm1.Height = 620
UserForm1.Width = 865
UserForm1.Zoom = 98
End If
End Sub

'-----Formel für Ruthenstorfer Stunden------
Sub UserForm_Initialize()
Sheets("Jänner").Activate
Range("F271").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(RC[-5],feiertage,3,0)),IF(WEEKDAY(RC[-5],2) Selection.AutoFill Destination:=Range("F271:F301"), Type:=xlFillDefault
Range("F271:F301").Select
End Sub
Das macht vom Inhalt her, für das zweite Makro keinen Sinn. Zumindest erkenne ich nicht, warum beim Öffnen eines Userform Formeln in eine Tabelle geschrieben werden sollen.
Ich halte ohnehin nichts davon, per Makro Formeln in ein Tabellenblatt zu schreiben. Das kann man, da es meit nur einmal erforderlich ist, auch von Hand tun. Aber OK, wenn man das schon machen will, könnte das im Modul des Tabellenblattes stehen, und mit dem Activate-Ereignis ausgelöst werden.
Viele Grüße Klaus-Dieter

Online-Excel

Hallo Heinz,
irgendwie kommt mir die Tabelle bekannt vor. ;-)
Hatte den Quelltext jetzt mal probehalber eingebaut. Dabei ist mir aufgefallen, dass die UCase-Anweisungen einen Fehler verursachen. Das würde ich anders lösen. Wie ich vermute, willst du damit eventuelle Eintragungen in Kleinschrift in der Spalte D abfangen. Das kann man doch auch mit Gültigkeit erreichen, was in diesem Fall viel eleganter wäre. Denn damit werden dann alle Möglichkeiten einer falschen Eingabe verhindert.
Ich werde mal versuchen, deine Formel für Spalte F in VBA zu übertragen. Denn so wie du das versucht hast, spart das keinen Speicherbedarf. Alle VBA Quelltexte, die in den Monatsblättern wirken sollen, kann man im Modul der Arbeitsmappe unterbringen, dann werden sie nur einmal benötigt.
Werde mal versuchen, das zu realisieren. Muss dich aber um etwas Geduld bitten, da ich Ende der Woche einen Excel-Workshop leite, für den ich noch ein paar Dinge, die sich kurzfristig ergeben haben, vorbereiten muss.
Viele Grüße Klaus-Dieter

Online-Excel

Beliebteste Forumthreads (12 Monate)

Wann wird dieses Makro gestartet ??

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Wann wird dieses Makro gestartet ??

21 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

21
Beiträge zum Forumthread

Beiträge zu diesem Forumthread