HERBERS
Excel-Forum
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Zum Forum Zum Forum Zum Forumthread Zum Forumthread Zum Archivthread Zum Archivthread Registrierung Registrierung Beispieldatei hochladen Beispieldatei hochladen
Forumbeitrag
Excel-Version des Fragestellers:
bis 2003
Erfahrungslevel des Fragestellers:
VBA nur mit Recorder
ralf_b
01.09.2024 15:21:46
AW: Formular bzw. Zahlen direkt in Zellen einlesen
benutzte den Code von Yal und lösche dein altes Command_Button4_Click Makro.
dann ersetzt du das Clickmakro von Yal durch dieses. Wenn du die beiden Codes vergleichst fällt dir sicher der Unterschied auf.
hier wird c17-c21 nicht mehr gefüllt 
Private Sub CommandButton4_Click()

Dim i, j

Dim R As Range

Const cNeuesBlatt As String = "Berechnung"



'Prüfung. Wenn einer "ist nicht numerisch", dann raus

    If (Not IsDate(TextBox3)) Or IstNichtNum(TextBox1) Or IstNichtNum(TextBox4) Or IstNichtNum(TextBox5) Or IstNichtNum(TextBox6) Or IstNichtNum(TextBox7) Then Exit Sub



'Es passiert alle auf ActiveSheet

    Cells(6, "C") = CDbl(Format(TextBox1, "#,##0.00"))

    Cells(7, "C") = CDate(TextBox3)

    

    Application.ScreenUpdating = False

'Wert zum neuen Blatt übertragen

    Set R = Blatt_selektieren(cNeuesBlatt).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).EntireRow 'nächste leere Zeile ermitteln. R ist eine Zeile.

    For Each i In Split("C7 C11 C6 C12 C13 C14")

        j = j + 1

        R.Cells(j) = Range(i).Value 'Cells(1) von einer Zeile in der Spalte A dieser Zeile, 2 B, 3 C, usw.

    Next

    

    R.Cells(Columns("L").Column) = CDbl(TextBox7) 'C21

    R.Cells(Columns("J").Column) = CDbl(TextBox4) 'C17

    R.Cells(Columns("K").Column) = CDbl(TextBox5) 'C18

    R.Cells(Columns("I").Column) = CDbl(TextBox6) 'C19

    R.Cells(Columns("N").Column) = CDbl(ComboBox1) 'C20



'Fromel einreichten

    R.Cells(7).FormulaR1C1 = "=SUM(RC[1]+RC[4]-RC[2])" 'Formel in Spalte G: Gesamtverbrauch per Tag aus EVN & Einspeisung aus PV Anlage

    R.Cells(8).FormulaR1C1 = "=(RC3-R[-1]C3)" 'Formel in Spalte H (relative Adressierung)

    ' =SUM(RC[1]+RC[4])

    R.Cells(9).Interior.ColorIndex = 35 'Spalte I

    ' R.Cells(9).FormulaR1C1 = "=(RC[-1])/24"

    R.Cells(13).Formula = "=TEXT(" & R.Cells(1).Address & ",""TTTT"")" 'Formel in Spalte M

'Färbung

    R.Interior.Pattern = xlSolid

    R.Cells(5).Interior.ColorIndex = 36

    R.Cells(7).Interior.ColorIndex = 34

'Abschluss

    Range("A2").Select

    Application.ScreenUpdating = True

    Unload Me '--- Userform schließen

End Sub


das wars.
Beim Antworter bedanken Als gefällt mir melden Als hervorragend melden
Als Antwort auf diesen Beitrag
chris58
29.08.2024 08:32:18
AW: Formular bzw. Zahlen direkt in Zellen einlesen
Hallo !
Bin erste heute dazugekommen das auszuprobieren. Ich habe mich herumgespielt. Weiß nicht, was ich ersetzen soll und dadurch kommen immer wieder Fehler und ich komme wenn ich das was herumkopiere, in den Code hinein und dann gehts nicht mehr weiter.
Es sollte eigentlich, das was ich eingebe ins Formular, direkt in die nächste freie Zelle der jeweiligen Spalte hineingestellt werden, damit nicht der Umweg über die Zellen C17 bis C21 genommen wird. Es funktioniert ja, nur eben manchmal ist es schon passiert, das ich die Daten irrtümlich gelöscht habe und dadurch einen "Salat" gehabt habe.
Wenn das ginge, HERRLICH
Ansonst.................
lg chri58

Textbox 4 Heutige Leistung PV Anlage 48,20 gleich in nächste Freie Zeile der Spalte J
Textbox 5 Heutige Eigenverbrauch PV Anlage 22,40 gleich in nächste Freie Zeile der Spalte K
Textbox 6 Heutige Netzeinspeisung PV Anlage 25,80 gleich in nächste Freie Zeile der Spalte I
ComondBox1 Wetter für diesen Tag 2. Sonne/warm/bewölkter Himmel gleich in nächste Freie Zeile der Spalte N
Textbox 7 In die Batterie 7,37 gleich in nächste Freie Zeile der Spalte L
Folgenachrichten
Zum Forumthread
Antwort auf Beitrag erstellen
Beispieldatei hochladen