Microsoft Excel

Herbers Excel/VBA-Archiv

Runden eines ausgewählten Bereiches | Herbers Excel-Forum


Betrifft: Runden eines ausgewählten Bereiches von: Sunshine 77677
Geschrieben am: 17.02.2012 14:39:41

Hallo zusammen,

ich möchte für den jeweils markierten Bereich die Werte auf Null runden. Mein Makro funktioniert nicht, kann mir jemand helfen?

Sub Runden() 
Dim Bereich As Range 
Set Bereich = Application.Selection 

Bereich = Application.WorksheetFunction.Round(Bereich,0) 

Set Bereich = Nothing 
End Sub

  

Betrifft: AW: Runden eines ausgewählten Bereiches von: Rudi Maintaire
Geschrieben am: 17.02.2012 14:51:44

Hallo,
das musst du einzeln machen.

Sub Runden()
  Dim Bereich As Range
  Application.ScreenUpdating = False
  For Each Bereich In Selection
    If IsNumeric(Bereich) Then Bereich = Application.Round(Bereich, 0)
  Next
End Sub

Oder erst in ein Array packen (schneller)
Sub Runden()
  Dim myarr, i As Long, j As Long
  myarr = Selection
  For i = 1 To UBound(myarr)
    For j = 1 To UBound(myarr, 2)
      If IsNumeric(myarr(i, j)) Then myarr(i, j) _
        = Application.Round(myarr(i, j), 0)
    Next
  Next
  Selection = myarr
End Sub

Gruß
Rudi


  

Betrifft: AW: Runden eines ausgewählten Bereiches von: Sunshine 77677
Geschrieben am: 17.02.2012 14:57:12

Danke, funktioniert prima.


Beiträge aus den Excel-Beispielen zum Thema "Runden eines ausgewählten Bereiches"