Excel Problem(VBA)

abgesehn mal davon, dass es grauslicher Stil ist (keine Einrückung) - welche Fehlermeldung kam denn?

lg MJerry

Er hat zwar eingerückt, aber am Anfang einer Zeile werden Leerzeiichen nicht dargestellt.
Ich empfehle Programmcodes entweder zwischen den PHP-TAG dieses Forums oder den CODE-TAG dieses Forums zu schreiben.
Achtung: <> werden als HTML Tags interpretiert und sollten daher so geschrieben werden:
<>

Zitat

Original geschrieben von misanthrop
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: <br>
&lt;objekt oder anwendungsorientierten fehler&gt;bei<br>
While Cells(y, 38) &lt;&gt; &quot;ABSOLUTENDE&quot;<br>
While Cells(y, 38) &lt;&gt; &quot;Ident Nr.&quot;<br>
Was kann ich tun?<br>
F&uuml;r rasche Hilfe w&auml;re ich sehr dankbar!!
<p>hier noch das ganze makro zum durchschaun!!<br>
Danke schon mal im voraus!</p>

PHP

Sub ArztbesucheEinfuegen()Dim Verz, MADatei, MADateiSheet, ErgDatei As StringDim 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.CloseEnd Sub

Alles anzeigen