AW: Daten in externe Datei schreiben
29.09.2008 08:26:49
Ludwig
Hallo Tino
Vielen Dank für Deine Antwort.
Leider funktioniert die "Ansprache" der richtigen Datei immer noch nicht! Hier nochmals der gesamte Code:
Private Sub DatenSpeichern_Click()
Dim TB1, TB2 As Worksheet
Dim DatenbankDateiExtern As Workbook
Dim DatenZähler, x, y, i As Integer
'Application.ScreenUpdating = False
'Application.DisplayAlerts = False
On Error Resume Next
Set TB1 = Worksheets("INPUT")
Set TB2 = Worksheets("Datenbank")
Set DatenbankDateiExtern = Workbooks.Open(Filename:=ThisWorkbook.Path & "\DatenbankExtern.xlsx") _
TB2.Select
TB2.Activate
TB2.Rows(2).Select
Selection.Insert Shift:=xlDown 'Leerzeile einfügen
With Selection.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
TB2.Range("$A$2").Value = TB2.Range("$A$3").Value + 1
x = 2
While IsEmpty(TB2.Cells(1, x)) = False
TB2.Cells(2, x).Value = "=" & TB2.Cells(1, x).Text
x = x + 1
Wend
TB2.Rows(2).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:= _
False
Selection.Copy
'Füge in geöffnete Datei in Tabelle "DatenbankExtern" ein
DatenbankDateiExtern.Sheets("DatenbankExtern").Rows(2).PasteSpecial
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWorkbook.Close
TB1.Select
Range("AngebotsNummer").Select
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox x + 1 & " - Daten in die Datenbank geschrieben!", vbOKOnly, "Datenbank-Meldung"
End Sub
Anstatt das die "DatenbankDateiExtern" gespeichert und geschlossen wird, schließt VBA TB2!
Hast Du noch eine Idee?
Vielen Dank vorab!
Gruß Ludwig