Zeile aus Tabelle1 in Tabelle 2 automatisch einfügen

[Nixblick0815]

Hallo,

ist es irgendwie möglich aus einer Tabelle Daten aus einer Zelle  direkt in eine 2. Tabelle zu übernehmen?

Also z.b. alles vom 11.02  dann im Kalender am 11.02?
Wenn
=UND(I6<>"";D6="erledigt";E6="ja")
dann kopieren "Maschine & Stunden" nach Kalender und dann der Reihe nach auffüllen?

[EbyAS]

Hallo,
kopieren nur per VBA!
Wenn Du Beispiele hoch lädst nur ohne Passworte bzw. Schreibschutz!!

[Nixblick0815]

Dann mal so.

also das Datum sollte ja berücksichtigt werden.
und dann die Zeile in Tab2 aufgefüllt werden , je nach der Anzahl der Einträge in Tab 1

[EbyAS]

Hallo,
Deine Darstellung versteht wer will, ich nicht. Kannst Du das nicht etwas besser beschreiben?
Was soll wann passieren und evtl. auch noch Abhänigkeiten.

[Nixblick0815]

Ich versuchs mal besser zu beschreiben:

Also in der Tab1 sind in der B Spalte Daten (Zeile 1-4)
Die sollen dann in der Tab2 in der B, D,F usw. aufgefüllt werden in der Zeile 1
Dazu soll das Datum aus Tab1 A verglichen werden und in Tab2 in diese Zeile kopiert werden

[schauan]

Hallöchen,

wenn es jeden Kalendertag 4 Zeilen zum Übernehmen sind und die Datenquelle nur erweitert und nicht gelöscht wird, könntest Du das per Formel lösen.
Ansonsten wäre VBA nötig. Kannst / Darfst Du denn überhaupt vba verwenden?

[Nixblick0815]

Hallöchen,

wenn es jeden Kalendertag 4 Zeilen zum Übernehmen sind und die Datenquelle nur erweitert und nicht gelöscht wird, könntest Du das per Formel lösen.

Pro Kalendertag 1 bis 5 Zeilen

Ansonsten wäre VBA nötig. Kannst / Darfst Du denn überhaupt vba verwenden?

Klar ist ja für mich

[schauan]

Hallöchen,

hier mal ein Ansatz mit VBA.

Option Explicit

Sub test()
'Variablendeklarationen 
Dim iCnt1%, iCnt2%
'Schleife von unten nach oben - Bereich hat keine Ueberschriften 
For iCnt1 = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
  'Anzahl gleiche Eintraege in Spalte A ermitteln 
  iCnt2 = WorksheetFunction.CountIf(Columns("A"), Cells(iCnt1, 1))
  'Wenn mehr als 2 Eintraege, dann 
  If iCnt2 > 1 Then
    'Eintrag versetzen 
    Cells(iCnt1 - iCnt2 + 1, iCnt2 * 2).Value = Cells(iCnt1, 2).Value
    'Zeile loeschen 
    Cells(iCnt1, 1).Resize(1, 10).Delete Shift:=xlUp
  'Ende Wenn mehr als 2 Eintraege, dann 
  End If
'Ende Schleife von unten nach oben - Bereich hat keine Ueberschriften 
Next
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0