Ich nochmal......Fehlerbehandlung
23.12.2003 14:40:50
andif
also es geht um das gleiche Programm wie vorhin.
Weitere Feinheit: Wenn im Laufe des Monats ein neuer Klient eingegeben wurde. Für "aktualisieren" dachte ich kann ich dasselbe Programm nutzen.
Nach Programmstart erscheint ein Fehler, wenn der Klient/Name schon existiert. Mit On Error Resume Next wird dieser Fehler übergangen. Eigentlich müsste aber, wenn ein neuer Name auftaucht, dieser Schleifendurchlauf ein neues Tabellenblatt mit dem Namen des Klienten erstellen.
Tut er aber nicht. Wiesooooooooo?
Gruß
andi
Sub TabellenblätterAktualisieren()
Dim x As Integer
Dim strName As String
Dim bytZeile As Byte
Dim strAmtsgericht As String
Dim strAktenzeichen As String
Dim strVorname As String
For bytZeile = 2 To 100
Worksheets("Hilfstabelle").Select
Cells(bytZeile, 6).Select
strName = Cells(bytZeile, 3)
strVorname = Cells(bytZeile, 4)
strAktenzeichen = Cells(bytZeile, 2)
strAmtsgericht = Cells(bytZeile, 5)
On Error GoTo ErrorHandler
If ActiveCell.Value = "ja" Then
x = Worksheets.Count
Sheets("leer").Select
Sheets("leer").Copy After:=Sheets(x)
Sheets(Worksheets.Count).Select
Sheets(Worksheets.Count).Name = Sheets("Hilfstabelle").Cells(bytZeile, 3).Value
Sheets(Worksheets.Count).Cells(2, 2) = strName
Sheets(Worksheets.Count).Cells(3, 2) = strVorname
Sheets(Worksheets.Count).Cells(4, 2) = strAktenzeichen
Sheets(Worksheets.Count).Cells(5, 2) = strAmtsgericht
End If
Next bytZeile
ErrorHandler:
On Error Resume Next
Application.DisplayAlerts = False
ActiveSheet.Delete
Application.DisplayAlerts = True
End Sub