Kalkulationsblatt

Hallo zusammen,
ich möchte gerne ein Kalkulationsblatt in Excel erstellen, dass sich per Schaltflächen klick immer um eine Position erweitert.
Die Schaltfläche und das Springen in die nächste freie Zelle habe ich hingekommen.
Nun geht es an die Berechnungen der einzelnen Positionen. Und genau hierbei hänge ich jetzt.
Folgendes Problem :
Ich hätte gern in der ersten freien Zelle ActiveSheet.Cells(y, 1) ein Zähler eingebaut der die erstellte Position hochzählt.
Als nächstes würde ich gerne die Zellen (y, 4) und (y, 5) multiplizieren und das Ergebnis (y6, 1) ausgeben.
Um Hilfe wäre ich sehr dankbar
Gruß Thorsten
Dim y As Integer
Dim x As Integer
Dim z As Integer
Dim a As Integer
Dim w As Integer
y = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(y, 1).Value = "" ' HIER SOLLTE DER Zähler hin
ActiveSheet.Cells(y, 2).Value = "EK"
ActiveSheet.Cells(y, 3).Interior.Color = vbRed
ActiveSheet.Cells(y, 4).Value = "" ' Wert wird in Zelle eingegeben
ActiveSheet.Cells(y, 5).Value = "" ' Wert wird in Zelle Eingegeben
ActiveSheet.Cells(y, 6).Value = "" ' Ergebnis der beiden Werte
y = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Cells(y, 1).Value = "" ' HIER SOLLTE DER Zähler hin
ActiveSheet.Cells(y, 2).Value = "EK"
ActiveSheet.Cells(y, 3).Interior.Color = vbRed
ActiveSheet.Cells(y, 4).Value = "" ' Wert wird in Zelle eingegeben
ActiveSheet.Cells(y, 5).Value = "" ' Wert wird in Zelle Eingegeben
ActiveSheet.Cells(y, 6).Value = "" ' Ergebnis der beiden Werte

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Unit() Static Zaehler As Long Dim y As Long With ActiveSheet y = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If IsNumeric(.Cells(y, 4).Text) And IsNumeric(.Cells(y, 5).Text) Then '2 Zahlen sind in D u. E vorhanden Zaehler = Zaehler + 1 .Cells(y, 1).Value = Zaehler .Cells(y, 2).Value = "EK" .Cells(y, 3).Interior.Color = vbRed .Cells(y, 6).Value = .Cells(y, 4).Value * .Cells(y, 5).Value End If End With End Sub

Sub Unit3() Static Zaehler As Long Dim y As Long With ActiveSheet y = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If .Cells(y, 4) = "" Then 'Schritt1(noch ohne Berechnung) Zaehler = Zaehler + 1 .Cells(y, 1).Value = Zaehler .Cells(y, 2).Value = "EK" .Cells(y, 3).Interior.Color = vbRed Else 'Schritt2 Berechnung If IsNumeric(.Cells(y, 4).Text) And IsNumeric(.Cells(y, 5).Text) Then '2 Zahlen sind in D u. E vorhanden .Cells(y, 6).Value = .Cells(y, 4).Value * .Cells(y, 5).Value End If End If End With End Sub

Sub Unit4() Static Zaehler As Long Dim y As Long With ActiveSheet y = .Cells(.Rows.Count, 1).End(xlUp).Row + 1 If .Cells(y, 4) = "" Then 'Schritt1(noch ohne Berechnung) .Cells(y, 2).Value = "EK" .Cells(y, 3).Interior.Color = vbRed Else 'Schritt2 Berechnung If IsNumeric(.Cells(y, 4).Text) And IsNumeric(.Cells(y, 5).Text) Then '2 Zahlen sind in D u. E vorhanden Zaehler = Zaehler + 1 .Cells(y, 1).Value = Zaehler .Cells(y, 6).Value = .Cells(y, 4).Value * .Cells(y, 5).Value End If End If End With End Sub

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread