Testtabelle 001_AZ2 hier habe ich ein 2 Tabellenblatt erstellt auf dem Blatt Nachträge stimmen die zuordnungen in Zelle E16 bis E23 noch
Testtabelle 001_AZ2_mit Nachträgen habe Ich 2 Nachträge eingegeben die Zuordnungen stimmen noch
Testtabelle 001_AZ3_mit Nachträgen durch das eingeben der Nachträge bleiben die Zuordnungen in E16 bis E23 stehen diese sollten jedoch wenn in A6 abwärts wieder Nachträge eingegen werdn mit nach unten wandern.
29.07.2022, 10:41 (Dieser Beitrag wurde zuletzt bearbeitet: 29.07.2022, 10:43 von BoskoBiati.)
Hi,
dann muß eben bekannt sein, wie der Eintrag heißt, wo der Wert rein soll, also der Name aus D!
Code:
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Dim rngTreffer As Range
Dim StrName As String
Dim rngZeile_1 As Range
Dim rngZeile_2 As Range
If Target.Address = "$A$2" And Left(Me.Name, 2) = "AZ" Then
StrName = "AZ" & Format(Val(Mid(Target.Value, 3)) + 1, "00")
Me.Copy after:=Worksheets(Me.Index)
ActiveSheet.Name = StrName
ActiveSheet.Range("A2") = StrName
Set rngTreffer = Me.Columns(2).Find("Auftragssumme", LookIn:=xlValues, lookat:=xlWhole)
Set rngZeile_1 = Worksheets("Nachträge").Columns(4).Find("Hauptauftrag inkl Nachlass", LookIn:=xlValues, lookat:=xlWhole)
Set rngZeile_2 = Worksheets("Nachträge").Columns(4).Find("Mehr / Minderkosten inkl Nachlass", LookIn:=xlValues, lookat:=xlWhole)
Worksheets("Nachträge").Cells(rngZeile_1.Row, 5).Resize(2).FormulaR1C1 = "=SUM('" & ActiveSheet.Name & "'!R[" & rngTreffer.Row - 16 & "]C[3])"
Worksheets("Nachträge").Cells(rngZeile_2.Row, 5).FormulaR1C1 = "=SUM('" & ActiveSheet.Name & "'!R[" & rngTreffer.Row - 15 & "]C[3])"
End If
Cancel = True
End Sub
Ist Dir eigentlich bewußt, was passiert, wenn jemand ein zweites Mal einen Rechtsklick in A2 eines Blattes AZ macht???
Ich würde diese Datei definitiv nicht benutzen wollen, viel zu fehleranfällig, unausgegorene Formeln und nicht schlüssig.
Gruß
Edgar
Meine Antworten sind freiwillig und ohne Gewähr!
Über Rückmeldungen würde ich mich freuen.
Folgende(r) 1 Nutzer sagt Danke an BoskoBiati für diesen Beitrag:1 Nutzer sagt Danke an BoskoBiati für diesen Beitrag 28 • wavemaster