LoCal

OMG. Sorry, aber das ist nun wirklich albern. Du kommt hier rein und erzählst, dass Du deinen Job verloren hast, ein anderer AG dich aufgenommen hat und du nun da aber weg willst, weil - du 100 Euro weniger verdienst als Du dir vorgestellt hast (wieviel kriegst du nun eigentlich?) - du kein Diensthandy bekommst. (was sind deine Aufgaben?) - du mit einem "Behinderten" zusammenarbeiten musst. (Sorry... dafür gibt es keine "Entschuldigung" .. das ist einfach dumm!) Und dann willst Du wissen, ob du deine eventuellen neuen AGs anlügen sollst oder nicht... OMG OMG OMG. Denk doch bitte mal nach... Ok, ok, ich helf dir beim denken. Also, Du sagst deinen potentiellen neuen AG, dass du arbeitslos bist und er stellst dich ein... und spätestens wenn aller Papierkram für ihn erledigt ist, wird er rauskriegen, dass Du vorher NICHT arbeitslos warst...... 3x darfst Du raten was dann passiert.

Ja, der Chef könnte Dir seine unehelichen Kinder mit der Sekretärin verschwiegen haben. Junge, Du hast deinen Job verloren und hast scheinbar sehr schnell einen neuen bekommen. Und die "ca. 100 EUR netto unter deinen Anforderungen" sind sicherlich immer noch mehr als Arbeitslosengeld. Würde mich mal interessieren wie viel du überhaupt bekommst, wie lange und was du überhaupt arbeiten musst.

hier ist dein schild Was zur Hölle beschwerst Du dich.. und was soll das sich über einen "behinderten Mitarbeiter" zu beschweren?

... kennt da jemand die Voraussetzungen? Ich meine natürlich zum Fachlehrer. Greetz, LoCal

Hallo, erstmal vielen Dank für die Antwort... aber ich bezog mich auf ein Java-Problem nicht auf ein RPG-Problem :-D Zahl holen, Zahl im Speicher halten und ohne Update weiter arbeiten kann ich leider nicht, da auch andere Programme mit dem Nummernkreis arbeiten. Und da es sich bei dem Feld um einen Schlüssel handelt sind doppelte Nummern zu vermeiden Also workaround ist mir folgende Lösung eingefallen. Ich kenne die Anzahl der Sätze, darum werde ich es einfach so machen: - laufende Nummer von Tab2 holen - laufende Nummer + Anzahl der Sätze + 1 - neue laufende Nummer schreiben Tab2 ist dann für die weitere Verarbeitung realtiv egal und ich habe halt meinen Nummern Pool. Allerdings sind Programmabbrüche nun tunlichst zu vermeiden.

Hallo, ich habe hier ein "kleines" Problem. Ich muss Daten in eine Tabelle (Tab1) eintragen, diese Daten müssen aber durch einen fortlaufenden Wert aus einer anderen Tabelle (Tab2) ergänzt werden, diese Tabelle befindet sich aber auch im Zugriff von anderen (RPG-)Programmen. Ablauf ist also wie folgt. - Lese Satz aus Datei - Bereite Daten für Insert in Tab1 auf - Hole laufende Nummer aus Tab2 - Update Tab2 mit laufende Nummer + 1 - Schreibe Daten in Tab 1 Das ganze wird gemacht bis alles Sätze aus der Datei eingestellt sind. Die Anzahl der Sätze schwankt zwischen 5000 und 20000. Nun habe ich das Problem, dass wenn ich die Verbindung für Tab2 offen halte, RPG-Programme auf MSGW laufen, weil die Tabelle gesperrt ist. Also probierte ich es auf die Weise, dass ich erst für den Update für Tab2 die DB-Verbindung aufbaue und dann nach dem Update wieder trenne. Performancemäßig sehr schlecht, aber wenigstens wurde der Betrieb nicht gestört... aber heute stellte sich dann ein zweites, viel grösseres Manko heraus: Die Maschine wird mit Datenbankserverjobs (QZDASOINIT) zu gemüllt. Kennt jemand vll eine Lösung? Danke schonmal.

Hallo, hat wer ne Ahnung, wie ich mysqldump mit nem SELECT mache? Oder eine ähnliche Ausgabe hinkriege? Ich muss hier einen Server "teilspiegeln" und wollte das via mysql-output machen, weil es in dem Fall hier am meisten für die Datensicherheit spricht, nur dürfen da halt nicht "alle" Daten rein. Thx, LoCal [EDIT] Hat sich erledigt.. habs noch mal die man-page angeschaut und -w gefunden :-D [/EDIT]

Hallo, ich habe hierzu -> http://www.microsoft.com/sql/reporting/techinfo/rdlspec.asp Ist angeblich ein "offener" Standard... wundert mich allerdings etwas, weil von ***. Kennt hier wer andere Standards die von Programmen wie CrystalReport u.ä. verarbeitet werden können? Mit dem ReportProgramm soll nicht selbst auf die DB zugegriffen werden, sondern es sollen nur "fertige" Daten verarbeitet werden. Danke, LoCal

Vielen Dank... ich glaube das hilft schonmal weiter, aber gibt es noch was wo die Spezifikationen genau aufgeführt sind?

Hallo, ich benötige dringend möglichst viel und gute Info über die Normen: EN 1047 und BS 7799 Hat irgendwas mit Datensicherheit udn Brandschutz zu tun. Vielen Dank, LoCal

xhtml = xml. Wenn ich den xhtml-header benutze, dann ist das ist die Tabelle leicht "verschoben". benutze ich den html header, dann sieht alles "normal" aus.

Hallo ich hab ein problem mit der xhtml datei unten. wenn ich es als normale html (also ohne xml, doctype usw) dann sieht die seite "normal" aus.. mit den xml-sachen aber sieht die datei zerstört aus. Das Problem tritt sicher unter Safari und mozilla (camino) auf... kann mir jemand helfen? thx. (der code is abgewandelt von phpsysinfo... nur damit ich mich nicht mit falschen federn schmücke!) <?xml version="1.0" encoding="UTF-8"?> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"><style type="text/css"> @import url(aq.css); </style><head><title>Fehlermeldung</title></head> <body background="images/bg.gif"> <br /> <center><h2>Fehlermeldung</h2></center> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="15" height="15" background="images/coinsupg.gif"><img src="images/space15_15.gif" width="15" height="15" alt="none" /></td> <td height="15" background="images/sup.gif"><img src="images/space15_15.gif" width="15" height="15" alt="none" /></td> <td width="15" height="15" background="images/coinsupd.gif"><img src="images/space15_15.gif" width="15" height="15" alt="none" /></td> </tr> <tr> <td width="15" background="images/g.gif"><img src="images/space15_15.gif" width="15" height="15" alt="none" /></td> <td background="images/fond.gif" align="left" width="100%"> <br /> <br /> <center> <h2>Achtung</h2><br /> <b>Es ist ein Fehler aufgetreten!</b><br /> </center> </td> <td /> </tr> <tr> <td width="15" height="15" background="images/coininfg.gif"><img src="images/space15_15.gif" width="15" height="15" alt="none" /></td> <td height="15" background="images/inf.gif"><img src="images/space15_15.gif" width="15" height="15" alt="none" /></td> <td width="15" height="15" background="images/coininfd.gif"><img src="images/space15_15.gif" width="15" height="15" alt="none" /></td> </tr> </table> </body> </html>

Hei Ich bin am Dienstag dran.. und suche schon die ganze Zeit nach Prüfungen.. wenn jemand welche für FI/AE hat bitte mail an: beos@gmx.ch Big thx

Danke... aber das hat mir lieder nix geholfen. Mein Problem ist das mit dem "Kind". Das mit dem parent funzt 100%. Aber bei child ist halt so, dass scheinbar der array irgendwie geleert wird. trotzdem Danke.

Hei Ich habe hier (doch) ein kleineres Problem. Die Quellen zu dem ganzen sind unten. Das wird eine art Baumstruktur. Wenn ich nun einen knoten habe, der Eltern hat, dann hol ich mir das "Elternteil" und setzte da mti addChild() ein Kind dazu. Sollte ja soweit funktionieren.. nur hier is das so, dass wenn ich ein weiteres Kind hinzufüge, dass die "alten" weg sind.. Also ich such jetzt schon ewig den Fehler.. findet jemand von euch was? Big thx. Peace, LoCal hier der Code: baumschule.php <?php //$CR="\n\r"; $CR="<br />"; //session_register("uid"); $uid=39; $first=true; include("../phpdb.php"); include("classes.php"); echo("<b>Chili:</b> Freust du dich auf die Tour mit dem neuen Straßenflitzer 2.8?".$CR. "<b>Bernd:</b> Lass mich überlegen - nein!".$CR.$CR.$CR); $rs = ibase_query($intranet, "SELECT * FROM favoriten_ordner WHERE UID=".$uid."ORDER BY ID"); while($row = ibase_fetch_object($rs)){ if(!$first) array_push($tree, new node); else $tree[0]=new node; echo($row->NAME." ".$row->ID."<br />"); $tree[count($tree)-1]->setID($row->ID); $tree[count($tree)-1]->setMID($row->MASTER); $tree[count($tree)-1]->setName($row->NAME); processActNode($tree, $tree[count($tree)-1], $first); $first=false; } function processActNode(&$tree, &$actnode, $first) { //echo("ID=".$actnode->getID()." Master=".$actnode->getMID()."<br />"); if(!$first) { $parent=findParent($tree, $actnode->getMID()); $actnode->setParent($parent); $parent->addChild($actnode); for($i=0;$i<$parent->getAmountOfChildren();$i++) { echo("Child->: ".$parent->getChild($i)." ..<br />"); } } } function findParent(&$tree, $mid) { for($i=0;$i<count($tree);$i++) { if($tree[$i]->getID()==$mid) return $tree[$i]; } } echo($CR."<table border=1>"); echo("<tr><td>Name: </td><td>ID: </td><td>Master: </td><td>AnzahlKinder: </td><td>Eltern: </td></tr>"); for($i=0;$i<count($tree);$i++) { echo("<tr><td>".$tree[$i]->getName()."</td><td> ".$tree[$i]->getID()."</td><td>".$tree[$i]->getMID()."</td><td>".$tree[$i]->getAmountOfChildren()." </td><td>".$tree[$i]->getParent()."</td></tr>"); } echo("</table>".$CR); ?> classes.php <?php class node { var $id=-1; var $mid=-1; var $parent; var $children; var $name; var $isLink=true; var $foo; function node() { $this->children=array(); $this->isLink=true; } function setId($id) { $this->id = $id; } function setMid($mid) { $this->mid = $mid; } function setParent(&$parent) { $this->parent = $parent; } function addChild(&$child) { echo("link: ".(int)$this->isLink."<br />"); // zum Test $this->isLink=false; //zum Test if(count($this->children)<=0)$this->children[0]=$child; else array_push($this->children,$child); } function setName($name) { $this->name = $name; } function setIsLink($isLink) { $this->isLink = $isLink; } function getID() { return $this->id; } function getMID(){ return $this->mid; } function getParent() { return $this->parent; } function getChildren() { return $this->children; } function getAmountOfChildren() { return count($this->children); } function getChild($i) { return $this->children[$i]; } function getName() { return $this->name; } function isLink() { return $this->isLink; } } ?>

Hei nochma.. hab den Fehler gefunden. array_push() fügt immer ein weiteres array-feld an.. auch wenn das erste NULL is.. Peace, LoCal

Hei Ich hab ein Prob. Also ich will für eine Ordnerverwaltung einen Baum aufbauen. Dazu hab ich mir ein Klasse node erstellt und diese würde ich nun gerne in ein Array stecken. Jedenfalls Klappt das füllen ja ganz gut, aber wenn ich mittels for-Schleife das ding auslesen will krieg ich einen Fehler: Fatal error: Call to a member function on a non-object in D:\wwwroot\edv2\favoritenverw\confav.php on line 24 Das kommt bei for($i=0;$i<count($tree);$i++) { echo($tree[$i]->getID()); } ?> wenn ich statt der variable $i einen festen wert einsetze.. also einen der auch sicher im array is, dann funtz alles bestens (selbst wenn es in der for-Schleife steht. wie gibt es dat? Danke schonmal im vorraus. Die Quellen kommen unten! die [i]phpdb.php[/i] is nicht "wichitg"! Peace, LoCal tree.php [code] <?php //$CR="\n\r"; $CR="<br>"; //session_register("uid"); $uid=39; $first=true; include("../phpdb.php"); include("classes.php"); echo("isch mach dat alles ma neu... weil isch will dat mit klassen und so machen"); $rs = ibase_query($intranet, "SELECT * FROM favoriten_ordner WHERE UID=".$uid."ORDER BY ID"); $tree[]=array(); while($row = ibase_fetch_object($rs)){ //$tree[count($tree)]=new node; array_push($tree, new node); $tree[count($tree)-1]->setID($row->ID); $tree[count($tree)-1]->setMID(null); //$tree[count($tree)-1]->setParent(null); } for($i=0;$i<count($tree);$i++) { echo($tree[$i]->getID()); } ?> [/code] classes.zip [code] <?php class node { var $id=-1; var $mid=-1; var $parent=""; var $childs; var $name=""; var $isLink=false; function setId($id) { $this->id = $id; } function setMid($mid) { $this->mid = $mid; } function setParent(&$parent) { $this->partent = $parent; } function addChild(&$child) { array_push($this->array,$child); } function setName($name) { $this->name = $name; } function setIsLink($isLink) { $this->isLink = $isLink; } function getID() { return $this->id; } function getMID(){ return $this->mid; } function getParent() { return $this->parent; } function getChild() { return $this->childs; } function getAmountOfChilds() { return count($childs); } function getName() { return $this->name; } function isLink() { return $this->isLink; } } ?>

Hei dat Prob is nun gelöst. Das komische war, dass er nun doch den von der CD genommen hat. Vorher war nämlich das Prob, dass wenn ich den Treiber von CD einspielen wollte Win2K gemeckert hat ich solle mich doch gefälligst als Admin anmelden... tja.. nur ich war als Admin drin.... Yo, aber dann beim x-ten versuch gings... einfach so... hmm... is schon krass. Was ich aber total krass finde is, dass die karte irgendwie "falsch" angezeigt wird. Also des is ja ne 9600 (keine Pro.. laut packung und bestellung!).. aber sowohl in Win98 also auch in Win2K wird 9600 Pro angezeigt. Naja... zum Glück habe ich nur eine Windummkiste Da hab ich so ärger net so oft Nochma danke für die Hilfe.. Peace, LoCal

Hei Ich hab mir ne Radeon 9600 gekauft und logischer Weise auch gleich in meinen PeeCee eingebaut. Auf der Kiste laufen BeOS, Win98, Win2K. Mit der Windowsseite hab ich ein dickes Prob, besser gesagt mit Win2K, denn unter 98 läufts super. Also ich installier die Karte und boote neu.. und jetzt kommst das Prob.. also der Bootscreen (der mit der weisse) erscheint.. und kurz vor dem anmeldescreen wird das ganze Bild weiss. Im Hintergrund rödelt der Compi ganz normal weiter. Manchmal komm ich auch bis ins System.. aber nach 10 sek wird der bildschirmschwarz.. also .. aber es sieht so aus als würde er einfach das schwarz von meinem hintergrund "vergößern". Kennt jemand das Prob? Big thx schonmal. Peace, LoCal

ärrmmm doch.... aber bitte nicht "IHR"... sondern son VBA-"Checker" hier... ich will mit dem ***-Zeugs nicht zutun haben ;D Is ja witzig.. scheinbar ist die Kurzschreibweise von Micro$oft n Schimpfwort für das FI-Forum... weil MplusDollarzeichen wird immer ausgestern

Das aus der Datenbank berechnen geht net, weil es beim excel noch ein blatt mit statischen daten gibt.. und da kommen teile für die formel her..also bezüge... mir wärs halt recht, wenn beim import von dem csv .. da stehen die formeln ja drin.. die erste vorkommende so nach unten kopiert werden könnte damit die bezüge passen..

also das project funzt so: Wir haben hier nen DB-Server, auf dem liegen so 100GB Daten. Mein Teil ist folgender: Application/Servlet erstellen, das -User-Rechte prüft (nicht jeder User darf alles sehen -User aus vorgefertigten Abfragen auswählen lässt -Erstellen der CSV dateien.. hat müssen halt ein ganz bestimmtes format haben, also am schluss die Formeln zur Berechung und so. -Ablegen der Dateien in einen bestimmten Ordner -Starten von Excel mit dem Makroaufruf.. so.. nun kommt das Makro vom Kollegen: -Einlesen der CSV-Daten -Aufbereitung der Daten für Pivot-tabelle -Pivot starten Das problem is, dass der VBA-progger halt sagt, dass ihc das mit den formeln machen soll... aber eigentlich isses für ihn halt wesentlich einfacher, denk ich ma.. zumindest.. Dazu sach ich ma nix zu

code teil 2 Set fso = CreateObject("Scripting.FileSystemObject") Set datei = fso.OpenTextFile("basis_1.csv", 1, False, 0) cnt = 0 cnt_sheet = 1 cnt_zelle = 2 Worksheets("ImportStatus").Range("C8").Value = "ARBEITE" Worksheets("ImportStatus").Range("C9").Value = Time zeile = datei.readline Do While datei.AtEndOfStream <> True zeile = datei.readline Rem MsgBox (GetPart(zeile, 1)) Zelle = "A" & cnt_zelle Worksheets("Basis_" & cnt_sheet).Range(Zelle).Value = zeile For cnt_spalte = 1 To 71 Step 1 i = InStr(zeile, ";") If i = 0 Then Exit For tmp = Left(zeile, i - 1) zeile = Right(zeile, Len(zeile) - i) Worksheets("Basis_" & cnt_sheet).Range(Spalte(cnt_spalte) & cnt_zelle).Value = tmp Next cnt_spalte Worksheets("Basis_" & cnt_sheet).Range("HI" & cnt_zelle).Select Rem Worksheets("Basis_" & cnt_sheet).Range("HJ" & cnt_zelle).Formula = "=WOCHENTAG(AK" & cnt_zelle & ")" If cnt_zelle = 65536 Then cnt_zelle = 2 cnt_sheet = cnt_sheet + 1 End If cnt_zelle = cnt_zelle + 1 cnt = cnt + 1 Worksheets("ImportStatus").Range("C5").Value = cnt Worksheets("ImportStatus").Range("C6").Value = "Basis_" & cnt_sheet Worksheets("ImportStatus").Range("C7").Value = cnt_zelle Loop Worksheets("ImportStatus").Range("C8").Value = "FERTIG" Worksheets("ImportStatus").Range("C10").Value = Time End Sub Sub FastImport() ' ' FastImport Makro ' Makro am 11.06.2003 von Michael Schmuck aufgezeichnet ' For t = 1 To 5 Step 1 Worksheets("Basis_" & t).Select Worksheets("Basis_" & t).Range("A1").Select With ActiveSheet.QueryTables.Add(Connection:= _ "TEXT;" & Application.ActiveWorkbook.Path & "\basis_" & t & ".csv", Destination _ :=Range("A1")) .Name = "basis_" & t .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .TextFilePromptOnRefresh = False .TextFilePlatform = xlWindows .TextFileStartRow = 1 .TextFileParseType = xlDelimited .TextFileTextQualifier = xlTextQualifierDoubleQuote .TextFileConsecutiveDelimiter = False .TextFileTabDelimiter = False .TextFileSemicolonDelimiter = False .TextFileCommaDelimiter = False .TextFileSpaceDelimiter = False .TextFileOtherDelimiter = "|" .Refresh BackgroundQuery:=False End With Next t End Sub aber ich kann dazu net viel sagen, weil ich voll in meinem zeitpaln hänge und mich deshalb net mit vba beschäfftigen kann

Hei Danke erstma Also ich progge das Excel nicht, ich darf hier ne anwendung proggern die n csv bereitstellt für ein das makro... jedenfalls müsste ich im csv die formeln erstellen was leicht kompiliziert werden würde.. weil sich das ganze über mehere tabellen verteilt und so und da is eine gescheite einhaltung der richtigen zeilennummern halt fehlergefährdeter als wenn excel das mal schön selbst macht.. jedenfalls hab ich den source mal dem vba progger hier gegeben und der meinte "geht nicht.. da krieg ich ne fehlermeldung Objekt oder Anwendungsfehler oder so"... reproduzieren wollte er es leider net. Jedenfalls dass hier ist sein makro.. das halt formeln nicht korrekt kopiert: Function Spalte(nr) If nr = 1 Then Spalte = "A" If nr = 2 Then Spalte = "B" If nr = 3 Then Spalte = "C" If nr = 4 Then Spalte = "D" If nr = 5 Then Spalte = "E" If nr = 6 Then Spalte = "F" If nr = 7 Then Spalte = "G" If nr = 8 Then Spalte = "H" If nr = 9 Then Spalte = "I" If nr = 10 Then Spalte = "J" If nr = 11 Then Spalte = "K" If nr = 12 Then Spalte = "L" If nr = 13 Then Spalte = "M" If nr = 14 Then Spalte = "N" If nr = 15 Then Spalte = "O" If nr = 16 Then Spalte = "P" If nr = 17 Then Spalte = "Q" If nr = 18 Then Spalte = "R" If nr = 19 Then Spalte = "S" If nr = 20 Then Spalte = "T" If nr = 21 Then Spalte = "U" If nr = 22 Then Spalte = "V" If nr = 23 Then Spalte = "W" If nr = 24 Then Spalte = "X" If nr = 25 Then Spalte = "Y" If nr = 26 Then Spalte = "Z" If nr = 27 Then Spalte = "AA" If nr = 28 Then Spalte = "AB" If nr = 29 Then Spalte = "AC" If nr = 30 Then Spalte = "AD" If nr = 31 Then Spalte = "AE" If nr = 32 Then Spalte = "AF" If nr = 33 Then Spalte = "AG" If nr = 34 Then Spalte = "AH" If nr = 35 Then Spalte = "AI" If nr = 36 Then Spalte = "AJ" If nr = 37 Then Spalte = "AK" If nr = 38 Then Spalte = "AL" If nr = 39 Then Spalte = "AM" If nr = 40 Then Spalte = "AN" If nr = 41 Then Spalte = "AO" If nr = 42 Then Spalte = "AP" If nr = 43 Then Spalte = "AQ" If nr = 44 Then Spalte = "AR" If nr = 45 Then Spalte = "AS" If nr = 46 Then Spalte = "AT" If nr = 47 Then Spalte = "AU" If nr = 48 Then Spalte = "AV" If nr = 49 Then Spalte = "AW" If nr = 50 Then Spalte = "AX" If nr = 51 Then Spalte = "AY" If nr = 52 Then Spalte = "AZ" If nr = 53 Then Spalte = "BA" If nr = 54 Then Spalte = "BC" If nr = 55 Then Spalte = "BD" If nr = 56 Then Spalte = "BE" If nr = 57 Then Spalte = "BF" If nr = 58 Then Spalte = "BG" If nr = 59 Then Spalte = "BH" If nr = 60 Then Spalte = "BI" If nr = 61 Then Spalte = "BJ" If nr = 62 Then Spalte = "BK" If nr = 63 Then Spalte = "BL" If nr = 64 Then Spalte = "BM" If nr = 65 Then Spalte = "BN" If nr = 66 Then Spalte = "BO" If nr = 67 Then Spalte = "BP" If nr = 68 Then Spalte = "BQ" If nr = 69 Then Spalte = "BR" If nr = 70 Then Spalte = "BS" If nr = 71 Then Spalte = "BT" If nr = 72 Then Spalte = "BU" If nr = 73 Then Spalte = "BV" If nr = 74 Then Spalte = "BW" If nr = 75 Then Spalte = "BX" If nr = 76 Then Spalte = "BY" If nr = 77 Then Spalte = "BZ" If nr > 77 Then Spalte = "CA" End Function Sub Basisdaten_Einlesen() ' ' Basisdaten_Einlesen Makro ' Makro am 10.06.2003 von Michael Schmuck aufgezeichnet ' ' Set conn = CreateObject("ADODB.Connection") Set rs = CreateObject("ADODB.Recordset") conn.Open "DSN=Pivot" rs.Open "select fir, ndl, ber, akdnr, aname1, aname2, astr, alkz, aplz, aort, aabc, ekdnr, ename1, ename2, estr, elkz, eplz, eort, fkdnr, fname1, flkz, fplz, fort, rel, skdnr, sname1, sort, idsnr, abord, ebord, alali, aroll, roll, aart, sart, sendnr, datum, fra, fratxt, fp, gp, vprest, sbanz, tgew, fgew, rgew, cbmk, cbms, lmk, lms, status, tkey1, tkey2, wawe, nn, ggvs, km, ums, rrsa, rrse, rrsx, uaabh, uazus, db1, db1pz, rgnr, rgdat, df005, df006, df007, df008 from pool limit 1000", conn cnt = 2 On Error Resume Next Do While Not (rs.EOF) Worksheets("Basis_1").Range("A" & cnt).Select Worksheets("Basis_1").Range("A" & cnt).Value = rs("fir") Worksheets("Basis_1").Range("B" & cnt).Value = rs("ndl") Worksheets("Basis_1").Range("C" & cnt).Value = rs("ber") Worksheets("Basis_1").Range("D" & cnt).Value = rs("akdnr") Worksheets("Basis_1").Range("E" & cnt).Value = rs("aname1") Worksheets("Basis_1").Range("F" & cnt).Value = rs("aname2") Worksheets("Basis_1").Range("G" & cnt).Value = rs("astr") Worksheets("Basis_1").Range("H" & cnt).Value = rs("alkz") Worksheets("Basis_1").Range("I" & cnt).Value = rs("aplz") Worksheets("Basis_1").Range("J" & cnt).Value = rs("aort") Worksheets("Basis_1").Range("K" & cnt).Value = rs("aabc") Worksheets("Basis_1").Range("L" & cnt).Value = rs("ekdnr") Worksheets("Basis_1").Range("M" & cnt).Value = rs("ename1") Worksheets("Basis_1").Range("N" & cnt).Value = rs("ename2") Worksheets("Basis_1").Range("O" & cnt).Value = rs("estr") Worksheets("Basis_1").Range("P" & cnt).Value = rs("elkz") Worksheets("Basis_1").Range("Q" & cnt).Value = rs("eplz") Worksheets("Basis_1").Range("R" & cnt).Value = rs("eort") Worksheets("Basis_1").Range("S" & cnt).Value = rs("fkdnr") Worksheets("Basis_1").Range("T" & cnt).Value = rs("fname1") Worksheets("Basis_1").Range("U" & cnt).Value = rs("flkz") Worksheets("Basis_1").Range("V" & cnt).Value = rs("fplz") Worksheets("Basis_1").Range("W" & cnt).Value = rs("fort") Worksheets("Basis_1").Range("X" & cnt).Value = rs("rel") Worksheets("Basis_1").Range("Y" & cnt).Value = rs("skdnr") Worksheets("Basis_1").Range("Z" & cnt).Value = rs("sname1") Worksheets("Basis_1").Range("AA" & cnt).Value = rs("sort") Worksheets("Basis_1").Range("AB" & cnt).Value = rs("idsnr") Worksheets("Basis_1").Range("AC" & cnt).Value = rs("abord") Worksheets("Basis_1").Range("AD" & cnt).Value = rs("ebord") Worksheets("Basis_1").Range("AE" & cnt).Value = rs("alali") Worksheets("Basis_1").Range("AF" & cnt).Value = rs("aroll") Worksheets("Basis_1").Range("AG" & cnt).Value = rs("roll") Worksheets("Basis_1").Range("AH" & cnt).Value = rs("aart") Worksheets("Basis_1").Range("AI" & cnt).Value = rs("sart") Worksheets("Basis_1").Range("AJ" & cnt).Value = rs("sendnr") Worksheets("Basis_1").Range("AK" & cnt).Value = rs("datum") Worksheets("Basis_1").Range("AL" & cnt).Value = rs("fra") Worksheets("Basis_1").Range("AM" & cnt).Value = rs("fratxt") Worksheets("Basis_1").Range("AN" & cnt).Value = rs("fp") Worksheets("Basis_1").Range("AO" & cnt).Value = rs("gp") Worksheets("Basis_1").Range("AP" & cnt).Value = rs("vprest") Worksheets("Basis_1").Range("AQ" & cnt).Value = rs("sbanz") Worksheets("Basis_1").Range("AR" & cnt).Value = rs("tgew") Worksheets("Basis_1").Range("AS" & cnt).Value = rs("fgew") Worksheets("Basis_1").Range("AT" & cnt).Value = rs("rgew") Worksheets("Basis_1").Range("AU" & cnt).Value = rs("cbmk") Worksheets("Basis_1").Range("AV" & cnt).Value = rs("cbms") Worksheets("Basis_1").Range("AW" & cnt).Value = rs("lmk") Worksheets("Basis_1").Range("AX" & cnt).Value = rs("lms") Worksheets("Basis_1").Range("AY" & cnt).Value = rs("status") Worksheets("Basis_1").Range("AZ" & cnt).Value = rs("tkey1") Worksheets("Basis_1").Range("BA" & cnt).Value = rs("tkey2") Worksheets("Basis_1").Range("BB" & cnt).Value = rs("wawe") Worksheets("Basis_1").Range("BC" & cnt).Value = rs("nn") Worksheets("Basis_1").Range("BD" & cnt).Value = rs("ggvs") Worksheets("Basis_1").Range("BE" & cnt).Value = rs("km") Worksheets("Basis_1").Range("BF" & cnt).Value = rs("ums") Worksheets("Basis_1").Range("BG" & cnt).Value = rs("rrsa") Worksheets("Basis_1").Range("BH" & cnt).Value = rs("rrse") Worksheets("Basis_1").Range("BI" & cnt).Value = rs("rrsx") Worksheets("Basis_1").Range("BJ" & cnt).Value = rs("uaabh") Worksheets("Basis_1").Range("BK" & cnt).Value = rs("uazus") Worksheets("Basis_1").Range("BL" & cnt).Value = rs("db1") Worksheets("Basis_1").Range("BM" & cnt).Value = rs("db1pz") Worksheets("Basis_1").Range("BN" & cnt).Value = rs("rgnr") Worksheets("Basis_1").Range("BO" & cnt).Value = rs("rgdat") Worksheets("Basis_1").Range("BP" & cnt).Value = rs("df005") Worksheets("Basis_1").Range("BQ" & cnt).Value = rs("df006") Worksheets("Basis_1").Range("BR" & cnt).Value = rs("df007") Worksheets("Basis_1").Range("BS" & cnt).Value = rs("df008") cnt = cnt + 1 rs.movenext Loop Exit Sub ende teil 1 (10000 zeichen begrenzung)

Hei Ich hab ne Frage zu Excel und Makros... muss aber vorher gestehen, dass ich eigentlich null und nix mit Excel zutun hab, weil is eigentlich nicht mein gebiet.. aber für ein Projekt brauch ich halt n makro... ok genug vorgelabert Also is es möglich, wenn zum beispiel in der Tabelle folgendes steht: ------------------------------------------------ | A | B | C | ------------------------------------------------ | 1 | 2 | =SUM(a1,b1) | ------------------------------------------------ | 8 | 3 | | ------------------------------------------------ kann mensch dann die formel aus C so in die unteren Zeilen kopieren damit jede auf die richtige zeile verweist? Also in Zeile 2 steht dann =SUM(a2,b2), in der dritten =SUM(a3,b3) und so weiter und sofort... jedenfalls soll das kopieren halt von nem makro erledigt werden... funzt das? Wäre echt chillig Big thx