Makro - Kopieren Wert einer Zelle von Tabelle zu anderen Spalte in anderer Tabelle

Wähle alle Zellen in der Spalte, kopieren
<br />Wähle eine Zelle außerhalb der Tabelle, rechts-klick \ Werte einfügen
<br />Die jetzt gewählten Zellen außerhalb der Tabelle kopieren
<br />Die erste Zelle in der Tabellenspalte wählen, rechts-klick \ Werte einfügen
<br />Die Werte außerhalb der Tabelle entfernen
<br />Das war's, ab jetzt mach die Tabelle eine leere Zelle bei neuen Zeilen.
<br />Andreas.
<br />

Ich könnte bei der Deaktivierung von Tabelle Verwaltung eine Schleife über L8:L207 laufen lassen, die prüft ob zb. Beispiel

Dieser Satz lässt mich mutmaßen das Du mit "Tabelle" keine wirkliche Tabelle sondern ein Tabellenblatt meinst.

Wenn also im Blatt "Monat" und im Blatt "Verwaltung" die Zeilen gleich sind, dann kannst Du doch das Change Ereignis benutzen...

Andreas.

Private Sub Worksheet_Change(ByVal Target As Range)

  Dim Source As Range, Dest As Range

  'Was in Spalte L geändert?

  Set Target = Intersect(Target, Range("L:L"), Me.UsedRange)

  'Nein, dann raus

  If Target Is Nothing Then Exit Sub

  'Jede geänderte Zelle

  For Each Source In Target

    'Referenziere die gleiche Zelle in "Monat" Spalte J

    Set Dest = Worksheets("Monat").Range("J" & Source.Row)

    'Wert reinschreiben

    Dest.Value = Source.Value

  Next

End Sub

Hallo Andreas.

Vielen Dank. Das funktioniert prima!

Schönen Abend

Michael

Hallo,

verwende dazu den Autofilter. Damit kannst du dir nur Zeilen mit einer bestimmten Bedingung in einer Spalte anzeigen lassen. Die Zeilen, die diese Bedingung nicht erfüllen, werden ausgeblendet.

Filtere deine Tabelle nach dem gewünschten Wert, kopiere dann die gefilterte Tabelle und füge sie in ein anderes Arbeitsblatt ein. Beim Kopieren einer gefilterten Tabelle werden nur die sichtbaren Zellen kopiert.

Claus

Das funktioniert so nicht.
<br />Ich möchte in Tabelle Info folgende werte automatisch angezeigt bekommen.
<br />Wenn Tabelle Aktuelle Fälle B3 = Ja und Wert in Y3 gleich oder größer Heute in Tabelle Info Zelle B5
<br />Wenn Tabelle Aktuelle Fälle D3 nicht leer und Wert in Y3 gleich oder größer Heute und identisch mit Wert in Zelle B5 in Tabelle Info Zelle C5
<br />Wenn Tabelle Aktuelle Fälle F3 nicht leer und Wert in Y3 gleich oder größer Heute und identisch mit Wert in Zelle B5 in Tabelle Info Zelle D5
<br />Wenn Tabelle Aktuelle Fälle G3 nicht leer und Wert in Y3 gleich oder größer Heute und identisch mit Wert in Zelle B5 in Tabelle Info Zelle E5
<br />Wenn Tabelle Aktuelle Fälle Y3 nicht leer und Wert in Y3 gleich oder größer Heute und identisch mit Wert in Zelle B5 in Tabelle Info Zelle F5
<br />Alle werte Zählen in Tabelle Aktuelle Fälle spalte H die Text Mitarbeiter enthalten und identisch mit den Werten aus B5 und C5 in Tabelle Info
<br />Alle werte Zählen in Tabelle Aktuelle Fälle spalte H die Text Bewohner enthalten und identisch mit den Werten aus B5 und C5 in Tabelle Info
<br />Alle werte Zählen in Tabelle Aktuelle Fälle spalte H die Text Mitarbeiter enthalten und identisch mit den Werten aus B5 und C5 in Tabelle Info und wert in Tabelle Aktuelle Fälle Y3 gleich oder größer Heute ist
<br />Alle werte Zählen in Tabelle Aktuelle Fälle spalte H die Text Bewohner enthalten und identisch mit den Werten aus B5 und C5 in Tabelle Info und wert in Tabelle Aktuelle Fälle Y3 gleich oder größer Heute ist
<br />das soll sich Automatisch aktualisieren. so das ich zu dem Fall mit der entsprechenden Fallnummer und Gebäude tagesaktuelle werte habe
<br />