Zelleninhalt Tabelle 2 in Tabelle 1 kopieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) Dim intLZ As Integer If Target.Column 1 Then Exit Sub If Target.Count > 1 Then Exit Sub If Target.Value = "x" Then Application.EnableEvents = False With Sheets("Prüfplan") intLZ = .Cells(Rows.Count, 8).End(xlUp).Row + 1 .Cells(intLZ, 8).Value = Target.Offset(, 1).Value .Cells(intLZ, 9).Value = Target.Offset(, 2).Value End With Application.EnableEvents = True End If End Sub

Servus Patrick,
xlUp steht für die Suchrichtung.
intLZ = .Cells(Rows.Count, 8).End(xlUp).Row + 1
bedeutet einfach nur suche mir in Spalte 8 von unten nach oben die letzte befüllte Zeile und addiere 1.
teste mal...


Private Sub Worksheet_Change(ByVal Target As Range)
Dim intLZ As Integer
Dim wsq As Worksheet
Dim wsz As Worksheet
Dim treffer As Integer
If Target.Column  1 Then Exit Sub
If Target.Count > 1 Then Exit Sub
Set wsz = Sheets("Prüfplan")
Set wsq = Sheets("Sonderprüfbedingungen")
intLZ = wsz.Cells(Rows.Count, 8).End(xlUp).Row + 1
Application.EnableEvents = False
If Target.Value = "x" Then
With wsz
.Cells(intLZ, 8).Value = Target.Offset(, 1).Value
.Cells(intLZ, 9).Value = Target.Offset(, 2).Value
End With
Else
treffer = wsz.Range("H20:H" & intLZ).Find(what:=Target.Offset(, 1)).Row
With wsz
.Cells(treffer, 8).Value = ""
.Cells(treffer, 9).Value = ""
End With
End If
Application.EnableEvents = True
Set wsz = Nothing
Set wsq = Nothing
End Sub

Für die Prüfzeit würde ich einfach im Blatt "Prüfplan" in die Zelle "I20" diese Formel eintragen und runterkopieren.
=WENNFEHLER(SVERWEIS(H20;Sonderprüfbedingungen!$B:$C;2;FALSCH);"")
Dann aber bitte im Code oben diese Zeilen löschen


.Cells(intLZ, 9).Value = Target.Offset(, 2).Value
.Cells(treffer, 9).Value = ""

Grüße, Bernd

Hi, also es ist nun so: Wir lassen ddie Formel mit dem SVerweis weg. So kann dann manuell im Prüfplan die Zeit angepasst werden, bei Bedarf.
Mein Chef hätte gerne folgendes (wenn möglich):
Wird die Bezeichnung im Tabellenblatt "Sonderprüfbedingungen" nachträglich geändert, wäre es gut, wenn automatisch auch der entsprechende Eintrag im "Prüfplan" aktualisiert wird.
Wenn ich mehrere "x" gleichzeitig lösche, werden die Zeilen im Prüfplan nicht geleert.Ist es möglich, wenn einzelne "x" gelöscht wurden, dass er auch von oben nachsieht, ob eine leere Zeile vorhanden ist, um Einträge zu machen? Sowas wie erst von oben nachsehen und wenn nicht leer, dann erste freie Zelle von unten befüllen?
Außerdem: Wenn ich ein "x" mache, dann füllt er korrekt aus. Nun mache ich (versehentlich) ein weiteres "x" an gleicher Position und er trägt erneut in eine neue Zeile ein.
Jetzt wäre es also noch gut, wenn keine Doppeleinträge mit gleichem Inhalt möglich wären.
Und dann hat er noch den Wunsch, wenn er eine neue Spalte unter Sonderprüfbedingungen einfügt, dass dieser Inhalt dann auch kopiert wird. Im Beispiel wurde eine Spalte E (Test) eingefügt bei Sonderprüfbedingungen. In VBA möchte ich nun, dass bei Markierung der Inhalt in Spalte "Test" vom Prüfplan ebenfalls übernommen wird.
Da ich kaum noch was verstehe, habe ich es zwar versucht, siehe Code, aber es wird nun ein "x" gesetzt und das nicht in jeder entsprechenden Zeile, anstatt dass der Inhalt eingebunden wird.
Ich weiß, das ist viel und ich habe es nicht verstanden.... :-(
https://www.herber.de/bbs/user/127786.xlsm

Beliebteste Forumthreads (12 Monate)

Zelleninhalt Tabelle 2 in Tabelle 1 kopieren

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Zelleninhalt Tabelle 2 in Tabelle 1 kopieren

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

310 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread