Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
368to372
368to372
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Makro modifizieren

Makro modifizieren
23.01.2004 07:26:59
ewald
Hallo zusammen,
das nachfolgende Makro funktioniert, wäre es trotzdem
möglich, das Makro zu modifizieren d.h. vereinfachen?

Sub test()
Dim Startzeile%, Endzeile&, Zähler&
Application.ScreenUpdating = False
Startzeile = 14
Endzeile = Cells(65536, 39).End(xlUp).Row
For Zähler = Stestartzeile To Endzeile
If Cells(Zähler, 16) = "" Then
Cells(Zähler, 16) = "0"
If Cells(Zähler, 17) = "" Then
Cells(Zähler, 17) = "0"
If Cells(Zähler, 20) = "" Then
Cells(Zähler, 20) = "0"
If Cells(Zähler, 21) = "" Then
Cells(Zähler, 21) = "0"
If Cells(Zähler, 24) = "" Then
Cells(Zähler, 24) = "0"
If Cells(Zähler, 25) = "" Then
Cells(Zähler, 25) = "0"
If Cells(Zähler, 28) = "" Then
Cells(Zähler, 28) = "0"
If Cells(Zähler, 29) = "" Then
Cells(Zähler, 29) = "0"
If Cells(Zähler, 32) = "" Then
Cells(Zähler, 32) = "0"
If Cells(Zähler, 33) = "" Then
Cells(Zähler, 33) = "0"
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next Zähler
Application.ScreenUpdating = True
End Sub

Vielen Dank im Voraus.
Grüße

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro modifizieren
23.01.2004 07:43:49
Kladeb
Moin,
was soll das Makro denn machen? Bei mir läuft der Zähler von 14 bis 1.
Und die IF-Bedingungen ... wieso sind die so verschachtelt?
Gruss aus Hannover
Kladeb
http://www.Bieler.org
AW: Makro modifizieren
23.01.2004 08:31:10
ewald
Hallo Kladeb,
folgendes möchte ich erreichen:
In der Spalte AM ab der Zeile 14 wird das Datum eingetragen
ende variabel=(Endzeile = Cells(65536, 39).End(xlUp).Row)
Die Spalten P,Q,T,U,X,Y,Ab,AC,AF und AG ab Zeile 14 beinhalten
Zahlen die nicht zusammenhängen d.h. haben Leerstellen.
Jetzt möchte ich die leerstellen mit 0 füllen in Abhängigkeit
der Spalte AM (Datum).
Wäre söhn wenn die Schleife spaltenweise die Sache abarbeitet.

Vielen Dank im Voraus.
Gruß
Anzeige
AW: Makro modifizieren
23.01.2004 08:46:27
Kladeb
Hi,
poste die Tabelle mal.
Gruss aus Hannover
Kladeb
http://www.Bieler.org

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige