Thema Datum  Von Nutzer Rating
Antwort
12.07.2017 05:03:05 Liv
NotSolved
12.07.2017 09:08:35 JoNNy
NotSolved
Rot VBA rechnen
 12.07.2017 12:37:29 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
12.07.2017 12:37:29		 Views:
560		 Rating:
     
Antwort:
  Ja
Thema:
VBA rechnen

Hallo Liv,

Code als Ereignis ins Klassenmodul deiner Tabelle

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range

If Target.Cells.Count > 1 Then Exit Sub

'ich möchte ab Zeile 15 in Spalte B
With Columns("B")
   Set Rng = Range(.Cells(15), .Cells(.Cells.Count))
End With
If Intersect(Rng, Target) Is Nothing Then Exit Sub

'ich möchte ab Zeile 15 in Spalte B eine 1 eintragen
If IsNumeric(Target.Value) = False Or Target.Value <> 1 Then Exit Sub

Application.ScreenUpdating = False
Application.EnableEvents = False

'soll dann immer im die Zelle darüber 4 dazu rechnen
'der letzte Eintrag soll aber den Wert in A2 nicht übersteigen
With Columns("B")
   Range(.Cells(Target.Row + 1), .Cells(.Cells.Count)).Clear
   Set Rng = Range(.Cells(1), Target.Offset(-1))
End With
On Error Resume Next
With Rng
   .Clear
   .FormulaR1C1 = "=IF(R[1]C+4<=R2C1,R[1]C+4,"""")"
   .SpecialCells(-4123, 16).Clear
   .Value = .Value
End With
On Error GoTo 0
Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
12.07.2017 05:03:05 Liv
NotSolved
12.07.2017 09:08:35 JoNNy
NotSolved
Rot VBA rechnen
 12.07.2017 12:37:29 Gast70117
NotSolved