vba Code kompatibel 2010
05.07.2018 13:54:20
Nic365
zeilenende = Workbooks("Art").Sheets("Art").Cells(Rows.Count, 2).End(xlUp).Row
Da ja die Datei bei mir ohne Probleme läuft auf zwei unterschiedlichen Versionen, kann es ja nichts mit der Bezeichnung zu tun haben (die Bezeichnung des Tabellenblattes ist Art und stimmt dabei mit dem Code überein). Gibt es bei diesem Code irgendetwas was vielleicht mit Excel 2010 nicht kompatibel ist ? Oder irgendwelche andere Programmeinstellungen oder sonstiges, welche zu beachten sind und weswegen es nicht läuft?
Vielen Dank und viele Grüße Nic365
Sub Art()
Dim zeilenende As Integer
'öffnen Datei im entsprechenden Laufwerk
Workbooks.Open "E:\Art.xlsx"
'Festlegen von letzter Zeile in Spalte B
zeilenende = Workbooks("Art").Sheets("Art").Cells(Rows.Count, 2).End(xlUp).Row
'löschen von bereits bestehendem Imput
Workbooks("Übersicht").Sheets("Art").Range("C5:C300").ClearContents
Workbooks("Übersicht").Sheets("Art").Range("E5:E300").ClearContents
'Import Inhalt von Art-Datei und Übertrag in Übersicht
Workbooks("Art").Sheets("Art").Range("B3:B" & zeilenende).Copy
Workbooks("Übersicht").Sheets("Art").Range("C5").PasteSpecial
'Import Inhalt von Art-Datei und Übertrag in Übersicht
Workbooks("Art").Sheets("Art").Range("C3:C" & zeilenende).Copy
Workbooks("Übersicht").Sheets("Art").Range("E5").PasteSpecial
'Anlegen eines Tabellenblattes mit Name "Hilfstabelle"
Workbooks("Art").Sheets.Add
ActiveSheet.Name = "Hilfstabelle"
'Neue Art werden aus der Übersicht kopiert und in die Hilfstabelle übertragen
Workbooks("Übersicht").Sheets("Art").Range("K5:M100").Copy
Workbooks("Art").Sheets("Hilfstabelle").Cells(1, 1).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'löschen von Fehlern und Leerzeilen
Workbooks("Art").Sheets("Hilfstabelle").Rows("1:1").AutoFilter
ActiveSheet.Range("$A$1:$C$82").AutoFilter Field:=1, Criteria1:="=#NV", _
Operator:=xlOr, Criteria2:="="
Cells.Delete Shift:=xlUp
Range("A1").Select
'abschließende Meldung, dass Daten fertig zur Weiterbearbeitung sind
MsgBox "Die Daten sind verarbeitet."
Workbooks("Übersicht").Sheets("Cockpit").Activate
End Sub