ClearContents statt Delete beim Resetting
28.07.2015 10:11:37
eric
hoffentlich kann mir jemand helfen - ich bekomm es nicht einwandfrei hin.
Im Folgenden Macro-Code möchte ich in dem Reset Teil den "Delete"- durch einen "ClearContents"-Befehl ersetzen damit in meiner Datei auf den folgenden Excel-Blättern die Bezüge nicht verloren gehen.
Hier der Code:
Sub data_record()
Dim TB1, TB2, LR1&, LR2&, LC%
Dim Pfad$, Ext$, Datei$
Set TB1 = ActiveSheet
Pfad = ThisWorkbook.Path & "\"
Ext = "*.xlsx"
Application.ScreenUpdating = False
'Reset****
LR1 = TB1.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte
TB1.Rows("2:" & LR1).Delete xlUp
LC = TB1.Cells(1, Columns.Count).End(xlToLeft).Column 'letzte Spalte der Zeile 1
Datei = Dir(Pfad & Ext)
Do While Len(Datei) > 0
Workbooks.Open Filename:=Pfad & Datei
Set TB2 = ActiveSheet
LR1 = TB1.Cells(Rows.Count, 1).End(xlUp).Row
LR2 = TB2.Cells(Rows.Count, 1).End(xlUp).Row
TB2.Range(TB2.Cells(2, LC), TB2.Cells(LR2, LC)) = Left(Datei, InStrRev(Datei, ".") - _
_
1) 'Dateiname anfügen
TB2.Rows("2:" & LR2).Copy TB1.Rows(LR1 + 1)
Workbooks(Datei).Close SaveChanges:=False
Datei = Dir() ' nächste Datei
Loop
End Sub
Falls Ihr noch irgendetwas wissen müsst, lasst es mich gerne wissen.Für Hilfe wäre ich sehr sehr dankbar.
Beste Grüße.
Eric