PromiseYou

Hallo zusammen Gerade wurde mir eine Frage über die Darstellung von Daten in einem Chart gestellt. Es liegen folgende Daten vor: Bieter Start Ende Beginn Stop Name1 10000 15000 10.01.2009 14.01.2009 Name2 12000 22000 12.01.2009 28.01.2009 Name3 18000 30000 29.01.2009 22.02.2009 Als Darstellung soll gewählt werden, dass auf der X-Achse der Verlauf über die Zeit dargestellt wird. Wobei die Balkenstärke die Anzahl der Tage entspricht. Die Höhe der Balken soll darstellen wo ein Betrag beginnt, und wo er Endet So sollte das Diagramm idealerweise soviele Balken wie Bieter (im Beispiel = 3) besitzen, deren Höhe anzeigt, wer wo angefangen und wer wo aufgehört hat. Sollte die Darstellung in einer anderen Ansichtsform (ausser Balken) besser geeignet sein, nehme ich gerne an Mit Excel - Diagrammen habe ich nur damals in der Schule / Ausbildung etwas rudimentär zu tun gehabt. grüssele

Beschäftige Dich doch auch mal mit dem "Range" - Objekt, und mit der "For Each - Next" - Anweisung Du bildest einen Range über deine gesamten Daten, und durchläufst dann die Zellen mit For Each, und zur Auswahl der Größenzuordnung empfehle ich dir einen "Case".

wenn der text 1 zu 1 kopiert ist, dann fehlt in der zweiten anweisung zwischen Zahl 2"). und _ ein leerzeichen. es ist jedoch möglich, das VB die Trennung an dieser Stelle garnicht mag, dann muß man den Zeilenumbruch rausnehmen

ich würde eine abfrage mit if not IsEmpty('Ausdruck') and isNumeric('Ausdruck') then ' Hier kommt nun alles rein, was nicht leer, aber numerisch ist else if NOT IsEmpty ('Ausdruck') and NOT IsNumeric('Ausdruck') then 'Hier holst dir alle Einträge raus die nicht leer, aber auch nicht numerisch sind endif machen hoffe deine frage ist ausreichend beantwortet

So ein Problem hatte ich auch schon bei mir zu hause .. Ich hatte den vorteil, dass ich das automatische update auf "Herunterladen = ja, aber Zeitpunkt der Install selber festlegen" eingestellt hatte. So hatte ich die möglichkeit zu sehen wer da nicht so recht mag. Ein blick in das Windowssetup (mit Updates anzeigen) zeigte mir dieses Paket als installiert an (*schwer stutz*) ... also habe ich dieses Paket, und das paket davor (also datum davor) wieder gelöscht, und win das nochmals installieren lassen ... danach hatte ich keine fehler mehr, und das (die beiden) updates wurden sodann neu installiert .. vllt hilft es ja auch schon bei dir ...

Für jemanden der noch nie mit VBA gearbeitet hat sind die Antworten wohl mehr als böhmische dörfer ^^ nach dem start von excel rufst du den internen Basic-Editor auf. Entweder mit ALT + F11 oder über das Menue "Extras" | "Makro" | "Visual Basic-Editor" nun hast du die möglichkeit, dich erstmal hier in ruhe einzuleben, dafür empfehle ich einen Blick in die Hilfe, oder aber nochmal nen blick ins I-Net, denn hier gibt es auch schöne tutorials, die einem das rel. gut erklären. Um den Autostart durchzuführen kannst du dann dein Makro (oder aber den aufruf hierzu) in "Private Sub Workbook_Open()" deiner Excel Arbeitsmappe ("DieseArbeitsmappe") einfügen. Was in dieser Prozedur steht, wird ausgeführt, wenn man die betreffende Exceldatei aufruft. Zu den ganzen Befehlen empfehle ich dir auch die MSDN im Netz, oder aber auch hier gibt es im Netz viele viele (und auch weniger gute) tutorials. Nimm dir Zeit, und fange nicht mit zu komplizierten sachen an.

Auch wenn das Problem schon erörtert und gelöst wurde Bei der Install von S-ATA Laufwerken muss man immer daran denken, einen Datenträgerr (Disk oder Stick) mit dem entsprechenden Treiber für den Controller parat zu haben ... Den bekommt man normalerweise in den DL-Bereichen der Hersteller. Bei der Install von Win kann man durch drücken der "F6" - Taste diesen Treiber dann installieren, und dann sollte auch jedes Setup futzen ...

Schande über mein Haupt .... Ich vergaß Es handelt sich um Excel 2000. Wobei mich das mittlerweile nur noch interessiert, und nicht mehr zur Lösung meines Problems wichtig ist. Ich bin dieses Feature aus dem Weg gegangen, in dem ich die ListBox erst .Visible = False setze, dann die .Width = 600, und dann halt wieder .Visible = True ... und siehe da, es funktioniert auf allen Rechnern der Abteilung.

Hallo zusammen Mich verfolgt gerade ein Problem, was ich so noch nie hatte, und ich mir auch nicht erklären kann. Ich habe ein Formular zur Eingabe und Abfrage von Daten. Hierzu habe ich auch eine ListBox in meinem Form eingebaut. Diese Listbox - Breite ist im Editor auf 592 px eingestellt, und im "UserForm_Initialize()" habe ich nun auch explizit die Breite auf 600 px definiert ( ListBox1.Width = 600 ) Auf meinem Rechner läuft es auch wunderbar (auch ohne diese Zuweisung in _Initialize), wenn es jedoch nun die Kollegen aufrufen (für die das hinterher sein soll), wird die ListBox auf eine Breite von ca. 171 px zurückgestellt! Nirgendwo im Code gibt es eine Anweisung die Listbox zu ändern, das einzige was ich mache ist die "RowSource", und die Spaltenbreiten einstellen. Die Spaltenbreiten sind jedoch so breit, dass ich auf jedenfall unten den Scrollbalken habe. (somit schließe ich zu schmale Spalten aus) Meine Frage ist nun, welche Möglichkeiten gibt es, die eine ListBox derart verändern ? Noch komischer ist es, wenn ich bei einem der Kollegen mit dem Debugger bei "ListBox1.Width" zuvor ein "Stop" einstelle, und dann aus dem Debugger es erneut starte, kommt der Fehler nicht ... Wenn das so weitergeht, habe ich doch bald vollglatze *in den haaren rauft* ^^

Also ich finde, auch bei einer Disskusion darf man gerne mal ein paar andere namen nehmen um nochmal meine aussage etwas zu konkretisieren Vista war/ist ein BS was von der Industrie / Gewerbe nicht anerkannt wurde, und das aus sehr guten gründen, und zwar aus gründen der sicherheit. Um mal eine kleine Exkursion zu machen DOS 3.3 war okay DOS 4.01 war ein Reinfall DOS 5 war wieder Okay DOS 6.x war wieder ein Reinfall Win 3.0 Win 3.1(3.1x) / Win NT Win 95 Win 98 ( Win SE Win 2k Win XP Win Vista von den Windowsversionen ab 95 haben es gerade mal 3 (4) versionen geschafft, in der Industrie fuss zu fassen, und das wird sicher einen Grund haben Das ist auch der Grund, warum ich Win 7 nicht mit Vista vergleichen kann. Sicherlich ist die Performance besser geworden, aber ist es das was zählt ? Wenn ich mir für das geld von Win nen neuen Prozz hole, habe ich mehr Performancegewinn als durch das Upgrade auf Win 7. Also ziehe ich andere aspekte ran Und die lassen sich mit Vista nun mal leider nicht vergleichen. Auch vom "Innenleben" des neuen Windows ist nicht mehr viel Vista übrig geblieben. Okay, die Darstellungen haben sich etwa gehalten, aber für das BS, und somit für die Stabilität des Systems ist das wichtig, was im Hintergrund abläuft, und da gibt es wohl (meinem kenntnisstand nach) sehr starke Änderungen, die von Vista abweichen, und eher dem "altem" XP bzw. "2K" (Als offizielle NT Nachfolger) angleichen. Ich persönlich nutze zu Hause nur noch das RC ! Ja, ich bin tatsächlich der Überzeugung, dass dieses BS wirklich wieder ein BS ist, was man auch aus Sicherheitsgründen wunderbar nutzen kann. Leider kann ich noch nicht über das gesamtverhalten viel berichten, da für die RC noch nicht wirklich Treiber vorliegen. Ich muß auch zugeben, dass ich nicht die 32-Bit nutze, sondern die 64-Bit version, und ich kann hier auch nur jedem nahelegen, diesen Schritt zu überlegen. Auch heute findet man immer noch Anzeigen (Angobte) von Rechnern mit 4 GB oder mehr an RAM, und als BS wird dann ne 32 Bit Version mit ausgeliefert. Schade nur, dass der Addresraum bei ca. 3 GB endet. Ergo ... 64 Bit = mehr Arbeitsspeicher Dann zu meiner Namensgebung für die Firma Microsoft. Warum darf man in einem Forum nicht auch etwas Politisch werden ?... Ich habe lediglich die Namen etwas "mißbraucht", was im tgl. Sprachgebrauch bei vielen peronen gemacht werden, die mit verrschiedenen BS zu tun haben (und das wird sicher auch nen grund haben ) Ich muß Bill Gates, oder Kleinschrott, upps ... mikroschrott ... ach nein .. das darf ich hier ja nicht sagen .. also Microsoft nicht mögen um deren Software zu nutzen ... Wenn die Wartburg das letzte Auto wäre, was produziert wird, muß ich mich damit auch zufrieden geben, auch wenn es nie meine lieblingsmarke war .. (Wartburg steht nur exemplarisch, da mir keine andere, nicht mehr existente marke, einfiel) Und Windows ist nun mal das einzige BS, was es geschafft hat (auch durch die politischen maßnahmen der Firma Gates) weltweit einen SoftwareSupport zu bekommen. Die wirkliche Alternative liegt wohl hier nur im Linux - Bereich, wobei diese halt von der "Volkssoftware" keinerlei anerkennung finden kann. Und somit wird dann in 3 jahren hier ein neuer Thread stehen, wo es darum geht, über Win 8 zu diskutieren ... irgendwie schade, dass es wirklich keine alternativen gibt

Ich selber nutze zuhause auch nur noch Windows 7 .... und als eigentlicher "Gegner" von Windows, bzw. Bill Gates Banansoftware Schmiede, habe ich es mir rel. genau angeschaut. Okay, die Vergleiche mit Vista verstehe ich ja ... denn wer kennt denn schon noch 2K oder XP *gg* wobei man Windows 7 eher mit diesen beiden Ausgaben des BS von Banasoft vergleichen sollte ^!^ Vista ist nicht umsonst von der EU angemängelt worden, und nicht umsonst gibt es ja die Möglichkeit kostenlos von Vista auf XP downzugraden ... also lassen wir vista mal aussen vor bei den vergleichen ^^

Bei Notebooks ist auch zu beachten, dass bestimmte CPU's keine Möglichkeit haben, unter Windows7 WindowsXP zu emulieren! Somit ist also auch nicht jede Software auf einem Notebook lauffähig :/ Die Einschränkung liegt daran, dass die "günstigeren" Mobile-CPU's zum großem Teil nicht die "Virtuelle Maschine" unterstützen. Bei AMD ist es das AMD-V (VirtualPC), wie es bei Intel heißt weiß ich grad nicht. Diese Informationen stammen von den offiziellen Microsoft Seiten, wobei ich den Link nun leider nicht mehr habe (habe da zuviel gelesen)

Hier ist wohl wer gefragt, der reguläre ausdrücke kann jedenfalls unter linux in einer shell ist es damit sehr sehr einfach zu erledigen (sofern man regulära ausdrücke beherrscht) was ich nun nicht weiß ist, ob es unter "DOS" nicht via einer batch geht ansonsten solltest du dir doch mal nen vba buch oder script antun im prinzip sieht es so aus for I = 1 to AlleDateienImVerzeichnis if left$("Dateiname",6)="0" then Dateiname=replace("Dateiname","0","ErsatzFürNull",6,1) endif next für das "Durchblättern" des Verzeichnisses hilft dir DIR$()

sind die Buchstaben und zahlen egal ? .... also nur wichtig, dass es 4 buchstaben und 3 zaheln sind ? oder ist es auch wichtig, was es für buchstaben und zahlen sind? entprechend einer matrix etc ?

die Hilfe sagt: statt der "2" muß nun die Abfrage erfolgen, wobei hier gilt ein wenig auf deine bedürfnisse angepasst, und es sollte laufen

okay, so wie es aussieht habe ich eine lösung gefunden ... mit: oWord.ActiveDocument.Bookmarks.Item(i).Select kann ich nun die Bookmarks "anspringen", und tabstops setze ich nun einfach global für das ganze dokument mit: oword.ActiveDocument.DefaultTabStop = InchesToPoints(4.5) '4,5" entspricht 11,43 cm im Dok# ich schreib das mal hier rein, fals mal wer auch sowas benötigt ... jedoch eine frage habe ich noch, die wird sich sicher auch bei der weiterarbeitet beantwort, aber ich kann nicht warten ^^ (ist ja schließlich WE) wenn ich mit oWord.Application.Documents.Open ("F:\WBA\WBA25\Word\KarteiblattWrE.doc") ein (neues) word starte, dann wird dies nur in den hintergrund geladen ?! Also im Taskmanger sehe ich den task, jedoch kann ich ihn nur dort sehen. Jedoch kann ich in diesem "verstecktem" word arbeiten ... gibt es in diesem bezug einschränkungen ??? wer dazu was weiß, immer her mit infos ^^ thx a lot

Hmmm ... also verstanden hab ich das nun nicht wirklich ... Also welche Stichpunkte soll ich nach suchen ? ... hier im Büro gibt es die Excel2000 version, somit habe ich nicht die probleme der 2007 hilfe ^^ ich hab nun folgendes ausprobiert: Option Explicit Dim oWord As Object Dim oText As Object Dim bWordVorhanden As Boolean Sub WordSteuerung() Set oWord = CreateObject("Word.Application") Set oText = oWord.Documents oText.Selection.Goto -1, , , "Gemeinde" End Sub als auch Option Explicit Dim oWord As Object Dim oText As Object Dim bWordVorhanden As Boolean Sub WordSteuerung() Set oWord = CreateObject("Word.Application") Set oText = oWord.Documents oText.Selection.Goto what:= -1, Name:="Gemeinde" End Sub in beiden fällen wir mir der fehler " 438 - Objekt unterstützt diese Eigenschaft oder Methode nicht" generiert ich vermute nun den Fehler in der Deklaration, bin mir aber absolut unsicher, wie ich nun die dekla richtig mache, damit der obige code auch funtzt (sollte doch wohl gehen unter microsoft ... kommen doch auch dem gleichem hause ,... oder ist genau das der grund ?? ^^ ... armes redmond ^^)

Bin grad nicht auf der Arbeit, und kann es deshalb nicht testen, sollte aber gehen. Zum einfachen durchblätern kannst auf deinem userform zwei button setzen, einen für "vor" und entsprechend einen für "zurück". Nun kannst du die ereignisse der beiden button nutzen, um deine daten durch zu blättern. Damit dies auch wirklich funktioniert mußt du zuvor jedoch alle dateien in ein oder zwei array('s) wegschreiben. Das machst du mit einer Schleife. etwa so file_name = Dir$(strDrive & "\*.*", vbDirectory) Do While (Len(file_name) > 0) file_name = Dir$() Loop Nach dem alle datein in den arrays verstaut sind kannst ja mit den Itemnumbern durchblättern. in der schleife kann man dann noch zusätzlich die datei auswerten (ist es eine textdatei oder bild datei, oder gehört sie vllt. garnicht zum katalog) das weitere verfahren kann sich in vielen richtungen gestalten ^^ ... aber das wesentliche solltes du nun ja haben

:new Hallo zusammen, ich hab da nen Problem, was mich nun schon einige tage gekostet hat, und ich dennoch nicht weiterkomme. es ist durchaus möglich, dass das, was ich machen möchte so garnicht zu realisieren ist, dann bitte ich um entsprechende alternativen. Ziel ist es, eine Insel-Lösung zu schaffen, in der Daten aus "Genehmigungen" gesammelt werden. Ich weiß, dass dies ein klassischer Fall für Access ist, jedoch besitzt hier nicht jeder eine Access - Version auf dem Rechner, und das soll sich auch nicht ändern. Also habe ich mir Excel als Datensammlung geschnappt. In Excel hab ich nun div. Arbeitsblätter mit div. Daten. Ein Datensatz besteht aus 10 Elemente, die nun in ein "Karteiblatt" ausgedruckt werden sollen. Hierzu habe ich probeweise unter Word ein "Vordruck" entworfen: Sub Makro1() ' ' Makro1 Makro ' Neues Dokument vorbereiten mit Textmarken und Überschriften für Karteiblatt ' Documents.Add DocumentType:=0 Application.Move Left:=-2, Top:=373 Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(11.11 _ ), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces Application.Move Left:=26, Top:=111 Selection.Font.Bold = wdToggle Selection.TypeText Text:="Gemeinde" & vbTab & "Antragsteller" Selection.TypeParagraph With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="Gemeinde" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.TypeText Text:=vbTab With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="Antragsteller" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="Gemarkung:" & vbTab & "Aktenzeichen:" Selection.TypeParagraph With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="Gemarkung" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.TypeText Text:=vbTab With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="Aktenzeichen" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="Gebiet:" & vbTab & "Ablage:" Selection.TypeParagraph With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="Gebiet" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.TypeText Text:=vbTab With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="Ablage" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="Erlaubnis von:" & vbTab & "Erlaubnis bis:" Selection.TypeParagraph With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="Datum_von" .DefaultSorting = wdSortByName .ShowHidden = False End With Selection.TypeText Text:=vbTab With ActiveDocument.Bookmarks .Add Range:=Selection.Range, Name:="Datum_bis" .DefaultSorting = wdSortByName .ShowHidden = False End With . . . . . End Sub Das haut auch super hin :bimei nun kann ich im Direktfenster: oWord.Selection.ParagraphFormat.TabStops.Add Position:=CentimetersToPoints(11.11 _ ), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces oder auch: oword.selection.GoTo what:=wdGoToBookmark, name:="Gemeinde" eingeben und es wird alles richtig ausgeführt (also der Tab wird richtig gesetzt, und auch der Sprung zu Textmarke gelingt). Wenn ich dieses nun im Quellcode integriere bekomme ich immer den Laufzeitfehler: "438" mit der Beschreibung: "Objekt unterstützt diese Eigenschaft oder Methode nicht" zur Deklaration: Ich habe es auf verschiedene Weisen versucht :/ Option Explicit Dim oWord As Object Dim oText As Object Dim bWordVorhanden As Boolean und in der Prozedur habe ich es dann nochmals als Applikation gesetzt (aber auch ohne versucht) Vll. hat ja jemand sowas in der Art für sich schon mal gelöst, und kann mir nun dabei helfen ... Eine andere Alternative die ich versucht habe ist, dieses "Karteiblatt" mit Hilfe von Excel zu erstellen, jedoch tut sich eine fürchterliche Eigenschaft von Excel hier auf. Damit ich einen mehrzeiligen Text hinterher auch als mehrzeiligen Text auf's Papier bekomme wollte ich die Spalten in einer Zeile zusammenfügen (Merge), und diese dann als mehrzeiliges Textfeld verwenden, jedoch scheitert es daran, dass Excel das "AutoFit" auf verbundene Zellen nicht anwenden kann :/ Nun müßte ich ja, um zu wissen, wie groß die Zelle werden muß (also Höhe), alle Chr(13) und Chr(10) abfangen, sowie die Anzahl der Zeichen, um dann daraus zu errechnen, wieviele Zeilen das ergibt, um dadraufhin dann die Höhe der Zeile einzustellen. Vllt. ist dies ja sogar anders möglich ... Das sind halt die zwei Ansätze zur Lösung meines Problems, wo jedoch keine der beiden so wirklich richtig funtzt Thx a lot for help

Eigentlich sollte es ein EDIT ergeben, aber das war dem relogin nicht möglich :/ ich hab dann doch noch was suchen müssen um meine aufgabe zu lösen, bin dabei auch noch auf eine möglich gestossen, die du besser anwenden kannst, vorraussetzung sind aber VBA kenntnisse Man kann Excel aus Word, und umgekehrt über ein Objekt fernsteuern Zur Bildung gibt es verschieden Art und Weisen, was jedoch alle gleich haben ist, dass dm aus word bestimmte zellen in excel ansprechen kann, und dort dann markierten text einfügen. Auch der Inhalt von Textboxen ist so in excel einzufügen

Hallo Mada, ich habe grad so ein ähnliches Problem Nur im gegensatz zu Dir besitze ich Programmierfähigkeiten, die mir hier weiterhelfen. Man kann in Excel unter VBA das Worddokument ansprechen als Objekt. Das habe ich grade mal mit einem Makro rausgefunden. Du kannst es ja auch mal mit einem Makro versuchen, denn das ist es ja, was du machen willst. starte excel, starte word mache deine eingaben in dem word dokument und speicher es ab wechsel zu excel aktiviere hier über EXTRAS - MACRO die macroaufzeichnung dann EINFÜGEN - OBJEKT - Reiter:"AUS DATEI ERSTELLEN" - Durchsuchen (rest sollte klar sein) keine haken in "Verknüpfen" und "Als Symbol" nun wird dir ein Rahmen im Excel angezeigt Rechte Maustaste auf dem Rahmen öffnet das Optionsmenue BEARBEITEN ermöglichte es nun, in dem word dokument sich frei zu bewegen (man ist auch im word ^^) hier mußt du nun die 1. stelle, die kopiert werden soll makieren, und dann mit copy paste in excel kopieren. Ich denke mal, du hast dort in word ein wordformular mit feldern aufgebaut. versuche mal diese felder anzusprechen um sie selektiv zu erreichen. soweit habe ich es nicht getestet ... ^^ da ich es für mich nicht benötige