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.217	Annabelle	08.12.04 11:50
Re: Endlos- Textbox, alle Werte ausgeben	3.048	Prian0815	08.12.04 12:56
Re: Endlos- Textbox, alle Werte ausgeben	3.170	Annabelle	08.12.04 13:10
Re: Endlos- Textbox, alle Werte ausgeben	3.093	Prian0815	08.12.04 13:31
Re: Endlos- Textbox, alle Werte ausgeben	3.085	Annabelle	08.12.04 13:36
Re: Endlos- Textbox, alle Werte ausgeben	3.134	Prian0815	08.12.04 13:48
Re: Endlos- Textbox, alle Werte ausgeben	3.054	Annabelle	08.12.04 13:56
Re: Endlos- Textbox, alle Werte ausgeben	3.012	Prian0815	08.12.04 14:28
Re: Endlos- Textbox, alle Werte ausgeben	2.983	Annabelle	08.12.04 14:42
Re: Endlos- Textbox, alle Werte ausgeben	3.155	Prian0815	08.12.04 13:59
Re: Endlos- Textbox, alle Werte ausgeben	3.012	Annabelle	08.12.04 14:09
Re: Endlos- Textbox, alle Werte ausgeben	2.978	Prian0815	08.12.04 14:42
Re: Endlos- Textbox, alle Werte ausgeben	3.036	Annabelle	08.12.04 14:52
Re: Endlos- Textbox, alle Werte ausgeben	3.096	Prian0815	08.12.04 15:07
Re: Endlos- Textbox, alle Werte ausgeben	3.085	Annabelle	08.12.04 13:41
Re: Endlos- Textbox, alle Werte ausgeben	3.049	Annabelle	09.12.04 12:48
Re: Endlos- Textbox, alle Werte ausgeben	2.993	Prian0815	09.12.04 13:51
Re: Endlos- Textbox, alle Werte ausgeben	3.073	Annabelle	09.12.04 14:11
Re: Endlos- Textbox, alle Werte ausgeben	3.056	Prian0815	09.12.04 15:08
Re: Endlos- Textbox, alle Werte ausgeben	3.020	Annabelle	10.12.04 08:10
Re: Endlos- Textbox, alle Werte ausgeben	3.055	Annabelle	10.12.04 08:53
Re: Endlos- Textbox, alle Werte ausgeben	3.054	Prian0815	10.12.04 09:14
Re: Endlos- Textbox, alle Werte ausgeben	3.032	Annabelle	10.12.04 09:32
Re: Endlos- Textbox, alle Werte ausgeben	2.980	Annabelle	10.12.04 09:36
Re: Endlos- Textbox, alle Werte ausgeben	2.916	Prian0815	10.12.04 10:06
Re: Endlos- Textbox, alle Werte ausgeben	3.003	Annabelle	10.12.04 10:34
Re: Endlos- Textbox, alle Werte ausgeben	2.922	Prian0815	10.12.04 11:14
Re: Endlos- Textbox, alle Werte ausgeben	2.993	Annabelle	10.12.04 11:18
Re: Endlos- Textbox, alle Werte ausgeben	3.034	Prian0815	10.12.04 11:42
Re: Endlos- Textbox, alle Werte ausgeben	3.029	Annabelle	10.12.04 11:49
Re: Endlos- Textbox, alle Werte ausgeben	3.074	Annabelle	10.12.04 11:27
Re: Endlos- Textbox, alle Werte ausgeben	3.070	Prian0815	10.12.04 12:01
Re: Endlos- Textbox, alle Werte ausgeben	2.952	Annabelle	10.12.04 12:10
Re: Endlos- Textbox, alle Werte ausgeben	3.011	Prian0815	10.12.04 12:50
Re: Endlos- Textbox, alle Werte ausgeben	3.082	Annabelle	10.12.04 13:04
Re: Endlos- Textbox, alle Werte ausgeben	2.918	Prian0815	10.12.04 13:24
Re: Endlos- Textbox, alle Werte ausgeben	2.966	Annabelle	10.12.04 13:40
Re: Endlos- Textbox, alle Werte ausgeben	2.978	Annabelle	10.12.04 12:15
Re: Endlos- Textbox, alle Werte ausgeben	3.009	Prian0815	10.12.04 12:56
Re: Endlos- Textbox, alle Werte ausgeben	3.016	Annabelle	10.12.04 13:10
Re: Endlos- Textbox, alle Werte ausgeben	2.959	Prian0815	10.12.04 13:36
Re: Endlos- Textbox, alle Werte ausgeben	2.957	Annabelle	10.12.04 13:43
Re: Endlos- Textbox, alle Werte ausgeben	3.020	Annabelle	10.12.04 13:47
Re: Endlos- Textbox, alle Werte ausgeben	2.978	Prian0815	13.12.04 09:05
Re: Endlos- Textbox, alle Werte ausgeben	2.974	Annabelle	13.12.04 09:16
Re: Endlos- Textbox, alle Werte ausgeben	2.920	Prian0815	13.12.04 11:13
GESCHAFFT!!!	2.995	Annabelle	13.12.04 09:51
Re: GESCHAFFT!!!	2.999	Annabelle	13.12.04 10:05
Re: GESCHAFFT!!!	3.047	Prian0815	13.12.04 11:09
If Anweisung	2.973	Annabelle	13.12.04 11:14
Re: If Anweisung	3.173	Prian0815	13.12.04 11:32
Re: If Anweisung	2.973	Annabelle	13.12.04 11:44
Re: If Anweisung	2.969	Prian0815	13.12.04 11:58
Re: GESCHAFFT!!!	2.978	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