Code verändern
01.08.2014 17:00:38
Andreas
Hallo Excelprofis!
Mit folgendem Code (Dank an dieses Forum) schreibe ich Verknüpfungen zu Daten aus einer anderen Datei Blatt "Anwesenheit" (die Datei wird über Combobox ausgewählt) in die Tabelle Übersicht.
In einer anderen Datei bräuchte ich das gleiche, nur das die Ursprungswerte aus einer Tabelle in der gleichen Datei kommen.
Also jetzt wird das Tabellenblatt in der Combobox ausgewählt und die Formeln sollen in das Blatt "Einzeln" eingetragen werden.
Kann mir bitte Jemand helfen, wie der Code aussehen muss.
Private Sub CommandButton1_Click()
Dim strFile As String, strForm As String
ActiveSheet.Unprotect Password:=""
With ComboBox1
If .ListIndex > -1 Then
strFile = .List(.ListIndex)
Else
' keine Datei ausgewählt - was tun?
End If
End With
If strFile <> "" Then
' Anfang der Formel
strForm = "'" & ThisWorkbook.Path & "\[" & strFile & "]Anwesenheit'!"
With ThisWorkbook.Sheets("Übersicht") ' Zielblatt
.Range("A8").Formula = "=" & "If(" & strForm & "$H$5" & "="""",""""," & strForm & "$H$5" _
& ")"
.Range("A3").Formula = "=" & "If(" & strForm & "A3" & "="""",""""," & strForm & "A3" & " _
)"
.Range("J1").Formula = "=" & "If(" & strForm & "J1" & "="""",""""," & strForm & "J1" & " _
)"
.Range("B5").Formula = "=" & "If(" & strForm & "B5" & "="""",""""," & strForm & "B5" & " _
)"
.Range("X5").Formula = "=" & "If(" & strForm & "X5" & "="""",""""," & strForm & "X5" & " _
)"
.Range("A9:AG33").Formula = "=" & "If(" & strForm & "A8" & "="""",""""," & strForm & " _
A8" & ")"
TextBox3.Value = Format(Sheets("Übersicht").Range("J1"), "YYYY-MM")
End With
End If
ActiveSheet.Protect Password:=""
End Sub
Danke fürs lesen und die Hilfe!mfg, Andreas