Schleife & Fehlermeldung
Stefan
habe einen Super Code für mein Problem bekommen... (Danke jowe!!!)
Da ich mich nur wenig auskenne bräuchte ich noch folgende Hilfe:
Der Code soll den Eintrag in deiner Zelle einer xls auf viele weitere xls in einem bestimmten Ordenr
in die selbe Zelle schreiben.
Problem 1: Code bringt bei mir bei Set vTable = sh.Name ne Fehlermeldung
Problem 2: im Code verweist er auf einen Filenamen(Liste_501.xls) ---> dies soll ersetzt werden
durch eine Schleife, so dass unter einem angegeben Pfad alle in diesen Pfad befindlichen xls
entsprechend geändert werden.
Sub schreibe_in_Arbeitsmappen()
Dim wb As Workbook
Dim sh As Worksheet
Dim vAdresse, vValue, vFileName, vTable As String
Set wb = ThisWorkbook
Set sh = wb.ActiveSheet
Set vTable = sh.Name
vAdresse = ActiveCell.Address
vValue = ActiveCell.Value
'Hier Schleife starten um mehrere AM zu öffnen, zu schreiben, zu schließen
'lies Dir dazu die Hilfe zu 'Dir' durch
Workbooks.Open Filename:= _
"C:\temp\Liste_501.xls"
vFileName = ActiveWorkbook.FullName
On Error GoTo fb_schreiben
Sheets(vTable).Range(vAdresse) = vValue
ActiveWorkbook.Close savechanges:=True
'hier wäre die Schleife zu Ende
Exit Sub
fb_schreiben:
ActiveWorkbook.Close savechanges:=False
lz = Sheets("Logbuch").Cells(Rows.Count, 1).End(xlUp).Row + 1
Sheets("Logbuch").Cells(lz, 1) = Now()
Sheets("Logbuch").Cells(lz, 2) = "Daten wurden nicht geschrieben in:"
Sheets("Logbuch").Cells(lz, 3) = vFileName
Resume Next
End Sub
:-)
Stefan
P.S. Danke nochmal an jowe der viel Geduld mit mir hatte :-) :-)
Anzeige