Goos

und wenn jemand noch die Theorie braucht zu einfach und doppelt verketteten Listen, dann kann er mal hier schaun Verkettete Listen Goos

Hab dir mal n kleines Beispiel gemailt Goos

Ja aber ich hab halt auch kein Beispiel ...das Beispiel hast wohl du als Aufgabe gestellt bekommen. Mir faellt da auf die schnelle leider auch nix zu ein. Goos

Wie waers denn, wenn wir es andersrum machen? Einfach irgendein Beispiel ist wohl schwierig Du koenntest ja mal die Aufgabe Posten die du gestellt bekommen hast, oder zumindest einen Teil davon, oder alternativ kannst doch auch einfach mal versuchen die Aufgabe zu lösen und dich dann hier wieder melden, wenns irgendwo haengt. Goos

Na du bist lustig Du schreibst hier zwar was, aber eigentlich hast du keine wirkliche Frage gestellt. Also ueberleg dir doch mal ob du irgendwas genaues wissen willst. Auf deine bisherige Frage kannst ja hoechstens Antworten wie ja und nein bekommen, aber das hilft dir wohl nicht weiter Goos

Also gerade fuer den Einstieg und Excel wuerd ich das Buch "Excel 2000 programmieren" von Michael Kofler empfehlen. Die ersten paar Kapitel gehoeren zwar meiner Meinung nach getauscht, aber ich druecke trotzdem jedem der VBA lernen will zuerst mal das Buch in die Hand Es ist ein recht umfassendes Werk in dem man bezueglich Excel und VBA alle Grundlagen erlernen kann. Goos

Das kommt auch n bissl drauf an, mit welcher Office Anwendung du VBA lernen willst. Goos

na ich meinte ja auch nicht vorher konvertieren, sondern zur Laufzeit, aber auf dem Server is wohl kein Word drauf nehm ich mal an....von daher scheidet meine Variante dann aus und du musst dich wohl doch in das schoene Dateiformat einarbeiten. Goos

Hmmm Hardwarebeschleunigung.....mich wuerd mal interessieren, was das sein soll?!? Ist es vielleicht der Wert mit dem ein Rechner beschleunigt, zu dem Zeitpunkt da der veraergerter User ihn gerade aus dem Fenster fallen laesst?....in dem Fall waer die Hardwarebeschleunigung dann 9,81 m/s*s ...wenn ich mich recht erinnere Also gut....ich weiss nicht was man sich unter dieser Hardwarebeschleunigung vorstellt. Goos

Hehehe....naja ich glaub, da ists aber doch etwas schneller mit Hilfe von Word konvertiert, als dass man sich in das wunderschoene Format einarbeitet Goos

Hmmm Seriennummer von der CPU gibts aber in der Registry keine oder? Goos

Hi, also die HD Seriennummer kannste ueber GetVolumeInformation bekommen, aber mehr weiss ich nu grad so auf die schnelle auch nicht.......ich glaub aber vor allem mit der CPU SN wirds etwas schwieriger.....konnte man die nicht abschalten oder so? Goos

Hoi, also ich wuerd mal vom Gefuehl her sagen, dass du um ein konvertieren in ein normales text Format nicht herumkommst. Goos

Dann versuchs mal mit Sub Auto_Open() MeinFormular.Show End Sub[/PHP] das schreibste halt in irgendein Modul rein und schon sollte es klappen Goos

Ach und ich dacht mir grad...hmmm vielleicht hab ich ja auch gar nich geholfen...ich bin mal in meinem Wahn von ner MFC Nutzung ausgegangen *g* Vielleicht machsts aber auch ohne, oder wer weiss....manche Leute benutzen Geruechten zufolge auch Borland oder so Naja entweder lag ich richtig mit MFC dann kannsts mal wie gesagt versuchen, ansonsten gib halt nochmal Bescheid. Aber nu ist erstmal Mittag *prost* :OD Goos

Also mal so auf die schnelle, weil du ja keine Zeit hast...zu Frage 2 wuerd ich sagen, dass es in der WIN32_FIND_DATA Struktur ein FILE_ATTRIBUTE_DIRECTORY Attribut gibt Und zu Frage 1 wegen den HANDLES von den ID`s ableiten. Naja du kannst per GetDlgItem(ID) nen Pointer auf deine Statusleiste oder was auch immer fuer ein Steuerelement holen und da hast ja dann ein m_hWnd Member. Ich hoffe dir laeuft die Zeit nicht weg Goos

Hoi Jo Tabellenname is wie der Name schon sagt der Tabellenname In nem neuen Workbook halt standardmaessig Tabelle1. Du kannst aber auch anstelle von Sheets("Tabelle1") nur Sheets(1) schreiben, aber das is nicht so sicher, das nimmt dann halt das erste Sheet, aber das muss ja nicht immer Tabelle1 sein. Und hmmmm..... du willst also bei Cells die Spalte L angeben? Jetzt auf das Beispiel bezogen, oder allgemein? Allgemein gibts dann Columns, du brauchst also nicht Cells verweden. In unserem Beispiel aber mit Cells(Y,X) also nicht Cells(X,Y) *g* ( ja is idiotisch, aber ist halt so) da waere die Spalte "L" Cells(a,12) wenn wir mal davon ausgehen, dass L der 12. Buchstabe im Alphabet ist. Also schoenen Tag noch Goos

Mal ne dumme Frage von mir......also für den Fall dass ich dich richtig verstehe würdest du dann Zellen ausblenden und haettest somit lauter Löcher in deinem Sheet??? .....oder wie is das gemeint mit dem Ausblenden? ...also Löchem machen kannst sicherlich nicht Goos

Naja möglich is halt sehr dehnbar würd ich sagen. Es ist mir ja auch möglich hier zu behaupten, dass der Kanzler gefärbte Haare hat :eek: ......ob der dann natürlich was dagegen hat und auch was dagegen unternimmt ist ja wieder was anderes. Hmmmm naja gut ich hab nichts über seine Haare gesagt (......aber es wäre möglich gewesen das zu tun *g*) Goos

1. Wir alle doof 2. Haettest ja auch gleich sagen koennen, was du willst 3. Man könnte dann ja ... Private Sub test() For a = 1 To 3000 Sheets("Tabelle1").Cells(a, 6) = "bla1" + Sheets("Tabelle1").Cells(a, 3) + "bla2" Next a End Sub [/PHP] Is doch irgendwie schon kuerzer geworden oder? Bye Goos

Hmmmm du hast aber nicht das ganze Script gepostet. In Welcher Application hast das Script denn drin? (Waer vielleicht auch hilfreich, das zu wissen) ....und wieso sollte da eigentlich n Compiler meckern ? Goos

Hallöchen auch von mir TschiTschi ...ich bin ja schonmal sehr gespannt, was sich in diesem Forum so ergeben wird. Goos

Mich wuerde aber doch sehr interessieren, ob es da nicht irgendwas ganz einfaches zum Thema blinken gibt, also falls jemand ne Moeglichkeit hat bitte melden, ich koennt das naemlich ganz gut brauchen Goos

Hihihi...ich glaub du hast recht...du peilst est nicht *g* Alsoooo bei text1 = Sheets("Tablestyle").Cells(c, 2) beschwert er sich insofern es ein Blatt mit dem Namen Tablestyle gibt nur dann, wenn c keine integer variable ist, oder in c halt nix passendes drinsteht. Cells(y,x) erfordert halt zwei ZAHLEN ...mit Spaltenbezeichnungen wie A, B, C is da halt nich. Wie jetzt du willst immer den gleichen Text dazwischen machen? Ich dachte der Text der dazwischen soll steht in Spalte C und is vondaher immer unterschiedlich. Fuer meinsuchtext "styleblack" zu setzen is aber auch nich sinnvoll, weils halt so gemacht ist, dass der "meinsuchtext" der text ist, der ersetzt wird. Also waer das dann bei spalte C "blabla" und spalte F "teststyleblacknochwas" am ende in Zeile F ein "testblablanochwas" Ansich ging ich ja davon aus, dass du zwischen "DD DD" was dazwischensetzen willst.....in dem Fall waer dann der entsprechende suchtext " ", also das Leerzeichen zwischen den D`s Vielleicht solltest mal posten, was in C steht und zu anfang in F und dann auch, was danach in F stehen soll, dann wirds vielleicht etwas verstaendlicher fuer mich Bye Goos

Na dann also nochmal von vorne mit Kommentaren Wenn deine Blatt Tablestyle heisst, dann musst anstelle von text1 = Sheets(Tablestyle).Cells(c, 2) text1 = Sheets("Tablestyle").Cells(c, 2) nehmen denk ich und Cells(c,2) is auch nicht Zelle C2 Cells(y,x) is die Sytnax, also erst reihe und dann spalte angeben, somit waere dann Zelle C2 Cells(2,3) (Zweite Reihe, Dritte Spalte) Private Sub test() Dim text1 As String Dim text2 As String Dim text21 As String Dim text22 As String Dim meinsuchtext As String Dim n As Integer meinsuchtext = "suchtext" ' hier muss in suchtext rein, also wenn du Style und black in F stehen hasst dann " ", insofern zwischen den beiden ein Leerzeichen ist For a = 1 To 3000 ' hier gibst die Anzahl deiner reihen an, also 3000 oder so text1 = Sheets("Tabelle1").Cells(a, 2) text2 = Sheets("Tabelle1").Cells(a, 3) n = InStr(1, text2, meinsuchtext, 1) If n > 0 Then text21 = Left(text2, n - 1) text22 = Mid(text2, n + Len(meinsuchtext), Len(text2) - n) Sheets("Tabelle1").Cells(a, 3) = text21 + text1 + text22 Sheets("Tabelle1").Cells(a, 2) = "" End If Next a End Sub [/PHP] Wenn du aber immer Style black dazuhaben willst, dann gehts ansich schon auch einfacher Goos