Thema Datum  Von Nutzer Rating
Antwort
14.03.2017 15:16:01 Gast9163
NotSolved
Blau  Zellen mit Bezügen kopieren wenn bestimmt Zelle befüllt ist
 17.03.2017 10:27:48 Gast99860
Solved

Ansicht des Beitrags:
Von:
Gast99860		 Datum:
17.03.2017 10:27:48		 Views:
516		 Rating:
     
Antwort:
 Nein
Thema:
Zellen mit Bezügen kopieren wenn bestimmt Zelle befüllt ist

Ich habe nach längerem Suchen die Lösung gefunden/gebastelt ;-)

Private Sub Worksheet_Change(ByVal target As Range)
Dim Zeile As Long
Dim ZeileMax As Long
Dim n As Long
Dim ActSh As Worksheet
Set ActSh = ActiveSheet
With ActiveSheet 'Tabelle die angesprochen wird
    ZeileMax = .UsedRange.Rows.Count 'feststellen wieviele Zeilen die Tabelle hat
    n = ZeileMax + 1
    If ActSh.Cells(ZeileMax, 6).Value <> "" Or ActSh.Cells(ZeileMax, 7).Value <> "" Then ' Prüfung ob in der Spalte "F" oder "G" der letzten Zeile etwas steht
        ActSh.Rows(3).Copy Destination:=ActSh.Rows(n) 'kopieren der 3. Zeile; Ziel = aktive Tabelle
    End If
End With
End Sub

Ich habae aber auch noch das Feld "G4" in die Prüfung mit eingefügt ;-)

Liebe Grüße Dieter

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.03.2017 15:16:01 Gast9163
NotSolved
Blau  Zellen mit Bezügen kopieren wenn bestimmt Zelle befüllt ist
 17.03.2017 10:27:48 Gast99860
Solved