Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro ausbauen

Forumthread: 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

Anzeige

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige