Paulus2408

Hi Leute! Ich habe da ein kleines Problem: Ich habe eine Tabelle in der in Spalte A die Zellen fortlaufend von 1 - 10 nummeriert sind. Sie sollen später verschiedenen Warengruppen entsprechen. Ich habe hinter der Zahl4 einen CommandButton, nach dessen Betätigung unterhalb von Zeile4 eine neue Zeile erstellt werden soll. Hier sollen dann Eintragungen zu einem Produkt gemacht werden, das zu dieser Warengurppe gehört. Ich erzeuge automatisch einen Hyperlink in der neuen Zeile zu einer anderen xls-Datei, sowie einen Button, der dazu dienen soll die eben erstellte Zeile samt Button wieder entfernen zu können. Wie kann ich das realisieren unter anbetracht der Tatsache, dass die Position der Zeile sich ändert, sobald ich in einer der Warengruppen darüber einen neuen Eintrag mache? Anbei mein bisheriger Code: Private Sub CommandButton1_Click() Dim lngZeile As Long Dim lngZeileNeu As Long Dim rngA As Range Dim shpNeu As Shape lngZeile = Cells(Rows.Count, 1).End(xlUp).Row Do Until Cells(lngZeile, 1) = "4" lngZeile = lngZeile - 1 Loop lngZeileNeu = lngZeile + 1 Rows(lngZeileNeu).Insert xlShiftDown ActiveSheet.Hyperlinks.Add Anchor:=Cells(lngZeileNeu, 2), Address:="105.xls", TextToDisplay:="LINK" Cells(lngZeileNeu, 2).Font.ColorIndex = 0 Cells(lngZeileNeu, 2).Font.Underline = xlUnderlineStyleNone Set rngA = Cells(lngZeileNeu, 1) 'Entweder: 'ActiveSheet.OLEObjects.Add ClassType:="Forms.CommandButton.1", Link:=False, _ DisplayAsIcon:=False, Left:=rngA.Left + 50, Top:=rngA.Top, Width:=10, _ Height:=10 ' oder Besser: Set shpNeu = ActiveSheet.Shapes.AddFormControl(xlButtonControl, rngA.Left + 50, rngA.Top + 2, 10, 10) shpNeu.TextFrame.Characters.Caption = "" 'Oder: "irgendwas" ' shpNeu.OnAction = "MeinMacroXX" shpNeu.Placement = xlMoveAndSize DoEvents End Sub Kann ich dem OnAction-Parameter auch eine Sub samt Übergabeparameter hinzufügen? Wenn ja, wie? Würde dann jeder neu erstellten Zeile eine eigene ID geben(versteckt in die Zeile eintragen), über die dann schonmal die Zeile gelöscht werden könnte, wenn ich sie als Übergabeparameter an die Sub übergeben könnte! Wie könnte ich dann auch noch den Button löschen? Ich werde die Datei auch in den Anhang packen. Für Rückfragen stehe ich gerne zur Verfügung! Mit freundlichem Gruß Paulus2408 test.rar

Hi Leute! Ich habe in meiner Tabelle einen Commandbutton! In der Tabelle stehen in den Zeilen der Spalte A Ziffern von 1 bis 6! Wenn er gedrückt wird erzeugt er eine neue Zeile unterhalb der zeile mit dem Eintrag "4". In dieser neuen Zeile wird dann ein Link zu einer Datei angelegt und ein CommandButton erzeugt. Hier ist der Code: Private Sub CommandButton1_Click() Dim i As Long Dim temp As Long i = Cells(Rows.Count, 1).End(xlUp).Row Do Until Cells(i, 1) = "4" i = i - 1 Loop temp = i + 1 Rows(temp).Insert (xlShiftDown) Range("B" & temp).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="105.xls", TextToDisplay:="LINK" Selection.Font.ColorIndex = 0 Selection.Font.Underline = xlUnderlineStyleNone Set a = Range("A" & temp) With ActiveSheet.OLEObjects.Add(ClassType:="Forms.CommandButton.1", Link:=False, _ DisplayAsIcon:=False, Left:=a.Left + 50, Top:=a.Top, Width:=10, _ Height:=10).Object End With End Sub Aus mir nicht erklärlichen Gründen werden, sowohl der Button als auch der Hyperlink, nur bei jedem zweiten Aufruf erzeugt! Kann mir da mal jemand helfen? Danke Mit freundlichem Gruß Paulus2408

Hi Leute! Ich habe folgendes Problem. Ich habe eine Exceldatei in der viele verschiedene Produkte den jeweiligen Warengruppen zugeordnet werden sollen. Die Datei enthält zu Anfang nur die Auflistung der einzelnen Warengruppen. Hinter jeder Warengruppe befindet sich ein Button. Klickt man auf einen dieser Buttons wird unterhalb der Warengruppe eine neue Zeile eingefügt, in die die Daten zu dem jeweiligen Produkt eingegeben werden können! Bei einem weiteren Klick auf den Button der Warengruppe soll eine weitere Zeile unterhalb der letzten Zeile dieser Warengruppe eingefügt werden. Bin damit momentan ein wenig überfordert. kann mir jemand dabei vielleicht auf dei Sprünge helfen. habe mit VBA schon länger nichts mehr gemacht. Wäre Euch sehr dankbar!!! Mit freundlichem Gruß Paulus2408

Ich bins nochmal! Leider klappt das doch nicht! wenn ich z.B. 001 wie oben beschrieben um 1 erhöhe erhalte ich nicht 002 sondern 2. Wär nett, wenn mir einer von Euch helfen könnte!

Danke!!! Ich dachte ich müsste den String erst irgendwie splitten, die Zahl bearbeiten, und dann die Substrings wieder zusammenfügen! manchmal ist es einfacher als man denkt

Hi! Habe da mal ne Frage: Ich habe nen String (001 oder 053 - auf jeden Fall mit vorgestellten Nullen) und soll die Zahl um einen erhöhen. Ist wahrscheinlich total simple, allerdings bin ich Anfänger und noch nicht fündig geworden! Wär echt nett, wenn mir jemand helfen könnte. Kann mir außerdem noch nen guten DB-Editor empfehlen? Der von Eclipse ist einfach nur Sche....! (oder ich zu blöd ) Der schmiert beim Filtern der Datensätze(25.000) total ab. Schonmal Danke vorab! Paulus2408

Hi! Habe hier ein Beispiel bezüglich des Auslesens einer CSV-Datei, bei der die Strings mit einem ; getrennt sind. Kann Dir allerdings nicht sagen, ob das wirklich schnell ist. Außerdem lese ich die Datei zeilenweise aus und verarbeite die Strings (Tokens[]) anschließend. Falls ein Feld zwischen den Trennzeichen nicht gefüllt ist(Beispiel: 1;2;;4;5) wird es auf den Wert "null" gesetzt(hier: 1 2 null 4 5). Naja, vielleicht kannst Du damit ja trotzdem etwas anfangen! CODE: lBufferedReader = new BufferedReader(new FileReader(lFile)); lBufferedReader.readLine(); //Falls du keine Header in der CSV-Datei hast //kannst du diese Zeile löschen while((lLine = lBufferedReader.readLine()) != null) { StringTokenizer lTokenizer = new StringTokenizer(lLine, ";", true); String lTemp = null; String prevTemp = ";"; String Tokens[] = new String[100]; int stcount = 0; while(lTokenizer.hasMoreTokens()) { lTemp = lTokenizer.nextToken(); //Auslesen einer CSV-Datei unter Berücksichtigung von leeren Feldern // -> z.B 1;2;;4 if(lTemp.equals(prevTemp)) { Tokens[stcount] = "null"; prevTemp = ";"; stcount++; } else{ if(lTemp.equals(";")) { prevTemp = ";"; }else{ Tokens[stcount] = lTemp; prevTemp = lTemp; stcount++; } } } if(prevTemp.equals(";")) { Tokens[stcount] = "null"; stcount++; } //Verarbeite Stringarray Tokens[] für die jeweilige Zeile doSomething(Tokens); } lBufferedReader.close();

Danke Leute!!! Habe es folgendermaßen hinbekommen: String sDatumMinusInterval = ""; int interval = -14; Calendar myCal = new GregorianCalendar(); myCal.setTime(new Date()); myCal.add(Calendar.DAY_OF_MONTH, interval); SimpleDateFormat df = new SimpleDateFormat("yyyy-MM-dd"); sDatumMinusInterval = df.format(myCal.getTime()).toString();

Hi Leute, ich habe folgende Frage: Ich soll von einem Datum das Datum von vor zwei Wochen berechnen(natürlich über die Monatsgrenzen hinaus!). Wenn ich also das Datum 09.03.2007 habe soll ich hinterher 23.02.2007 bekommen! Hat jemand ´ne Idee? Schonmal Danke im voraus