Thema Datum  Von Nutzer Rating
Antwort
08.07.2021 08:04:26 Dominik
NotSolved
Blau VBA Zeile kopieren und wieder einfügen
 15.07.2021 19:49:26 xlKing
NotSolved
15.07.2021 19:56:34 xlKing
NotSolved

Ansicht des Beitrags:
Von:
xlKing		 Datum:
15.07.2021 19:49:26		 Views:
614		 Rating:
     
Antwort:
  Ja
Thema:
VBA Zeile kopieren und wieder einfügen

Hallo,

Den Sinn dahinter hab ich zwar nicht ganz verstanden, aber probier mal den folgenden Code und berichte:

Private Sub Worksheet_Change(ByVal Target As Range)
  Range("B" & Target.Row) = Date + Time
  
  If Target.Column = 11 And LCase(Target.Cells(1).Value) = "ja" Then
    If Application.CountA(Range("A" & Target.Row, "J" & Target.Row)) = 10 Then
      Range("A" & Target.Row, "F" & Target.Row).Copy
      Range("A" & Target.Row, "F" & Target.Row).Offset(1, 0).PasteSpecial xlPasteAll
      Range("J" & Target.Row).Copy
      Range("J" & Target.Row).Offset(1, 0).PasteSpecial xlPasteAll
      Range("A" & Target.Row + 1) = Range("A" & Target.Row) + 1
      Application.CutCopyMode = False
    Else
      MsgBox "Es wurden noch nicht alle Felder ausgefüllt. Ja kann nicht gesetzt werden!", vbExclamation
      Target.Cells(1) = ""
    End If
  End If
  
End Sub

Gruß Mr. K.

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
08.07.2021 08:04:26 Dominik
NotSolved
Blau VBA Zeile kopieren und wieder einfügen
 15.07.2021 19:49:26 xlKing
NotSolved
15.07.2021 19:56:34 xlKing
NotSolved