Thema Datum  Von Nutzer Rating
Antwort
14.10.2016 13:26:50 Marc
NotSolved
Blau Relativer Bezug
 14.10.2016 18:30:59 Gast70117
NotSolved

Ansicht des Beitrags:
Von:
Gast70117		 Datum:
14.10.2016 18:30:59		 Views:
568		 Rating:
     
Antwort:
  Ja
Thema:
Relativer Bezug

Soweit verstanden ??????????

Option Explicit

'Klassenmodul der Tabelle wo

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
   Set Rng = Range("B14:B64")
   If Intersect(Rng, Target) Is Nothing Then Exit Sub
   
   If Target.Value = "YES" Then
      Application.EnableEvents = False
      Add_Row_Subsequent_Tooling Target.Row
      Rng.ClearContents
      Target.Value = "YES"
      Application.EnableEvents = True
   End If
   
End Sub

-

Option Explicit

'Codemodul Modul1

Sub Add_Row_Subsequent_Tooling(xs As Long)
Dim xe As Long           'letzte Zeile der Tabelle mind. 1 Überschrift ist schon da

   
   xe = Cells.Find("*", [a1], , , xlByRows, xlPrevious).Row + 1
   Union(Columns("AX").Cells(xs), _
      Columns("AY").Cells(xs), _
         Columns("BC").Cells(xs)).Copy Columns("AX").Cells(xe)
   
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
14.10.2016 13:26:50 Marc
NotSolved
Blau Relativer Bezug
 14.10.2016 18:30:59 Gast70117
NotSolved