Zeile kopieren bei Zelländerung

[thrustssc]

Wollte jetzt kein neuen Thread aufmachen  das Thema noch gut hier reinpasst.

Ich hab versucht den Code abzuändern für ein anderes Projekt aber iwie will das nicht funktionieren
hab mal eine Datei mit meinem Vorhaben mit beigepackt

evtl liegt es an der Unterschiedlichen Datumsformatierung aber die muss so beibehalten werden wie in der Bsp datei

wie muss ich den code abändern, dass er in dem neuen Fall auch funktioniert

  Vba Kopieren.xlsm (Größe: 15,95 KB / Downloads: 5)

[WillWissen]

Moin,

wie du bemerkt hast, habe ich diesen Beitrag als neues Thema von deinem Thread https://www.clever-excel-forum.de/Thread...#pid202585 abgetrennt. Dieser ist soweit abgeschlossen; eine Fortführung mit anderem Inhalt bläht die Themen unnötig auf und Suchende finden oftmals nicht das Gewünschte.

Bitte vergib noch einen aussagekräftigen Titel. Falls du nicht (mehr) editieren kannst, schreib ihn in einen Beitrag; ich erledige das dann.

[thrustssc]

Ok ich dachte ich mach das mal so weil mir schonmal in einem anderem Forum suggeriert wurde warum ich denn einen neuen Thread aufmache bei fast gleichem Thema
Iss ja nicht schlimm Thema mhh eigentlich das Selbe evtl "Zeile kopieren bei Zelländerung"

[thrustssc]

Keiner ne Idee ?

der code aus der das ähnliche macht  wäre
[quote pid='202652' dateline='1593675520']

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim a As Long
  If Target.Address <> "$A$2" Then Exit Sub
  a = Worksheets("Daten Gesamt").Columns("C").Find(Target.Text, LookIn:=xlValues).Row
  Range("K2:K22").Copy
  Worksheets("Daten Gesamt").Range("c" & a).Offset(, 1).PasteSpecial Paste:=xlPasteValues, Transpose:=True
End Sub

[/quote]
aber lässt sich iwie in dem fall nicht anwenden

[thrustssc]

Hab jetzt selber noch was rum probiert aber komme nicht weiter

Private Sub Worksheet_Change(ByVal Target As Range)
Dim a As Long

If Intersect(Target, Range("g6:g100000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target >= 1 Then

End If
If Target.Value >= 1 Then
'a = Worksheets("Datenbank").Columns("A").Find(Target.Text, LookIn:=xlValues)
Range("c6:g6").Copy
MsgBox "kopiert"
End If
End Sub


Was ich nicht so ganz verstehe wenn ich die rot markierte zeile aktiviere fünktioniert zumindestens das kopieren bis ich eine zahl größer 30 in die spalte g eingebe
anbei nochmal die bsp datei mit dem code

glaube auch nicht wenn ich eine zahl kleiner 30 eingebe das er mir da auf den wert in spalte a schaut
evtl hat ja doch nen VBA Profi mal einen Augenblick Zeit sich das mal anzuschauen

[Steffl]

Hallo,

die Find-Methode liefert dir ein Range-Objekt zurück. Für die Dimensionierung dieser Variable benötigst Du Set.

Code:

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

If Intersect(Target, Range("g6:g100000")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub
If Target >= 1 Then

End If
If Target.Value >= 1 Then
Set a = Worksheets("Datenbank").Columns("A").Find(Target.Text, LookIn:=xlValues)
Range("c6:g6").Copy
MsgBox "kopiert"
'Worksheets("Kopie").Range("c6:g6").PasteSpecial Paste:=xlPasteValues
End If
End Sub

[thrustssc]

ok das kopieren klappt schonmal beim einfügen auf dem anderen blatt meckert er noch aber das bekomm ich schon irgendwie raus nur welche variable oder welchen befehl brauch ich wenn ich jetzt den bereich kopieren will in der Zeile wo ich die Änderung vornehme plus den datumsvergleich