Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Programmablauf unterbrechen
Autor: Lutz Ebbing
Datum: 10.09.01 09:00
Ich übertrage mit unten stehendem Code Daten nach Excel.Beim Start wird eine Form mit einer Progress-Bar und einem Abbrechen-Button geöffnet.Während des Programmablaufs kann ich zwar den Mauszeiger bewegen aber keinen "Klick" ausführen. Wie bekomme ich den Abbrechen-Button "scharf " zum Abbrechen? Nach dem Abbruch soll Excel ohne zu Speichern beendet werden. _____________________________________________________________________________________________________________________ Private Sub CmdExcel_Click() Dim ExcelX As New Excel.Application Dim j, k, Zähler, Blatt As Integer Dim Dateiname As String Dim pbar As Long FrmBarÖffnen.Show FrmBarÖffnen.ProgressBar1.Value = 0 FrmBarÖffnen.Caption = "Formatiere Excel-Datenblatt" Dateiname = Pfad + "DatenbankAdressen.xls" ExcelX.Workbooks.Open FileName:=Dateiname Zählwerk = 0 DatAnz = MaxAnzahl pbar = 99 / DatAnz '***********************Bereiche löschen************************************ Blatt = 1 ExcelX.Sheets(Blatt).Select ExcelX.Sheets(Blatt).Range("A3:H210").Select ExcelX.Selection.ClearContents ExcelX.Sheets(Blatt).Range("A3").Select '***********************Daten übertragen************************************ Index = 0 FrmBarÖffnen.ProgressBar1.Value = 0 DatAnz = MaxAnzahl pbar = 99 / DatAnz FrmBarÖffnen.Caption = "Übertrage Datensätze ins Excel-Datenblatt" j = 3 'Zeile in Excel k = 1 'Spalte in Excel For Index = 1 To MaxAnzahl Step 1 Zähler = Zähler + 1 ExcelX.Sheets(Blatt).Cells(j, k).Value = MitgliedNummer(Index) ExcelX.Sheets(Blatt).Cells(j, k + 1).Value = Nachname(Index) ' 'u.s.w. ' FrmBarÖffnen.ProgressBar1.Value = FrmBarÖffnen.ProgressBar1.Value + pbar FrmBarÖffnen.Refresh j = j + 1 Next Unload FrmBarÖffnen Beep ExcelX.Visible = True End Sub ______________________________________________________________________ Private Sub CmdAbbrechen_Click() 'und was muß hier rein ???? 'ExcelX.Close ohne Speichern ?????????? End Sub Ich bedanke mich schon mal recht herzlich im voraus

Programmablauf unterbrechen	92	Lutz Ebbing	10.09.01 09:00
DoEvents	50	DanielLorbach	10.09.01 09:44
Re: DoEvents, Daniel	45	Lutz Ebbing	10.09.01 16:04
Button.Enabled = False	46	DanielLorbach	10.09.01 17:13
Re: Button.Enabled = False	44	Lutz Ebbing	11.09.01 09:49
Re: Programmablauf unterbrechen	507	Dieter	10.09.01 09:45
Re: Programmablauf haut hin, aber...	42	Lutz Ebbing	10.09.01 16:02

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen