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:
660
Rating: Antwort:
  Ja
Thema:
Relativer Bezug

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
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

-

1
2
3
4
5
6
7
8
9
10
11
12
13
14
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