AW: Einige Fragen nocheinmal
16.01.2008 01:07:00
Daniel
Hi
zu 1
das passt schon so, Date & Time kann man durch NOW ersetzen, das hätte weiterhin den Vorteil, daß dann auch wirklich ein Datum in der Zelle steht und kein Text.
zu 2
hier mal ne ganz einfache Methode, ist zwar 12-fach redundante Datenhaltung, aber einfacher bekommst du das nicht programmiert (ist schon erstaunlich, zu was man Excel alles verwenden kann)
- alle Formate und Überschriften der Spalten M-O vom Januar in die anderen Monate übertragen.
- diese beiden Macros ins Modul "DieseArbeitsmappe" kopieren, dafür die Macros aus den Modulen der einzelnen Arbeitsmappen entfernen:
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Intersect(Target, Sh.Range("n29:n44")) Is Nothing Then
Else
Target.Offset(0, -1).Value = Now
End If
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim shx As Worksheet
Select Case Target.Column
Case 13 To 15
For Each shx In ThisWorkbook.Sheets
shx.Select 0
Next
Case Else
Sh.Select
End Select
End Sub
Das Prinzip ist eigentlich ganz einfach, sobald du eine Zelle der Spalten M-O selektierst, werden alle Sheets markiert, dadurch erfolgt der Eintrag in allen Sheets gleichzeitig.
Beim selektieren einer anderen Zelle wird die Markierung wieder zurückgenommen.
Dadurch, daß die Makros im Sheet "DieseArbeitsmappe" stehen, muss man sie nur einmal schreiben, troztdem gelten sie für alle Sheets.
zu 3
keine Ahnung, probiers aus.
Gruß, Daniel