Ich möchte eine ganze Tabelle (ohne Formeln, alles eingetippte Zahlen) um einen einheitlichen, bestimmten %-Satz erhöhen.
Besten Dank für Eure Tipps
Oskar
Sub makro01()
With Worksheets(1)
Dim zeile As Long
Dim spalte As Integer
For zeile = 1 To .UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1
For spalte = 1 To .UsedRange.SpecialCells(xlCellTypeLastCell).Column + 1
If IsNumeric(Cells(zeile, spalte)) = True And Cells(zeile, spalte) > 0 Then
Cells(zeile, spalte) = Cells(zeile, spalte) + (Cells(zeile, spalte) / 100) * 16
End If
Next spalte
Next zeile
End With
End Sub
Sub oder_so()
[iv65536] = 1.16
[iv65536].Copy
Range("A1:Z10000").SpecialCells(xlCellTypeConstants).PasteSpecial Paste:=xlAll, Operation:=xlMultiply, SkipBlanks:=False, Transpose:=False
[iv65536].Clear
End Sub
Sub makro01()
With Worksheets(1)
Dim zeile As Long
Dim spalte As Integer
For zeile = Selection.Row To Selection.Row + Selection.Rows.Count - 1
For spalte = Selection.Column To Selection.Column + Selection.Columns.Count - 1
If IsNumeric(Cells(zeile, spalte)) = True And Cells(zeile, spalte) > 0 Then
Cells(zeile, spalte) = Cells(zeile, spalte) + (Cells(zeile, spalte) / 100) * 16
End If
Next spalte
Next zeile
End With
End Sub