|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.04.2009 19:49:37 |
Diego |
|
|
|
16.04.2009 10:45:32 |
Holger |
|
|
|
16.04.2009 11:49:47 |
Diego |
|
|
 Aw:Aw:Aw:Spalten in einem anderen Datei löschen |
16.04.2009 15:58:38 |
Holger |
|
|
|
17.04.2009 02:07:19 |
Diego |
|
|
|
21.04.2009 20:22:17 |
Diego |
|
|
|
21.04.2009 20:19:56 |
Diego |
|
|
Von:
Holger |
Datum:
16.04.2009 15:58:38 |
Views:
1896 |
Rating:
|
Antwort:
|
Thema:
Aw:Aw:Aw:Spalten in einem anderen Datei löschen |
Hallo Diego,
ich gehe davon aus, dass
- das Workbook Archiv noch nicht geöffnet ist. Dann musst du den Pfad zur Arbeitsmappe ergänzen. Ansonsten setze vor pfad und workbooks.open je einen Apostroph und entferne ihn in der Zeile 'workbooks("Archiv.xls").activate,
- das Workbook Archiv nur ein Tabellenblatt hat, ansonsten solltest du den Apostroph vor sheets entfernen und den Tabellenblattname (wie auf dem Reiter) einfügen,
- die 140000 in der ersten Zeile stehen. Wenn es durchweg Zahlen oder Strings sind, kannst du den If-Befehl vereinfachen, weil du dann nicht nach beiden Möglichkeiten suchen musst.
Das geänderte Archiv wird automatisch gespeichert. Kopiere deine Datei vor dem ersten Versuch, um den alten Zustand wieder herstellen zu können.
Für größer und kleiner setze noch die üblichen Zeichen. Diese werden in der Forum-SW offenbar als Steuerzeichen benutzt und führen zu Übertragungsfehlern.
Sub Spalten_löschen()
pfad = "C:\...\Archiv.xls“
workbooks.open filename:=pfad
'workbooks("Archiv.xls").activate
‘sheets(“Tabellenblattname”).activate
for i = 1 To Cells(1, Columns.Count).End(xlToLeft).Column
If cells(1, i) kleinergrößer 140000 and cells(1, i) kleinergrößer "140000" then columns(i).delete
next i
activeworkbook.close savechanges:=true
end sub
Übrigens sollte SAP nicht bereits vor 7 Jahren in die Truppe kommen. Was zu dem Zeitpunkt erwartet wurde, war der Vertragsschluss zu Herkules mit dem Teilprojekt SASPF und die Gesellschaftsgründung für die IT der Bundeswehr. Soweit ich informiert bin, gab es dabei einige Verzögerungen. Die ersten Teile zum Zahlungswesen sollen seit März 2007 in Betrieb sein. Die Vollausstattung mit allen vorgesehenen Teilaufgaben ist erst bis ca. 2015 geplant.
Gruß
Holger
Diego schrieb am 16.04.2009 11:49:47:
Also die Spalten befinden sich in einem Tabellenblatt, und natürlich habe ich schon einen 'kleinen' Ansatz, bekomme aber immer einen Laufzeitfehler. Ich bin da wirklich nicht so begabt drin, leider befindet sich mein Lösungsansatz auf der Arbeit, ich habe gerade Urlaub deshalb kann ich ihn nicht posten.
Um noch etwas hinzuzufügen: Ich bin Grundwehrdienstleistender bei der Bundeswehr und da ich mich ein bißchen mit Excel und Makros auskenne (nicht wirklich gut aber immerhin besser als jeder Andere da) habe ich die Aufgabe kleine Programme zu entwerfen um der Dispositionsabteilung zu helfen. SAP sollte schon vor 7 Jahren kommen abere naja.. da kann man nichts machen. Deswegen wird jeder Eintrag per Hand in eine Excel Datei eingespeist und etwaige Sachen müssen per Hand geändert werden, sehr umständlich.
Da Excel 2000 nur 65k Spalten hat, kommt es manchmal vor, dass wenn ich das Archiv nach einem Objekt durchsuche es zu mehr als 65k kommt. Es enstehen bei der Suche viele Leerzeilen und sonstige unbrauchbare Spalten, die ich gerne herausfiltern würde. Leider habe ich keinen Schimmer davon. Ich hoffe ich konnte das Problem etwas beleuchten.
Danke und mfG
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
12.04.2009 19:49:37 |
Diego |
|
|
|
16.04.2009 10:45:32 |
Holger |
|
|
|
16.04.2009 11:49:47 |
Diego |
|
|
Aw:Aw:Aw:Spalten in einem anderen Datei löschen |
16.04.2009 15:58:38 |
Holger |
|
|
|
17.04.2009 02:07:19 |
Diego |
|
|
|
21.04.2009 20:22:17 |
Diego |
|
|
|
21.04.2009 20:19:56 |
Diego |
|
|