Tabellenblattdaten automatisiert übertragen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo

statt "Lastdeckung" Spalte V, W gibt es in der Beispieldatei nur das Sheet "Last", mit den Spalten R, S
Der Code wurde abweichend von deiner Frage für Sheet "LAST" entwickelt. Kann umgeschrieben werden!

mfg Piet

Option Explicit         '11.1.24  Piet  für Herber Forum

Dim HKD As Worksheet

Dim rFind As Range, Txt As String



Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("R:S")) Is Nothing Then

   If Target.Row = 1 Or Target.Value = "" Then Exit Sub

   Set HKD = Worksheets("HKD")  'Sheet HKD setzen

   Txt = Cells(Target.Row, 2)   'Raum Nummer laden

   

   Set rFind = HKD.Columns(2).Find(What:=Txt, After:=[b2], LookIn:=xlFormulas, LookAt:= _

       xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False)

   If rFind Is Nothing Then MsgBox Txt & " - Raum Nummer nicht gefunden!": Exit Sub



   If Not rFind Is Nothing Then

      If Target.Column = 18 Then

         rFind.Offset(0, 12) = Target.Value

      ElseIf Target.Column = 19 Then

         rFind.Offset(0, 16) = Target.Value

      End If

   End If

End If

End Sub

Hallo Piet,

vielen Dank für deine Rückmeldung. Gerne konkretisiere ich die Nachfrage nochmal und wäre dir sehr dankbar wenn du den Code entsprechend anpassen könntest.

1. Ja die Raumdaten müssen jeweils aus dem Blatt "Last" in die anderen Blätter übernommen werden. Eine vorhandene Raumnummer oder ähnliches gibt es in den anderen Blätter sonst nicht, und es sollen hier eben auch nur die Raumdaten auftauchen bei denen ein Wert in den Spalte R-U im Blatt Last steht.
2. Es sollen die Daten aus dem Spalten B-F übertragen werden. Ich habe diese jeweils blau markiert. In den Zieltabellen sollen diese einfach von oben nach unten aufgelistet werden, beginnend in Zeile 2.

Außerdem kann es auch Fälle geben, bei denen die Raumdaten in mehrere Blätter übertragen werden müssen, als Beispiel hier die letzte Zeile im Blatt Last, die sowohl in das Blatt HKD, als auch ins Blatt HK übertragen werden soll, allerdings jeweils nur mit der Leistung aus der zugehörigen Spalte (für HKD Spalte R+S, für HK Spalte T)

Anbei die fortgeschrieben Liste mit den genannten Ergänzungen.
https://www.herber.de/bbs/user/166089.xlsx

Gruß Mazze

Beliebteste Forumthreads (12 Monate)

Tabellenblattdaten automatisiert übertragen

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Tabellenblattdaten automatisiert übertragen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread