Zeile einfügen
10.10.2016 15:26:10
Berndt
ich habe folgendes Problem.
Folgender Code erlaubt es mir per Button ein Zeilen einzufügen.
Ich werde als Anwender gefragt wo ich die Zeile angefügt haben möchte (Tabelle Aufgaben oder Tabelle Problemspeicher).
Möchte ich hingegen meine Tabelle weiter nach unten verschieben, craht das Makro, da er jetzt keinen bezug mehr an der alten Stelle findet.
Ich hänge euch mal ein Bsp. an. Betätigt mal den Button "neue Aufgabe einfügen" und ihr seht das Problem.
Was muss abgeändert werden, damit der Code komplett flexibel ist?
Link:
https://www.herber.de/bbs/user/108701.xlsm
Code:
Private Sub CommandButton2_Click()
' neue Zeile einfügen für Aufgabe oder Problem
Dim EZ As Double
Dim Ab As Double
Dim WoEinf As String
Application.ScreenUpdating = False
WoEinf = InputBox("(A)ufgabe" & vbLf & "(P)roblem", "Wo möchten Sie eine neue Zeile hinzufü _
gen?", "A")
Select Case UCase(WoEinf)
Case "A"
EZ = UF_neueZeile(8, True)
Range("D" & EZ & ":H" & EZ).FormulaR1C1 = "=SUM(R8C:R[-1]C)"
Case "P"
EZ = UF_neueZeile(8, False)
EZ = UF_neueZeile(EZ + 3, True)
Case Else
Exit Sub
End Select
Application.ScreenUpdating = True
End Sub