Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1064to1068
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
Inhaltsverzeichnis

Makro ausbauen

Makro ausbauen
01.04.2009 08:48:02
Ruedi
Guten Morgen miteinander
mir wurde vor einiger Zeit dieses Makro hier geschrieben:

Sub Makro2()
Dim x As Integer, wks As Worksheet
For Each wks In Worksheets
If wks.Name Like "Monat*" Then
With wks
For i = 1 To 1000
If .Cells(i, 1).Font.Size = 14 Then .Cells(i, 12) = .Cells(i, 1)
Next i
End With
End If
Next wks
End Sub


Wie muss ich das Makro ausbauen, dass zuerst in allen Monat* bei der Spalte 12 der Inhalt gelöscht wird und danach das Makro so wie oben abläuft?
Also zuerst Spalte 12 "reinigen" und danach Makro ausführen.
Vielen Dank für eure Hilfe!
Gruss Ruedi

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro ausbauen
01.04.2009 08:56:07
Michael
Hallo Ruedi,
so sollte es gehen:

Sub Makro2()
Dim x As Integer, wks As Worksheet
For Each wks In Worksheets
If wks.Name Like "Monat*" Then
With wks
.Columns(12).ClearContents
For i = 1 To 1000
If .Cells(i, 1).Font.Size = 14 Then .Cells(i, 12) = .Cells(i, 1)
Next i
End With
End If
Next wks
End Sub


Grüße
Michael

AW: Makro ausbauen
01.04.2009 10:06:50
Ruedi
passt super..
vielen Dank..:)
Gruss Ruedi

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige