Office: (Office 2019) Formel in Spalten / Zellen aktivieren

Danke, ich verwende Office 2019. Aber die Aktualisierung der ListBox laden ist doch als Code vorhanden, eine Aktivierung ist im Code: ComandoSave() enthalten, er wird aber nicht ausgeführt. Wenn ich den Code mit F8 durchlaufe, blockiert er (gelbe Markierung) bei Zeile : Dim iZeile&: ...... im Code "Sub Bearbeiten". Damit ist die Aktualisierung der Tabelle unterbrochen. Gibt es hierfür nochmals eine Hilfestellung?

 

Hallo,

du hast die falsche Datei hochgeladen.
Es gibt da keine Sub Bearbeiten. Da kann ich natürlich auch den Fehler nicht nachstellen.

Gruß Uwe

 

Sorry, hier die richtige Datei.

 

Hallo,
warum hast du bei der Zeilennummer Abfrage den Spaltenindex auf -1 gesetzt. Diese gibt es in einer Listbox nicht. Die linke Spalte hat den Spaltenindex 0.
ich habe es geändert und sofort funktionierte alles normal.

Code:

Private Sub Bearbeiten()
    Dim iZeile&, i&: iZeile = lstData.List(lstData.ListIndex, 0) ' Spaltenindex 0 enthält die Zeilennummer des angeklickten Datensatzes.
    With ArbTab
        For i = 1 To UBound(arrCnt)
            If IsNumeric(arrCnt(i)) Then
                .Cells(iZeile, i) = CDbl(arrCnt(i).Value)
            Else
                .Cells(iZeile, i) = arrCnt(i).Value
            End If
        Next i
    End With
End Sub

Du brauchst in den von mir geschriebenen Prozeduren sonst eigentlich erst mal nichts zu ändern.
Ich habe inzwischen noch etwas weiter gebaut. Siehe hochgeladene Datei.
Das ist sicherlich übersichtlicher. Des Weiteren werden nach dem Ändern der Daten das Value der Textboxen geleert.

Gruß Uwe

 

Hallo, erst mal Danke für die Überarbeitung! Die Datei ist perfekt.
Ich habe eine Zeile (2), wo der Übertrag bzw. der Startwert eingegeben werden soll. Ist das vielleicht auch in der Userform ebenfalls zu installieren, um diese Werte hieraus ebenfalls zu verändern?

 

Hallo,

den Startwert würde ich besser nur als Anzeige im Userform einbauen. Ändern macht nur Sinn, wenn ein neues Jahr eingerichtet werden soll, was sicherlich mal ursprünglich unter Löschen vorgesehen war.
Diesen Weg habe ich mal eingebaut.
So braucht du nur zum erstmaligen Einsatz die Startsaldi händisch eintragen. In Zukunft können per Auswahl die Saldi aus den sich ergebenden Endsaldi übernommen werden oder diese in die Inputbox eingegeben werden.

Gruß Uwe

 

Danke, ganz toll. Wünsche noch ein schönes Wochenende. Gruß MB

 

Gerne!

Ebenfalls ein schönes Wochenende.

Gruß Uwe