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?
Hallo,
kopieren nur per VBA!
Wenn Du Beispiele hoch lädst nur ohne Passworte bzw. Schreibschutz!!
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
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.
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
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?
(20.02.2019, 22:24)schauan schrieb: [ -> ]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
Zitat:Ansonsten wäre VBA nötig. Kannst / Darfst Du denn überhaupt vba verwenden?
Klar ist ja für mich
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