Hallo,
ich hab folgendes Problem und bin grad schon zu kurzsichtig um die Lösung zu finden.
Mein Code soll folgendes bewirken, in einem Tabellenblatt (nennen wir es Übersicht), werden Daten eingegeben und die Veränderung im selben Tabellenblatt angezeigt, (Berechnugnen sind im anderen Tabellenblatt "kalkulation" und mittels Excel-Funktionen gelöst). So und hier kommt der knifflige Punkt ich möchte nachdem man die Veränderung der Werte als okay anerkannt hat, mittels eines Buttons die Veränderung dauerhaft über die alten Werten speichern. Jedoch ohne alle Parameter zu überschreiben sondern nur die veränderten Werte (gibt vier input werte). Hoffe man kann sich darunter etwas vorstellen.
Anbei meinCode:
Sub Aktualisierung()
Dim a As String
Dim i As Integer
a = MsgBox("Beim fortfahren werden die aktuellen Daten überschrieben, wollen Sie Fortsetzen?", vbYesNo, "Aktualisierung")
If a = vbNo Then
Exit Sub
End If
Sheets("Berechnungen Einzelschuldner").Select
For i = 1 To 12
If Cells(i, 1) = Sheets("Übersicht").Range("F6") Then
Range("O" & i & ":R" & i).Copy
Range("B" & i & ":E" & i).PasteSpecial xlPasteValuesAndNumberFormats
On Error Resume Next
End If
Next
Sheets("Übersicht").Select
End Sub
|