SendKeys

Hallo VBA-Profis,
ich brauche dringend Eure Hilfe !
Das Problem : innerhalb einer Schleife öffne ich diverse Dateien, schreibe bestimmte Werte aus ihnen in ein Datenblatt, schließe die jeweilige Datei und aktualisiere anschließend eine Pivot-Table, die ihre Daten (u.a. Liefertermine) aus dem Datenblatt bezieht. Klappt alles soweit bestens, aber ...
Beim Schließen der einzelnen Dateien reicht SaveChanges:=false nicht aus, da sie infolge einer Workbook_BeforeClose-Prozedur eine Rückmeldung erwarten. Diese fange ich im obigen Programm über SendKeys ("no") ab. Dieses "no" erscheint dann in der Pivot_Table in 2 Spaltenüberschriften (statt des Liefertermines), einmal sogar nur verstümmelt als "n.". Im Datenblatt selbst ist das "no" jedoch in der Lieferterminspalte nicht zu entdecken. Das "Daten aktualisieren" bringt auch keine Abhilfe !
Wer kann mir bitte helfen ?
Gruß
Norbert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: SendKeys

16.08.2003 15:22:16

Ramses

AW: SendKeys

16.08.2003 17:49:37

Norbert

AW: SendKeys

16.08.2003 18:28:30

Ramses

AW: SendKeys

16.08.2003 20:04:42

Norbert

Danke fürs Feedback :-) o.T.

17.08.2003 14:56:43

Ramses

Hallo Rainer,
hoffe, das hilft Dir !
LoadFile(Datei, Pfad) 'prüft, ob Datei vorhanden oder geöffnet
If Status = "nein" Then
Exit Sub
ElseIf Status = "" Then
Workbooks.Open FileName:=Pfad & Datei
Else
Workbooks(Datei).Activate
End If
Die Auto_Close-Prozedur von "Datei" ...


Private Sub Workbook_BeforeClose(cancel As Boolean)
Dim FilialBereich As Range
On Error Resume Next
Application.OnKey "{F1}"
Application.OnKey "+{Left}"
Application.OnKey "+{Right}"
Application.OnKey "^{Left}"
Application.OnKey "^{Right}"
Application.StatusBar = ""
Set Leiste = Application.CommandBars("cell")
On Error Resume Next
For Each cbc In Leiste.Controls
If Left(cbc.Caption, 1) = "A" _
Or Left(cbc.Caption, 1) = "B" _
Or Left(cbc.Caption, 1) = "C" Then
cbc.Delete
End If
Next
Set FilialBereich = ActiveSheet.Columns("AH:DZ")
If FilialBereich.EntireColumn.Hidden = False Then
ActiveSheet.Unprotect ("xxx")
FilialBereich.EntireColumn.Hidden = True
ActiveSheet.Range("E22:O22").Select
Selection.Font.ColorIndex = 2
ActiveSheet.Range("P22:U22").Select
Selection.Locked = True
ActiveSheet.Protect ("xxx")
End If
If ActiveSheet.Range("Lieferant") <> LiefName Then
Antwort = MsgBox("Es wurden nach der Erfassung Details geändert !" _
& Chr(13) & Chr(13) _
& "Sollen die Änderungen  in der" _
& Chr(13) _
& "Orderdatenbank erfaßt werden ?", _
36, "Auftragserfassung")
End If
Application.ScreenUpdating = True
Application.DisplayFullScreen = False
End Sub

Danke schon jetzt für Deine Bereitschaft, Dich in mein Problem zu vertiefen
Norbert

Beliebteste Forumthreads (12 Monate)

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread