Änderungen von Werten per VBA
Werten
ich habe eine Datei, mit der ich Aufträge verwalte. Ab und zu kommt es vor, dass es Werte gibt die nachträglich bei bestehenden Datensätzen verändert werden müssen. Dies mache ich mit folgendem Makro:
Sub VE_aender()
Dim strAFTR As String
Dim rngTargetCell As Range
strAFTR = InputBox("Bitte Auftragsnummer eingeben:", "Eingabe Auftragsnummer zur VE Änderung" _
)
If IsNumeric(strAFTR) Then
Set rngTargetCell = Columns(3).Find(what:=strAFTR, LookIn:=xlValues, lookat:=xlWhole)
If rngTargetCell Is Nothing Then
MsgBox "Keinen Eintrag gefunden, bitte erneut versuchen", , strAFTR
Sheets("Eingabeblatt").Select
Else
Sheets("Eingabeblatt").Select
Range("C26").Select
Selection.Copy
Sheets("Report").Select
rngTargetCell.Offset(0, 5).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
rngTargetCell.Offset(0, 0).Select
Selection.Copy
Sheets("Ref").Select
Range("I85").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Ref").Select
Range("J84").Select
Selection.Copy
Sheets("Report").Select
rngTargetCell.Offset(0, 7).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
ActiveWindow.ScrollColumn = 1
Sheets("Eingabeblatt").Select
Application.CutCopyMode = False
End If
End If
End SubNun zu meiner Frage:
Ist es möglich, anstelle der Eingabe der Auftragsnummer, einfach in Spalte C im Blatt Report, den Auftrag bzw. die Auftragsnummer anzuklicken um die Änderung zu erzeugen?
Kann mir jemand helfen?
Vielen Dank
Liebe Grüße
Björn
P.S. ich weiß das es kein perfektes Makro, halb aufgezeichnet halb geschrieben...Bin halt kein Profi sondern nur selbsterlernter Amateur ;-)