Hab ein hier ein Makro das vorher in einem andere sheet war und problemlos lief!dann hab ich das makro in ein anderes sheet kopiert und wollte es über einen button starten! beim kompilieren jedoch erhielt ich folgenden fehler:
<objekt oder anwendungsorientierten fehler>bei
While Cells(y, 38) <> "ABSOLUTENDE"
While Cells(y, 38) <> "Ident Nr."
Was kann ich tun?
Für rasche Hilfe wäre ich sehr dankbar!!
hier noch das ganze makro zum durchschaun!!
Danke schon mal im voraus!
Sub ArztbesucheEinfuegen()
Dim Verz, MADatei, MADateiSheet, ErgDatei As String
Dim LastArzt, y As Long
Verz = Cells(1, 3) 'gewünschtes Verzeichnis
ChDir (Verz)
MADatei = Cells(2, 3) & ".xls" 'Mitarbeiter-Datei (Importdatei)
MADateiSheet = Cells(3, 3) 'Mitarbeiter-Datei Sheet-Name
ErgDatei = Cells(4, 3) & ".xls" 'Ergebnis-Datei
Workbooks.Open FileName:=Verz & "\" & MADatei
Range("A1").Select
Selection.End(xlDown).Select
LastArzt = ActiveCell.Row
'Workbooks.Open FileName:=Verz & "\" & ErgDatei
y = 1
While Cells(y, 38) <> "ABSOLUTENDE"
While Cells(y, 38) <> "Ident Nr."
y = y + 1
Wend
y = y + 1
While Cells(y, 38) <> "ENDE" 'Spalte mit Werten die abgeglichen werden von MADatei
For z = 1 To LastArzt
If Workbooks(MADatei).Sheets(MADateiSheet).Cells(z, 1) = Cells(y, 38) Then
Cells(y, 53) = Workbooks(MADatei).Sheets(MADateiSheet).Cells(z, 2) 'Spalte wo geschrieben wird
End If
Next
y = y + 1
Wend
y = y + 1
Wend
ActiveWorkbook.Save
ActiveWindow.Close
Workbooks(MADatei).Activate
ActiveWindow.Close
End Sub