Suchergebnisse
Suchergebnisse 1-10 von insgesamt 10.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
-
VB.NET-Quellcode (5 Zeilen)
-
Zitat von Engelchen: „soll ich das löschen? und was heißt intersect? das hab ich gar nicht deklariert.“ Stimmt Doppelt deklarieren brauchst du nicht. Entweder unten das Dim entfernen oder oben die Zeile Dim row1, row2 As Integer löschen. Intersect kannst du durch MyExcel.Intersect ersetzen.
-
Zitat von Engelchen: „wk1.UsedRange“wk1.Sheets(1).UsedRange Bei deiner Art zu adressieren kann man da schon mal durcheinander kommen. Aber wenn du versuchst, das Objektmodell zu verstehen, sollte das offensichtlich sein, welche Property in welchem Objekt enthalten ist. Ich schreibe das alles aus dem Kopf und will eigentlich nur Ansatzpunkte liefern, da kann so was schon mal durchgehen. Sorry.
-
Zitat von Engelchen: „MyExcel.SaveAs("\\A_B_C_" + StartDatum + "_" + EndDatum + ".xlsx")“SaveAs sollte man in deinem Fall auf das Workbook anwenden.VB.NET-Quellcode (1 Zeile) Für die Eingabe von Start- und EndeDatum würde ich keine InputBox nehmen, sondern einen DateTimePicker und dann dessen Ergebnis mit ToString in einen String verwandeln. Sonst hast du am Ende alles mögliche drin stehen, nur kein Datum.
-
Versuche, das Excel-Objektmodell zu verstehen. MyExcel ist die Application Eine Application hat Workbooks geöffnet wk2 ist bei dir das Workbook Darin hat es Sheets und in den Sheets hat es Ranges. Speichern willst du das Workbook und nicht die Anwendung (obwohl die Anwendung dummerweise das gerade aktive Workbook als Default verwendet und es unter bestimmten Voraussetzungen deshalb sogar funktionieren könnte). Deine Adressierung über die Application MyExcel.Range("A:AZ").Replace(("Keine Eintragu…
-
Da ist ja schon wieder alles über die Application (MyExcel) adressiert. VB.NET-Quellcode (3 Zeilen)Zitat von Engelchen: „Und was ist aus der DatePicker Sache geworden?“Die Frage geht an dich. Ich sehe in deinem Code nichts davon.
-
In Zeile 28 hast du doch schon das Workbook, das du brauchst. Zeilen 29-35 sind doch völlig überflüssig und kannst du löschen. Mach danach weiter mit Dim ws = wk2.Sheets(1) und dieses Worksheetobjekt verwendest du als Basisobjekt für den Rest. ws.Range("D:D").Replace("Startdatum im Format JJJJMMTT", StartDatum) usw.
-
Zitat von Engelchen: „0x80010108 (RPC_E_DISCONNECTED)“So was könnte passieren, wenn du mit der Application arbeitest anstatt mit den darunterliegenden Workbooks. Zeig mal deinen Code und beschreibe in welcher Zeile der Fehler auftaucht.
-
Zitat von Engelchen: „wk2.Close() Dim ws = wk2.Sheets(1)“Naja, wenn du das Workbook schließt, brauchst du dich nicht zu wundern, wenn die darin enthaltenen Worksheets nicht mehr ansprechbar sind. Edit: OK, too late, wurde in Post #47 schon angesprochen.
-
Zitat von Engelchen: „Ich glaube es liegt daran, dass die wk2.SaveAs(path3) nicht silent“Setze vor dem Speichern MyExcel.DisplayAlerts = False und danach wieder auf True. Zitat von Engelchen: „Das N Case sensitive mache?“Replace hat einen Parameter MatchCase.