mein Verbesserungsvorschlag:
Workbooks(Filename).Close
Gru?
Rudi
Eine Kuh macht Muh, viele K?he machen M?he
Dim gZelle As Range, sBegriff$
Application.ScreenUpdating = False
sBegriff = feldkurs.Text
If sBegriff > "" Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & txtPfad.Value
Set gZelle = ActiveSheet.Columns("A:F").Find(sBegriff)
If gZelle Is Nothing Then
Beep
MsgBox "Kursnummer konnte nicht gefunden werden!"
Else
feldtitel.Value = Range("B" & gZelle.Row)
vom.Value = Range("G" & gZelle.Row)
bis.Value = Range("H" & ActiveCell.Row)
End If
ActiveWorkbook.Close SaveChanges:=False
End If
Application.ScreenUpdating = True
Wozu dienten eigentlich die folgenden Zeilen?
gZelle.Offset(1).Select
While ActiveCell.Address > gZelle.Address
Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Address = gZelle.Address Then Exit Sub
Wend
Die "Weitersuch"-Ergebnisse werden doch gar nicht verwendet, mit dem Exit wird aber
die Prozedur sofort verlassen, so dass die Mappe nicht mehr geschlossen werden kann.
Noch eine Empfehlung:
Option Explicit
als erste Zeile in jedem Modul.
R?ckmeldung w?re nett! - Gr??e von Erich aus Kamp-Lintfort
"Workbooks(Filename).Close" hab ich doch tats?chlich v?llig ?bersehen, nunja so kanns kommen.
Nicht wenn du deine Variablen deklarierst und Option Explicit im Kopf des Moduls stehen hast.
Gru?
Rudi
Eine Kuh macht Muh, viele K?he machen M?he
Dim gZelle As Range, sBegriff$
Application.ScreenUpdating = False
sBegriff = feldkurs.Text
If sBegriff > "" Then
Workbooks.Open Filename:=ThisWorkbook.Path & "\" & txtPfad.Value
Set gZelle = ActiveSheet.Columns("A:F").Find(sBegriff)
If gZelle Is Nothing Then
Beep
MsgBox "Kursnummer konnte nicht gefunden werden!"
Else
feldtitel.Value = Range("B" & gZelle.Row)
vom.Value = Range("G" & gZelle.Row)
bis.Value = Range("H" & ActiveCell.Row)
End If
ActiveWorkbook.Close SaveChanges:=False
End If
Application.ScreenUpdating = True
Wozu dienten eigentlich die folgenden Zeilen?
gZelle.Offset(1).Select
While ActiveCell.Address > gZelle.Address
Cells.FindNext(After:=ActiveCell).Activate
If ActiveCell.Address = gZelle.Address Then Exit Sub
Wend
Die "Weitersuch"-Ergebnisse werden doch gar nicht verwendet, mit dem Exit wird aber
die Prozedur sofort verlassen, so dass die Mappe nicht mehr geschlossen werden kann.
Noch eine Empfehlung:
Option Explicit
als erste Zeile in jedem Modul.
R?ckmeldung w?re nett! - Gr??e von Erich aus Kamp-Lintfort
"Workbooks(Filename).Close" hab ich doch tats?chlich v?llig ?bersehen, nunja so kanns kommen.
Nicht wenn du deine Variablen deklarierst und Option Explicit im Kopf des Moduls stehen hast.
Gru?
Rudi
Eine Kuh macht Muh, viele K?he machen M?he