Error Handler
11.12.2018 12:13:26
Georg
der folgende Code befüllt eine Übersicht, was auch prima klappt. Fehleranfällig ist das ganze, insofern eine Voraussetzung ist, dass in den Worksheets alle abgefragten Zellen befüllt sind (was ab und an übesehen wird).
Fehlt ein Wert, verschieben sich die Werte, die Zeile für Zeile in die Übersicht hineingeschrieben werden.
Leider kenn ich mich ErrorHandler Null aus:
Ist es möglich, eine MsgBox anzeigen zu lassen, sobald eine der Zellen leer ist, mit Ausgabe der Zelle und dem Namen des Blattes inklusive Exit Sub?
DANKE
Sub Übersicht()
Dim sh As Worksheet
Dim PlJahr As Integer
PlJahr = 2018
'Zuerst die Übersicht leeren, ausgelassen werden die Rechenspalten
Sheets(2).range("B8:O" & Cells(Rows.Count, 15).End(xlUp).Row).ClearContents
Sheets(2).range("Q8:S" & Cells(Rows.Count, 19).End(xlUp).Row).ClearContents
'Die automatische Berechnung wird ausgeschaltet
Application.Calculation = xlCalculationManual
'das Blatt BPx Übersicht wird befüllt
'ES MÜSSEN IN JEDEM BLATT WERTE DRINSTEHEN, DIE IN DIE ÜBERSICHTGESCHRIEBEN WERDEN, FEHLT EIN _
WERT
'VERSCHIEBT SICH DIE ÜBERSICHT - FEHLER!!
For Each sh In ThisWorkbook.Worksheets
If sh.Name Like "*_2018" Then
'Blatt Übersicht befüllen:
Sheets("BPxÜbersicht").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0) = sh.Cells(1, _
2) 'Region
Sheets("BPxÜbersicht").Cells(Rows.Count, 3).End(xlUp).Offset(1, 0) = sh.Cells( _
15, 3) & "_" & PlJahr
Sheets("BPxÜbersicht").Cells(Rows.Count, 5).End(xlUp).Offset(1, 0) = sh.Cells( _
16, 3) 'Kostenstelle
Sheets("BPxÜbersicht").Cells(Rows.Count, 4).End(xlUp).Offset(1, 0) = sh.Cells( _
17, 3) 'in Betrieb
'Soll Köpfe TZ
Sheets("BPxÜbersicht").Cells(Rows.Count, 6).End(xlUp).Offset(1, 0) = sh.Cells( _
37, 3)
End Sub