VBA mehrere Sheets ansprechen

Hallo Leute im Forum
Ich möchte gerne mit dem unten stehenden Code gleich mehrere Sheets ansprechen.
Nicht nur den Sheets "Auswertung"
Es geht in allen Sheets genau immer nach den selben Prinzip, Spalten B u. E in Zahl umwandeln.
Könnte mir bitte dazu jemand weiterhelfen?
Danke, Heinz


Sub text_in_zahl() ' Spalte B in Sheets Auswertung in Zahl umwandeln
'Das Makro wandelt Text in Zahlen um
Sheets("Auswertung").Select
' Die letzte beschriebene Zelle wird ermittelt
Dim loletzte As Long
loletzte = ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row
With Range("b2" & ":b" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
With Range("e2" & ":e" & loletzte)
.NumberFormat = "General"
.Value = .Value
End With
End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Sub text_in_zahl_allSheets() Dim objWorksheet As Worksheet Dim loletzte As Long Application.ScreenUpdating = False For Each objWorksheet In ThisWorkbook.Worksheets loletzte = objWorksheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row With objWorksheet.Range("b2" & ":b" & loletzte) .NumberFormat = "General" .Value = .Value End With With objWorksheet.Range("e2" & ":e" & loletzte) .NumberFormat = "General" .Value = .Value End With Next Application.ScreenUpdating = True End Sub

Public Sub text_in_zahl_allSheets2() Dim objWorksheet As Worksheet Dim loletzte As Long Dim antwort As String Application.ScreenUpdating = False For Each objWorksheet In ThisWorkbook.Worksheets Select Case objWorksheet.Name Case "Auswertung", "311", "312", "321", "322", "331", "332", "333" loletzte = objWorksheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row With objWorksheet.Range("b2" & ":b" & loletzte) .NumberFormat = "General" .Value = .Value End With With objWorksheet.Range("e2" & ":e" & loletzte) .NumberFormat = "General" .Value = .Value End With End Select Next

Public Sub text_in_zahl_allSheets() Dim objWorksheet As Worksheet Dim loletzte As Long Dim antwort As String Application.ScreenUpdating = False For Each objWorksheet In ThisWorkbook.Worksheets antwort = MsgBox("Bearbeiten von Sheet: " & objWorksheet.Name, vbYesNo) If antwort = vbYes Then loletzte = objWorksheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row With objWorksheet.Range("b2" & ":b" & loletzte) .NumberFormat = "General" .Value = .Value End With With objWorksheet.Range("e2" & ":e" & loletzte) .NumberFormat = "General" .Value = .Value End With End If Next Application.ScreenUpdating = True End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA mehrere Sheets ansprechen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

304 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread