Differenz per VBA für alle Tabellensheets
27.02.2019 08:57:21
Roger
leider habe ich ein Problem, welches ich aus Automatisierungsgründen mit VBA lösen möchte.
Zum Sachverhalt:
- 12 sheets in einer Excel, welche alle gleich aufgebaut sind
- in jedem sheet soll die Differenzvon Spalte J minus Spalte i gebildet werden
- Differenz soll nur errechnet werden, wenn Werte in Spalten vorhanden ist
Habe in diesem Forum bereits folgenden Code gefunden, welchen ich auch versucht habe anzupassen, _
es leider aber nicht hinbekommen habe:
Sub Summe()
On Error GoTo Fehler
Dim RR%, TB1, i
Set TB1 = ActiveSheet
RR = TB1.Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile
For i = 2 To RR
If TB1.Cells(i, 1) "" And TB1.Cells(i, 2) Then
TB1.Cells(i, 3) = TB1.Cells(i, 2) - TB1.Cells(i, 1)
End If
Next
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
End Sub
Ich würde mich sehr freuen, wenn mir hierbei jemand weiterhelfen kann und bedanke mich schon mal ganz herzlich.
Viele Grüsse
Roger