Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Endlos- Textbox, alle Werte ausgeben
Autor: Prian0815
Datum: 08.12.04 15:07
klar, weil er ja in dem Fall den ersten Zeitstempel immer mit dem nächsten überschreibt. Also wirst du die Daten nach jedem gelesenen Satz am besten gleich in eine Excel -File schreiben.Alles nötige hierfür steht hier mit drin: Verweis auf Microsoft Excel setzen nicht vergessen. Dim xlAPP As Object On Error GoTo Fehler ‚ Verweist in Fehlerroutine(wichtig für ‚Get Object’ und ‚open’) ' bereits geöffnetes Excel verwenden 'Set xlAPP = GetObject(, "excel.application") ' neue Excel-Session erstellen Set xlAPP = CreateObject("excel.application") ' Excel sichtbar machen xlAPP.Visible = True ' Excelrückfragen deaktivieren xlAPP.DisplayAlerts = False ' Abarbeitung von VBA-Ereignissen in XLS-Dateien verhindern xlAPP.EnableEvents = False ' öffnet eine bestehende Datei 'xlAPP.Workbooks.Open "C:\Mappe.xls" ' erzeugt eine neue Arbeitmappe(Datei) xlAPP.Workbooks.Add ' Blatt durch Blattindex aktivieren xlAPP.ActiveWorkbook.Worksheets(2).Select ' alle Blätter zählen txtAnzSheets.Text = XLBook.Worksheets.Count ‘Blattname ermitteln Set XLSheet = XLBook.Worksheets(n) sheetName = XLSheet.Name ' oder Blatt durch Name aktivieren xlAPP.ActiveWorkbook.Worksheets("Tabelle2").Select ' in die Zelle (zeile 5, spalte 2) "Text" eintragen xlAPP.Cells(5, 2) = "Text" ' in die Zelle D8 "Text" eintragen xlAPP.Range("D8") = "Text in Zelle D8" 'Formel in eine Excel – Zelle eintragen Worksheets(sheetindex).Range(R1).Formula = Formel ' in die Zelle A?(Variable:ZZ) "Text" eintragen R1 = "A" & Int(ZZ) XLSheet.Range(R1).Value = "Name" ' speichert die aktuelle Arbeitsmappe xlAPP.ActiveWorkbook.Save ' speichert die aktuelle Arbeitsmappe unter einen neuen Namen xlAPP.ActiveWorkbook.SaveAs "C:\Mappe.xls" ' schließt die aktuelle Arbeitsmappe und verwirft ' nicht gespeicherte Änderungen xlAPP.ActiveWorkbook.Close False ' Excel beenden xlAPP.Quit ' Speicher freigeben Set xlAPP = Nothing XLSheet.Cells.WrapText = False ' Zeilenumbruch ausschalten R1 = "A1:B" & Int(ZZ) XLSheet.Range(R1).Select XLSheet.Range(R1).Columns.AutoFit 'Formatiert selektierte Spalten in optimale 'Breite Fehler: Select Case Err.Number Case 429 ' Excel lief nicht - Excel starten Set XLApp = CreateObject("Excel.Application") If XLApp Is Nothing Then ' Fehler: Excel nicht vorhanden! MsgBox msgNoExcel, vbExclamation Exit Sub Else Set XLApp = CreateObject("Excel.application") Resume Next End If Case 1004 'Datei nicht vorhanden Neue Datei erstellen Set XLBook = XLApp.Workbooks.Add Dateivorhanden = False Resume Next Case Else MsgBox Err.Description Screen.MousePointer = 1 End Select End Sub

Endlos- Textbox, alle Werte ausgeben	4.343	Annabelle	08.12.04 11:50
Re: Endlos- Textbox, alle Werte ausgeben	3.097	Prian0815	08.12.04 12:56
Re: Endlos- Textbox, alle Werte ausgeben	3.262	Annabelle	08.12.04 13:10
Re: Endlos- Textbox, alle Werte ausgeben	3.146	Prian0815	08.12.04 13:31
Re: Endlos- Textbox, alle Werte ausgeben	3.137	Annabelle	08.12.04 13:36
Re: Endlos- Textbox, alle Werte ausgeben	3.224	Prian0815	08.12.04 13:48
Re: Endlos- Textbox, alle Werte ausgeben	3.107	Annabelle	08.12.04 13:56
Re: Endlos- Textbox, alle Werte ausgeben	3.061	Prian0815	08.12.04 14:28
Re: Endlos- Textbox, alle Werte ausgeben	3.091	Annabelle	08.12.04 14:42
Re: Endlos- Textbox, alle Werte ausgeben	3.255	Prian0815	08.12.04 13:59
Re: Endlos- Textbox, alle Werte ausgeben	3.066	Annabelle	08.12.04 14:09
Re: Endlos- Textbox, alle Werte ausgeben	3.066	Prian0815	08.12.04 14:42
Re: Endlos- Textbox, alle Werte ausgeben	3.083	Annabelle	08.12.04 14:52
Re: Endlos- Textbox, alle Werte ausgeben	3.149	Prian0815	08.12.04 15:07
Re: Endlos- Textbox, alle Werte ausgeben	3.174	Annabelle	08.12.04 13:41
Re: Endlos- Textbox, alle Werte ausgeben	3.124	Annabelle	09.12.04 12:48
Re: Endlos- Textbox, alle Werte ausgeben	3.044	Prian0815	09.12.04 13:51
Re: Endlos- Textbox, alle Werte ausgeben	3.130	Annabelle	09.12.04 14:11
Re: Endlos- Textbox, alle Werte ausgeben	3.107	Prian0815	09.12.04 15:08
Re: Endlos- Textbox, alle Werte ausgeben	3.072	Annabelle	10.12.04 08:10
Re: Endlos- Textbox, alle Werte ausgeben	3.103	Annabelle	10.12.04 08:53
Re: Endlos- Textbox, alle Werte ausgeben	3.207	Prian0815	10.12.04 09:14
Re: Endlos- Textbox, alle Werte ausgeben	3.082	Annabelle	10.12.04 09:32
Re: Endlos- Textbox, alle Werte ausgeben	3.029	Annabelle	10.12.04 09:36
Re: Endlos- Textbox, alle Werte ausgeben	2.964	Prian0815	10.12.04 10:06
Re: Endlos- Textbox, alle Werte ausgeben	3.053	Annabelle	10.12.04 10:34
Re: Endlos- Textbox, alle Werte ausgeben	3.018	Prian0815	10.12.04 11:14
Re: Endlos- Textbox, alle Werte ausgeben	3.044	Annabelle	10.12.04 11:18
Re: Endlos- Textbox, alle Werte ausgeben	3.083	Prian0815	10.12.04 11:42
Re: Endlos- Textbox, alle Werte ausgeben	3.076	Annabelle	10.12.04 11:49
Re: Endlos- Textbox, alle Werte ausgeben	3.124	Annabelle	10.12.04 11:27
Re: Endlos- Textbox, alle Werte ausgeben	3.122	Prian0815	10.12.04 12:01
Re: Endlos- Textbox, alle Werte ausgeben	3.002	Annabelle	10.12.04 12:10
Re: Endlos- Textbox, alle Werte ausgeben	3.063	Prian0815	10.12.04 12:50
Re: Endlos- Textbox, alle Werte ausgeben	3.164	Annabelle	10.12.04 13:04
Re: Endlos- Textbox, alle Werte ausgeben	2.970	Prian0815	10.12.04 13:24
Re: Endlos- Textbox, alle Werte ausgeben	3.038	Annabelle	10.12.04 13:40
Re: Endlos- Textbox, alle Werte ausgeben	3.028	Annabelle	10.12.04 12:15
Re: Endlos- Textbox, alle Werte ausgeben	3.062	Prian0815	10.12.04 12:56
Re: Endlos- Textbox, alle Werte ausgeben	3.071	Annabelle	10.12.04 13:10
Re: Endlos- Textbox, alle Werte ausgeben	3.013	Prian0815	10.12.04 13:36
Re: Endlos- Textbox, alle Werte ausgeben	3.042	Annabelle	10.12.04 13:43
Re: Endlos- Textbox, alle Werte ausgeben	3.073	Annabelle	10.12.04 13:47
Re: Endlos- Textbox, alle Werte ausgeben	3.031	Prian0815	13.12.04 09:05
Re: Endlos- Textbox, alle Werte ausgeben	3.025	Annabelle	13.12.04 09:16
Re: Endlos- Textbox, alle Werte ausgeben	2.972	Prian0815	13.12.04 11:13
GESCHAFFT!!!	3.047	Annabelle	13.12.04 09:51
Re: GESCHAFFT!!!	3.051	Annabelle	13.12.04 10:05
Re: GESCHAFFT!!!	3.097	Prian0815	13.12.04 11:09
If Anweisung	3.027	Annabelle	13.12.04 11:14
Re: If Anweisung	3.222	Prian0815	13.12.04 11:32
Re: If Anweisung	3.025	Annabelle	13.12.04 11:44
Re: If Anweisung	3.023	Prian0815	13.12.04 11:58
Re: GESCHAFFT!!!	3.031	Prian0815	13.12.04 10:55

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