Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.07.2024 16:00:57
15.07.2024 15:41:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro auf alle Blätter anwenden

Makro auf alle Blätter anwenden
28.12.2012 15:44:43
Marco#
Hallo,
ich beschäftige mich erst seit sehr kurzer Zeit mit tiefergehend mit Excel und bin noch gänzlich unerleuchtet.
Ich habe ein Makro, das ich auf alle Arbeitsblätter anwenden möchte. Es handelt sich dabei um exportierte Datensätze bei denen die Zahlen als Text formatiert sind. Die relevanten Zahlen befinden sich in der ersten Spalte und werden durch das Makro relativ simpel *1 genommen, sodass ich eine 'echte' Zahl habe.
Hier das Makro:
Public Sub Mal_eins()
Dim Lzeile  As Long
For Lzeile = 1 To Range("A65536").End(xlUp).Row
If IsNumeric(Range("A" & Lzeile).Value) Then
Range("A" & Lzeile).Value = Range("A" & Lzeile).Value * 1
End If
Next Lzeile
End Sub
Vermutlich muss ich nur eine Zeile einfügen...?

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

Betreff
Datum
Anwender
Anzeige
AW: Makro auf alle Blätter anwenden
28.12.2012 15:49:01
Hajo_Zi

Option Explicit
Public Sub Mal_eins()
Dim WsTabelle As Worksheet
Dim Lzeile  As Long
For Each WsTabelle In Worksheets
With WsTabelle
For Lzeile = 1 To .Range("A65536").End(xlUp).Row
If IsNumeric(.Range("A" & Lzeile)) Then
.Range("A" & Lzeile) = .Range("A" & Lzeile) * 1
End If
Next Lzeile
End With
Next WsTabelle
End Sub

AW: Makro auf alle Blätter anwenden
28.12.2012 16:06:17
Gerd
Hallo!
Sub test()
Dim Wsh As Worksheet
For Each Wsh In ThisWorkbook.Worksheets
With Wsh.Cells(1, 1).Resize(Wsh.Cells(Wsh.Rows.Count, 1).End(xlUp).Row, 1)
.NumberFormat = "general"
.Cells.Value = .Cells.Value
End With
Next
End Sub

Gruß
Gerd
Anzeige

321 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige