Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Werte in Arbeitsblättern cheken und ersetezen
Autor: G.A.
Datum: 15.02.05 20:51
Hallo bin anfänglicher Programierer kann mir bitte jemand beim schreiben folgender Prozedur helfen? In 98 Arbeitsblättern ist ein Wert markiert, d.h. alle Arbeitsblätter ausgewählt und per maus ist eine Zelle markiert. In dieser Zelle steht ein Wert. ISt der Wert poistiv, muss daraus eine Null werden, ist er negativ, gehts zum nächsten Arbeitsblatt. Ich komme mit VBA Hilfe von Office nicht klar, kann mir jemand noch Tipps geben? Na ja, so habe ich die programiert, aber natürlich geht das nicht. Ich kann bei besten Willen in der VBA hilfe nichts finden. Sub PositiveLoeschen() Dim i As Integer i = 1 Do Until ActiveWorkbook.ActiveSheet.Name = "98" ThisWorkbook.Worksheets(i).Select If Worksheets(i).ActiveCell.Value < 0 Then i = i + 1 Worksheets(i).ActiveSheet.ActiveCell.Value=0 Loop End Sub Oder so: gehe in einer Schleife alle Arbeitsblätter durch, bis Arbeitsblatt 98 kommt Schaue in der bereits markierten Zelle, in jedem Arbeitsblatt, ob der Wert Negativ ist, ist er das - gehe zum nächsten Arbeitsblatt Anderenfalls ersteze den Positiven Wert durch eine null. Danke im voraus

Werte in Arbeitsblättern cheken und ersetezen	763	G.A.	15.02.05 20:51
Re: Werte in Arbeitsblättern cheken und ersetezen	527	jens52	16.02.05 08:36
Vielen Dank!	473	G.A.	16.02.05 17:04

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen