Probleme mit Array

Private Sub CommandButton1_Click() If MsgBox("Soll der Text jetzt in die Kostendateien eingefügt werden?", vbYesNo) = vbYes Then Dim i As Integer Dim i2 As Integer Dim ws As Integer Dim Arr As Integer Dim irow As Integer Dim wbName As String On Error GoTo errHandler Application.ScreenUpdating = False Application.StatusBar = "Dieser Vorgang dauert ein paar Minuten. Bitte Geduld haben..." Application.DisplayAlerts = False Application.EnableEvents = False For i = 1 To Sheets("FILES").Range("A1").End(xlDown).Row wbName = Sheets("FILES").Cells(i, 1) Workbooks.Open wbName, 3 Arr = Array("ET120", "ET140", "ET150", "ET210", "ET220", "ET600", "ETMISC") For i2 = LBound(Arr, 1) To UBound(Arr, 1) Sheets(Arr(i2)).Unprotect password:="maze" Next i2 For Each ws In Arr Worksheets(ws).Activate With Range("B2") .FormulaR1C1 = "'C = Realisierung nicht vor dem 01.10.2005!" .Font.ColorIndex = 3 .Font.Bold = True .Select With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .Orientation = 0 End With (...usw...) End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk,
ich habe nunmehr auch ws als Variant deklariert und nach mehreren Versuchen und Umstellungen komme ich jedoch immer noch nicht weiter:


Private Sub CommandButton1_Click()
If MsgBox("Soll der Text jetzt in die Kostendateien eingefügt werden?", vbYesNo) = vbYes Then
Dim i As Integer
Dim i2 As Integer
Dim ws As Variant
Dim Arr As Variant
Dim irow As Integer
Dim wbName As String
'On Error GoTo errHandler
Application.ScreenUpdating = False
Application.StatusBar = "Dieser Vorgang dauert ein paar Minuten. Bitte Geduld haben..."
Application.DisplayAlerts = False
Application.EnableEvents = False
For i = 1 To Sheets("FILES").Range("A1").End(xlDown).Row
wbName = Sheets("FILES").Cells(i, 1)
Workbooks.Open wbName, 3
Arr = Array("ET120", "ET140", "ET150", "ET210", "ET220", "ET600", "ETMISC")
For i2 = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i2)).Unprotect password:="maze"
For Each ws In Arr
Worksheets(ws).Activate
With Range("B2")
.Value = "'C = Realisierung nicht vor dem 01.10.2005!"
.Font.ColorIndex = 3
.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
Next ws
Next i2
Arr = Array("ET120", "ET140", "ET150", "ET210", "ET220", "ET600", "ETMISC")
For i2 = LBound(Arr, 1) To UBound(Arr, 1)
Sheets(Arr(i2)).Protect password:="maze"
Next i2
ActiveWorkbook.Save
ActiveWorkbook.Close , True
Next i
Application.DisplayAlerts = True
Application.StatusBar = False
Application.EnableEvents = True
MsgBox "Dateien wurden aktualisiert", vbOKOnly
Application.ScreenUpdating = True
Else
End If
Exit Sub
errHandler:
Application.DisplayAlerts = True
Application.StatusBar = False
Application.EnableEvents = True
MsgBox "Beim Update der Datei" & vbCr & wbName & vbCr & _
"ist ein Fehler aufgetreten!", vbCritical + vbOKOnly, "ABBRUCH!"
'ActiveWorkbook.Close , True
End Sub

Excel trägt den Text("C=Realisierbar nicht vor dem....") in das Workbook, aus dem ich ich heraus das Makro starte und nicht in die einzelnen ws des Array und bleibt hängen bei
.HorizontalAlignment = xlCenter
mit der Meldung: "Die Horizontal-Eigenschaft des Range-Objekts kann nicht festgelegt werden". Was ist denn noch falsch an meinem Code?
Kannst Du da nochmal drüberschauen?
Vielen Dank im voraus.
Gruß
Torsten

Hallo Torsten,
da war viel Unsinn in dem Makro. Ganz optimiert ist es noch nicht, aber dein Chef gibt mir ja auch kein Geld dafür.

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim i2 As Integer
    Dim Arr As Variant
    Dim wbName As String
    If MsgBox("Soll der Text jetzt in die Kostendateien eingefügt werden?", vbYesNo) = vbYes Then
        Arr = Array("ET120", "ET140", "ET150", "ET210", "ET220", "ET600", "ETMISC")
        On Error GoTo errHandler
        With Application
            .ScreenUpdating = False
            .StatusBar = "Dieser Vorgang dauert ein paar Minuten. Bitte Geduld haben..."
            .EnableEvents = False
        End With
        For i = 1 To Sheets("FILES").Range("A1").End(xlDown).Row
            wbName = Sheets("FILES").Cells(i, 1)
            Workbooks.Open wbName, 3
            With ActiveWorkbook
                For i2 = LBound(Arr) To UBound(Arr)
                    With .Worksheets(Arr(i2))
                        .Protect password:="maze", UserInterfaceOnly:=True
                        With .Range("B2")
                            .Value = "'C = Realisierung nicht vor dem 01.10.2005!"
                            .Font.ColorIndex = 3
                            .Font.Bold = True
                            .HorizontalAlignment = xlCenter
                            .VerticalAlignment = xlBottom
                            .Borders(xlEdgeTop).Weight = xlThin
                        End With
                    End With
                Next
                .Close True
            End With
        Next
        With Application
            .StatusBar = False
            .EnableEvents = True
            .ScreenUpdating = True
        End With
        MsgBox "Dateien wurden aktualisiert"
    End If
    Exit Sub
errHandler:
    With Application
        .StatusBar = False
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    MsgBox "Beim Update der Datei" & vbLf & wbName & vbLf & "ist ein Fehler aufgetreten!", 16, "ABBRUCH!"
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Probleme mit Array

11 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread