Mein Code funktioniert nicht ... warum?
08.02.2006 01:15:29
Roli
Option Explicit
Dim wbopen_dbase As Worksheet
Private Sub CommandButton1_Click()
Dim strWb As String
On Error Resume Next
Set wbopen_dbase = Workbooks("EXA78.xls").Worksheets("EXA78")
vPath = "F:\" 'Quellpfad zur Datenbank
strWb = vPath & "EXA78.xls" 'Quelldatei zur Datenbank
Workbooks.Open Filename:=strWb
If wbopen_dbase.Cells(1, 1) = "" Then
Else
wbopen_dbase.Rows("1:1").Select
Selection.Insert Shift:=xlDown
End If
wbopen_dbase.Range("as2").Value = "" & Format(Date, "dddd, dd. mmmm yyyy") & " " & Format(Time, "hh:mm")
'If wbopen_dbase.Cells(3, 6) = "G" Then
' FtpSend_dbase_gir
' Else
' FtpSend_dbase_spo
'End If
'ThisWorkbook.Close savechanges:=False
End Sub
Dieser Code ist einer Userform eingebaut. Ich habe vor mithilfe der Userform eine Datei zu öffnen (exa78.xls), der dann eine Zeile hinzufügen muss. Genau da scheitert es. wbopen_dbase kennt er nicht, obwohl ich diese Worksheet-Variable gesetzt habe...
Bitte um Aufklärung warum es nicht hinhaut.
lg Roli