Ich habe in diesem Script einen Fehler, weis aber leider nicht wo. Eine Fehlermeldung als solches gibt es nicht aber das script macht halt nicht das was es soll.
Private Sub CommandButton5_Click()
Dim lngZ As Long
With Sheets("Mitarbeiterdaten")
Workbooks.Open kompletterpfad
For lngZ = 4 To .Cells(.Rows.Count, 7).End(xlUp).Row
If Not IsEmpty(.Cells(lngZ, 7)) Then
.Cells(lngZ, 9) = IIf((.Range("N2") = "X"), "Ja", "Nein")
End If
Next lngZ
End With
End Sub
Zur Erklärung:
In "Mitarbeiterdaten" stehen untereinander in der Spalte 7 die Namen für die in "Workbooks.Open kompletterpfad" zu findenden Tabellen. Jetzt soll in jeder Tabelle in "Workbooks.Open kompletterpfad" nachgesehen werden, ob in N2 ein "X" drin steht oder nicht. Wenn Ja, dann soll in "Mitarbeiterdaten" in der Spalte 9 ein "Ja" oder ein "Nein" zu finden sein.
Wo hab ich denn mein Denkfehler?
Der Tom