05.01.2018, 19:04
Danke an alle für eure Mühe. Und vielen Dank silex1 für deine Formellösung.
Das mit den zusätzlichen Hilfsspalten ist eine Möglichkeit.
Bitte nicht falsch verstehen, ich finde das total super wie ihr helft, aber es könnte bei meiner Originaldatei mit 12 Tabellenblättern ( und ggf. kommen noch mehr hinzu) etwas kompliziert/unübersichtlich werden
Beim googeln habe ich folgenden VBA-Code gefunden, der einen ähnlichen Ansatz verfolgt wie den den ich in meiner Ausgangsfrage gefragt habe.
Leider bezieht sich das auf eine Zelle links davon und bezieht sich auf eine feste Formel ( so wie ich das Laienhaft verstanden habe )
Gibt es da eine Möglichkeit den an meine Bedürfnisse anzupassen (bettel bettel). Für mich als VBA-Laien absolut zu hoch.
Hier der gefundene VBA-Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
Dim a As Variant
Dim Zeilenzahl As Long
Zeilenzahl = WorksheetFunction.Max(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, _
ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row)
For Each Zelle In ActiveSheet.Range(„B2:B“ & Zeilenzahl)
a = Zelle.Offset(0, -1).Value
If a = „“ Or IsNumeric(a) = False Then
Zelle.Value = „“
Else
If Zelle.Value = „“ Then Zelle.Formula = „=RC[-1]*0.05“
End If
Next Zelle
End Sub
Bitte bitte nicht böse sein.
Danke
Das mit den zusätzlichen Hilfsspalten ist eine Möglichkeit.
Bitte nicht falsch verstehen, ich finde das total super wie ihr helft, aber es könnte bei meiner Originaldatei mit 12 Tabellenblättern ( und ggf. kommen noch mehr hinzu) etwas kompliziert/unübersichtlich werden
Beim googeln habe ich folgenden VBA-Code gefunden, der einen ähnlichen Ansatz verfolgt wie den den ich in meiner Ausgangsfrage gefragt habe.
Leider bezieht sich das auf eine Zelle links davon und bezieht sich auf eine feste Formel ( so wie ich das Laienhaft verstanden habe )
Gibt es da eine Möglichkeit den an meine Bedürfnisse anzupassen (bettel bettel). Für mich als VBA-Laien absolut zu hoch.
Hier der gefundene VBA-Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range
Dim a As Variant
Dim Zeilenzahl As Long
Zeilenzahl = WorksheetFunction.Max(ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row, _
ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row)
For Each Zelle In ActiveSheet.Range(„B2:B“ & Zeilenzahl)
a = Zelle.Offset(0, -1).Value
If a = „“ Or IsNumeric(a) = False Then
Zelle.Value = „“
Else
If Zelle.Value = „“ Then Zelle.Formula = „=RC[-1]*0.05“
End If
Next Zelle
End Sub
Bitte bitte nicht böse sein.
Danke