Automatische Datenübernahme

Hallo Leute,
brauche mal wieder eure Hilfe...und wie immer ist das Ganze superkompliziert!
Unseren Bauleitern stellen wir zur Arbeitszeiterfassung div. Mitarbeiter eine Mappe mit insgesamt 10 Tabellen zur Verfügung. 5 Tabellen dienen derzeit der Zeiterfassung für jeweils 1 KW die anderen 5 Tabellen sind eigentlich nur verknüpfte Übersichten der jew. Woche. Die Namen der Tabellen generieren sich - dank eurer Hilfe - auf Basis einer Zelleingabe von selbst.
Ziel ist es, die Arbeitszeiten für jeweils 4 Wochen eintragen zu lassen (z.B. KW 10 bis KW 14) und als Info die vorangegangene Woche (z.B. KW 9) in der Mappe darzustellen.
Im Augenblick müssen unsere Bauleiter bei Beginn eines neuen Quartals sämtliche Daten von Hand löschen und die letzte Woche des vorangegangenen Quartals handisch wieder reinkopieren. Nicht gerade prickelnd!
Gibt es eine Möglichkeit das zu automatisieren?
Zermarter mir hier schon wieder seit zwei Tagen den Kopf und finde einfach nicht den richtigen Ansatz, geschweige denn eine Lösung.
Vielleicht hat ja jemand von euch Profis da eine Idee?
Zum besseren Verständnis habe ich mal eine Musterdatei (https://www.herber.de/bbs/user/4785.xls) hochgeladen. In dieser Datei ist aber die Vorwochen-Darstellung noch nicht berücksichtigt...na ja, eben wegen fehlendem Gedankenblitz :-(
Gruss
Kirsten

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hallo Kirsten,
den Laufzeitfehler bekommst Du, weil das Eingabeblatt nicht mehr das erste Blatt ist. Der Befehl Range("B5").Select ist (neben anderem in der Ereignisprozedur) sowieso Unsinn, weil der Ereignis-Code ja auf Eingaben in Zelle B5 begrenzt ist.
Wenn auch das Übersichtsblatt kopiert werden soll, ändert sich der Code wie folgt:


Sub NewWeeks()
Dim iWks As Integer, iColL As Integer, iCol As Integer, iRow As Integer
Dim bln As Boolean
With Application
.ScreenUpdating = False
.EnableEvents = False
bln = .DisplayStatusBar
.DisplayStatusBar = True
End With
'On Error GoTo ERRORHANDLER
Worksheets(Worksheets.Count - 1).Copy before:=Worksheets(1)
ActiveSheet.Name = "AW Übersicht"
Worksheets(Worksheets.Count - 2).Copy before:=Worksheets(1)
ActiveSheet.Name = "AlteWoche"
Worksheets(3).Select
For iWks = 3 To 11 Step 2
Worksheets(iWks).Select False
Next iWks
iColL = Cells(17, Columns.Count).End(xlToLeft).Column
With Worksheets(3)
For iCol = 31 To iColL
Application.StatusBar = "Bearbeite Spalte " & iCol & " von " & iColL
For iRow = 18 To 116
.Cells(iRow, iCol).Select
If Selection.Interior.ColorIndex = 35 Then
Selection.ClearContents
End If
Next iRow
Next iCol
End With
ERRORHANDLER:
With Application
.EnableEvents = True
.ScreenUpdating = True
.DisplayStatusBar = bln
.StatusBar = False
End With
End Sub

gruss hans

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread