HansiPansi

Hi, kann es sein das Dein Kollege bei Dir als Stellvertreter (Extras->Optionen->Stellvertretung) eingetragen ist. Diese Personen erhalten die Berechtigung "im Auftrag vom" zu senden. Weitere Möglichkeit ist es wenn Deinem Kollegen unter Exchange diese Berechtigung erteilt wurde, dann kann er auch in Deinem Auftrag senden. Gruss Arne

Haben wir leider nicht. Bei uns kam das ganze auch erst 2 mal zum Einsatz seitdem ich da bin (fast 2 Jahre). Gruss

So, habe das ganze mal durch den ABBYY Finereader gejagt. Das ganze hat ca. 75 Sek. gedauert und das Ergebnis ist eher schwach. Muss dazu aber auch sagen das wir noch die Vers. 4.0 haben und ich denke mal das die 6.0 das ganze noch besser hinkriegt. Wenn Du möchtest schicke ich Dir das Word-Dok. per Mail. Schreib mir dann einfach eine PM mit der Adresse oder poste die Adresse. Gruss

Hi, werde ich mal testen.

Hi, Du musst unter Projekt->Verweise auch noch die Microsoft Excel X.0 Object Libary einbinden. Sonst gehts nicht. Oder hast Du Excel auf dem Rechner nicht installiert? Dann wird das ganze erst richtig "kompliziert". Gruss HansiPansi

Wie ich schon erwähnt hatte kann Du den Bereich der überprüft werden soll auf For c = 1 To 256 ' Alle Spalten For i = 1 To 65535 ' Alle Zeilen ausweiten. In der Zeit kannst Du dann aber schonmal Deine Mittagspause machen. Gruss

Hi, hab mich noch mal rangesetzt und hier hast Du eine Funktion die Dir die letzte Zeile angibt: Option Explicit Private App As Excel.Application Private Sub Command1_Click() Dim i As Integer, c As Integer, Zeile As Integer, Spalte As Integer Set App = CreateObject("Excel.Application") App.Visible = False App.Workbooks.Open FileName:="C:\Mappe1.xls" MsgBox App.ActiveCell.SpecialCells(xlCellTypeLastCell).Address' Dieser Aufruf gibt die Adresse der letzten Zeile im Format $"Spalte"$"Zeile" zurück App.Workbooks.Close App.Application.Quit End Sub Ich hoffe Dir ist damit geholfen. Gruss HansiPansi

Hi, ich hoffe ich hab Dich richtig verstanden und Du willst die letzte Zeile ermitteln in der ein Wert ist. Dann ist es doch recht einfach mit einer For ... Next Schleife zu bewältigen mit Hilfe der MS Excel X.0 Object Libary. Dieser Code ermittelt die letzte Zeile und Spalte in einem definiertem Bereich (kann man ja auf die gesamte Tabelle ausweiten *gähn, warte, warte*). Mit diesen Werten kannst Du dann eine weitere Schleife starten und alle Werte in Dein Array aufnehmen die <> "" sind. Code: Option Explicit Private App As Excel.Application Private Sub Command1_Click() Dim i As Integer, c As Integer, Zeile As Integer, Spalte As Integer Set App = CreateObject("Excel.Application") App.Visible = False App.Workbooks.Open FileName:="F:\Test\Excel\Mappe1.xls" For c = 1 To 20 'Spalten 1 bis 20 durchgehen For i = 1 To 50 'Zeilen 1 bis 50 durchgehen If Not App.Cells(i, c).Value = "" Then If i > Zeile Then Zeile = i End If Spalte = c End If Next i Next c MsgBox "Höchste Spalte: " & Spalte & vbNewLine & _ "Höchste Zeile: " & Zeile App.Workbooks.Close App.Application.Quit End Sub Ich hoffe ich konnte Dir helfen. Gruss HansiPansi

Hi, das macht Du mit der API Funktion Shell_NotifyIcon. Wenn Du ein Beispiel haben willst schicke ich Dir gerne eins per Mail. Gruss HansiPansi

Also ich fand die Prüfung nicht allzu schwer, habe auch eigentlich gar nichts dafür getan ausser die ZP Herbst 2000 einmal durchzugehen und die fande ich härter. Das meiste konnte man wissen und das andere per Auschlußprinzip erraten. Bei der einen oder anderen Frage hätte ich aber gerne einen Publikumsjoker gehabt. Im WiSo Teil z.B. die 1. Frage. Bitte!! habe ich noch nie was von gehört!

Hi, standardmäßig ist HTML eingestellt. Man kann aber auch reinen Text einstellen (.txt). Gruss Arne

Hi, dieser Code öffnet Dir zumindest schonmal Word. Wie Du jetzt das Dokument selber noch öffnest musst Du noch rausfinden. Sub cmdGo_Click Dim MyObject Set MyObject = GetObject("C:\test.doc") Set MyApp = MyObject.Application MyApp.Visible = True end sub Sorry hab keine Zeit mehr weiter zu testen.