kleine, aber wichtige Änderung !
07.11.2011 06:48:08
Matthias
Hallo Ernst
Damit beim Leeren von Target nicht nur der Ort geleert wird, sondern auch das gesetzte Datum
ersetze bitte das Worksheet_Change_Ereignis
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A8:A45,E8:E45,J8:J45,N8:N45,S8:S45,W8:W45")) Is Nothing Then
MyCol = Target.Column
Application.EnableEvents = False 'Ereignismakros deaktivieen
If Target = "" Then
Target.Offset(, 3) = "" 'Ort entfernen
Target.Offset(, 2) = "" 'Datum entfernen
End If
Select Case MyCol
Case Is = 1, 5
SortiereTWG
Case Is = 10, 14
SortiereULF
Case Is = 19, 23
SortiereBwg
End Select
Application.EnableEvents = True 'Ereignismakros wieder aktivieren
End If
End Sub
Sonst hättest Du nach dem Entfernen einer Ziffer und dem Sortieren immer ein
separates Datum in einer Zelle stehen. Das willst Du ja sicher nicht.
Weiterhin könnte man schon beim Öffnen der Datei eine XL-Versionsabfrage mit einpflegen.
Private Sub Workbook_Open()
If Application.Version "12.0" Then
MsgBox "nur in Version XL2007 getestet!", vbCritical, "Versionsprüfung"
ThisWorkbook.Close
End If
End Sub
Warum?
Beim Testen dieses Projektes ist mir immer wieder aufgefallen, das Excel sich beim Benutzen
der Datei unter XL2000 "aufhängt". Warum das so ist habe ich bisher nocht nicht gefunden.
Gruß Matthias