Office: Debug-Fehlermeldung bei cells-Eigenschaft

Hallo,
Ich nutze in einer Anwendung folgende Befehlsfolge:

With ActiveWorkbook.Worksheets("wsJournal")
Columns("A:C").Delete
Columns("F:I").Delete
Columns("G:H").Delete
lzS = .Cells(.Rows.Count, 1).End(xlUp).Row
For a = 1 To lzS
Rows(a).Interior.ColorIndex = 2
wsJournal.Cells(a, 3) = wsJournal.Cells(a, 3) * -1
Next a
End With
Dabei erhalte ich die Debug-Fehlermeldung "Typen unverträglich" in der Zeile wsJournal.Cells(a, 3) = wsJournal.Cells(a, 3) * -1.
Die Variable lzS ist als long definiert und hat zur Zeit der Ausführung den Wert 58.
Mit dem Befehl will ich die Inhalte der 3. Spalte negativieren.

Seltsamerweise hat während der Testphase dieser Befehl schon funktioniert, wobei ich allerdings Eingabe- und Ausgabe-Arbeitsblatt getrennt hatte.

Kann mir hier jemand einen Rat geben.

:)

 

Hallo,

Ich nehme mein Frage ganz schnell zurück.
Gerade habe ich nämlich festgestellt, dass ich bei a=1 die Überschriftszeile erwischt hatte, die in Spalte 3 keine numerischen Werte enthält.

Entschuldigung.

 

Hallo stau,

bei mir kommt ein Fehler, wenn in besagter Zelle Cells(58,3) ein Textwert drin steht mit dem man nicht rechnen kann, zB. das Wort Hilfe - allerdings kommt bei mir der Fehlerwert 13.
Steht ein Textwert drin wie '23, dann wird auch gerechnet und es steht dann -23 drin, ist die Zelle leer, dann 0.
Ich Frage mich allerdings, wozu dieses Konstrukt gut sein soll:
With ActiveWorkbook.Worksheets("wsJournal")
End With
denn Du nutzt es einfach nicht. Bei den 3 nachfolgenden Delete-Befehlen fehlt vor Columns der Punkt, damit sich diese Spalten auf die vorgenannte Tabelle beziehen, wie auch beim Rows-Beehl in der For-Schleife.
Und da, wo Du die Tabelle ansprichst, machst Du eine volle Referenzierung [wsJournal.Cells(a, 3)] statt .Cells(a, 3)
Laß Dir doch mit Debug.Print .Cells(a, 3).Value und Debug.Print VarType(.Cells(a, 3).Value) mal den Zellwert und den Datentyp davon im Direktfenster anzeigen.
Eine gute Praxis ist das verwenden von Haltepunkten (F9) und schrittweise weitersteppen im Code mit F8 und im Überwachungsfenster kann man sich auch diese Informationen anzeigen lassen.

Gruß von Luschi
aus klein-Paris

PS: Ich hoffe, diese Begriffe sind keine Bömischen Dörfer für Dich, wenn JA, dann bitte fleißig Googeln!

 

Hallo Luschi,

Die Einbindung meiner Befehle in With / End With war wirklich sinnlos.
Ich habe das herausgenommen und die Zeilenbestimmung geändert in
"lzS = wsJournal.Cells(Rows.Count, 1).End(xlUp).Row".

Die Delete-Befehle funktionierten nur deshalb, weil ich ein Worksheet.Activate davor gestellt hatte.

Die BT9-Taste war mir völlig fremd. Eine tolle Testholfe.

Herzlichen Dank für Deine Unterstützung, die mich wieder etwas weiter gebracht hat mit meinen spärlichen Kenntnissen.

 

Hallo Horst,

auch von mir noch eine kleine Hilfe. Wie Luschi bereits geschrieben hat, kannst du mit F8 den Code schrittweise durchgehen. Das hat zusätzlich noch den großen Vorteil, dass du so erkennen kannst, welche Werte die Variablen erhalten. Klicke zB mal so lange auf F8, bis die Zeile nach
Code:

gelb markiert ist. Fährst du nun mit dem Mauszeiger auf "lzS", erfährst du, welcher Wert ermittelt wurde.

Auf diese Weise kommt man immer wieder auf Fehler drauf, wenn Variablen Werte annehmen, die sie eigentlich nicht annehmen dürften/sollten.

 

Hallo stau,

und genau in dieser Zeile: Code:

ist eine Fehlerquelle drin, die zum Vba-Fehler führen kann aber nicht muß: Rows hat keine von Dir festgelegte Referenz zu einem Tabellenblatt und zeigt somit automatisch auf das aktive Sheet, das auf dem Monitor zu sehen ist.
Das geht solange gut, wie ein Tabellen- oder Makroblatt aktiv ist, das Grafik- und Dialogblatt haben aber diese Rows-Methode nicht und dann knallt's.
Benutze also fleißig die With-Anweisung und schreibe die obere Zeile immer so: Code:

Gruß von Luschi
aus klein-Paris

PS: Warum die Variable 'lzS' (S wie Spalte) benannt wurde statt 'lzR' (Row) oder 'lzZ' (Zeile), bleibt wohl Dein Geheimnis.

 

Hallo Bernie,
Vielen Dank für Deinen Tipp.
Auf diese Weise habe ich bisher meine Anwendungen getestet.
Manchmal mühsam, besonders wenn man 700 Datenzeilen mehrfach einzeln abarbeiten muss. Dafür stelle ich mir immer ein paar Testdaten zusammen, deren Ergebnis ich parallel noch manuell nachvollziehen kann.
Nur die Nutzung der F9-Taste war mir völlig unbekannt.

 

Hallo Luschi,

Du hast natürlich recht.
Ich habe statt dessen immer eine Worksheets.Activate-Anweisung vorangestellt, und damit lief es ja. Ich vermute mal, dass das kein sauberes Programmieren ist.
Ich stelle sofort wieder auf die With-Anweisung um.

Ich habe mir zuhause 2 VBA-Bücher zugelegt und einen Online-Kurs belegt, um mein spärliches Wissen zu verbessern. Aber solche Tricks wie vor Columns einen Punkt setzen zu müssen! Noch nirgends wahrgenommen. Ganz toll.
Wie lernt man so etwas, ohne aus eigenen Fehlern zu lernen und Experten wie Dich in Anspruch zu nehmen?

Nochmals herzlichen Dank.

 

Ich habe nun aufgrund von Luschis Empfehlungen wo immer möglich Activate-Befehle durch With-Anweisungen ersetzt.

Gleich beim ersten bekomme ich die Fehlermeldung "Der Index befindet sich außerhalb des gültigen Bereichs".

Das Arbeitsblatt habe ich definiert mit
Dim wsJournal As Worksheet
Set wsJournal = Worksheets("Lxw_Journal")

Die zum Fehler führende With-Anweisung lautet:
With ActiveWorkbook.Worksheets("wsJournal")
.Columns("A:C").Delete
.Columns("F:I").Delete
.Columns("G:H").Delete
lzS = .Cells(Rows.Count, 1).End(xlUp).Row
For a = 2 To lzS
.Rows(a).Interior.ColorIndex = 2
.Cells(a, 3) = Cells(a, 3) * -1
Next a
End With

Ich finde meinen Fehler nicht. Wo steckt der?

 

Hallo,

so:

Code:

 

Hallo Nepomuk,

Ups! Tatsächlich. So läuft es.
Ich frage mich nur, warum zuvor einige With-Anweisungen in der von mir beschriebenen (umständlicheren) Version gelaufen sind.

Ich danke für Deine Aufmerksamkeit.

 

Hallo,

mit With öffnest du einen Verweis auf ein Objekt auf dass du dich mit den Punkten vor dessen Eigenschaften beziehst. In deiner Prozedur fehlt der aber einmal vor Rows.Count und einmal vor Cells.

Was mir noch komisch vor kommt, du löschst Spalten. Einmal A:C dann F:I. Aber, nach dem löschen von A:C sind die Spalten F:I die ehemaligen Spalten I:L. Ist das so gewollt? Normalerweise löscht man immer von rechts nach links und von unten nach oben. Damit verrutschen die Zeilen/Spalten nicht.

 

Hallo Nepomuk,

Danke für Deine Erklärung.
Und das mit dem Spaltenlöschen ist so gewollt und richtig.
Ich werde mir merken, dass das Entfernen von rechts nach links viel sinnvoller und weniger fehleranfällig ist.

 

Hi,

man kann auch alle Spalten auf ein mal löschen: Code:

Achtung: Columns versteht diese komplexen Bereich nicht. Aber Range("A:C") und Colmns("A:C") verhalten sich genau gleich. Nur bei nicht zusammenhängenden Spalten versagt Columns().