VBA - Fehleranzeige "400" ?
WalterK
der folgende Code soll einen Bereich (im Beispiel E1:L (bis letzte Zeile)) in ein neu angelegtes Blatt kopieren, im Zielbereich beginnend bei A1!
2 Fragen hätte ich dazu:
1.) Allerdings kommt die Fehlermeldung "400" und ich weiß nicht was falsch sein soll. Klicke ich bei der Fehlermeldung auf OK läuft der Code bis zum Ende durch und es wird kopiert wie gewünscht. Was verursacht die Fehlermeldung.
2.) Ich möchte auch das die Spaltenbreiten und Zeilenhöhen mitkopiert werden. Wie geht das?
Hier der Code:
Option Explicit
Sub BlattLKanlegen()
Dim objSh As Worksheet, objShNew As Worksheet
Dim LzA As Long
Application.ScreenUpdating = False
'*******Bereich kopieren, in neu angelegtes Blatt kopieren und Blattnamen vergeben
Set objSh = ActiveSheet
With objSh
LzA = Application.Max(7, .Cells(Rows.Count, 5).End(xlUp).Row)
Set objShNew = ActiveWorkbook.Worksheets.Add(after:=objSh)
objShNew.Name = Range("G4") & Format(Now, " hh/mm/ss")
.Range(.Cells(1, 5), .Cells(LzA, 12)).Copy objShNew.Range("A1")
End With
Set objSh = Nothing
Set objShNew = Nothing
Range("A1").Select
End Sub
Besten Dank für die Hilfe und Servus, Walter