Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1716to1720
1716to1720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen auf anderes Arbeitsblatt übertragen, wenn Bedingung erfüllt

Zellen auf anderes Arbeitsblatt übertragen, wenn Bedingung erfüllt
24.10.2019 21:08:43
Rupprecht
Hallo zusammen,
ich habe mal wieder ein Problem, ich habe eine kurze Beispieldatei erstellt, damit ihr mein Problem besser nachvollziehen könnt. In dieser Datei habe ich alle Daten von Hand eingeben, in der echten Datei werden alle Daten automatisch erzeugt, sobald ich die Schicht eintrage.
Jetzt mein Problem, ich bekomme eine Zulage in der Zeit von 20Uhr bis 24 Uhr und eine Zulage von 00Uhr bis 6Uhr, diese schreibt mir auch das Tabellenblatt "Schichtplan" in die Zeilen 13 und 15. Um diese Zulage zu beantragen, müssen die daten in das Formblatt auf dem Tabellenblatt "Zulagenblatt" übernommen werden.
In meinem Beispiel jetzt, von 1. bis zum 6. nichts, dann vom 7. bis 11. und dann vom 28. bis 31. wieder, immer eine Zeile nach der anderen, ohne Leerzeile.
Also ungefähr so, überprüfe, ob in B13 etwas steht, wenn da etwas steht, kopiere die Daten ins Zulagenblatt, wenn nicht gehe zu B15 und überprüfe diese Zelle, danach zu C13, dann zu C15, usw.
Ich bin für jede Lösung dankbar, egal ob Formel, Makro, oder VBA.
Falls noch etwas unklar ist, bitte fragen.
Vielen Dank im voraus, schönen Abend noch,
Mike
https://www.herber.de/bbs/user/132729.xlsx

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen auf anderes Arbeitsblatt übertragen, wenn Bedingung erfüllt
24.10.2019 21:53:51
Regina
Hi, teste mal diesen Code: 
Public Sub Uebertrag()
Dim obj_wks_ziel As Worksheet
Dim obj_wks_quelle As Worksheet
Dim lng_letzte_zeile As Long
Dim lng_spalte As Long
Set obj_wks_ziel = Worksheets("Zulagenblatt")  ' Hier Zieltabellenblatt benennen
Set obj_wks_quelle = Worksheets("Schichtplan")  ' Hier Quelltabellenblatt benennen
lng_letzte_zeile = obj_wks_ziel.Cells(Rows.Count, 1).End(xlUp).Row + 1 ' Letzte zeile im  _
Zielblatt ermitteln
lng_spalte = 2       ' Startzeile im Quellblatt
With obj_wks_quelle
For lng_spalte = 2 To 32
If .Cells(13, lng_spalte)  "" Then
obj_wks_ziel.Cells(lng_letzte_zeile, 1) = .Cells(3, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 2) = .Cells(4, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 3) = .Cells(13, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 4) = .Cells(14, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 5) = .Cells(9, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 6) = .Cells(10, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 7) = .Cells(11, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 8) = .Cells(12, lng_spalte).Value
lng_letzte_zeile = lng_letzte_zeile + 1
End If
If .Cells(15, lng_spalte)  "" Then
obj_wks_ziel.Cells(lng_letzte_zeile, 1) = .Cells(3, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 2) = .Cells(4, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 3) = .Cells(15, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 4) = .Cells(16, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 5) = .Cells(9, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 6) = .Cells(10, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 7) = .Cells(11, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 8) = .Cells(12, lng_spalte).Value
lng_letzte_zeile = lng_letzte_zeile + 1
End If
Next
End With
End Sub
Gruß
Regina
Anzeige
AW: Zellen auf anderes Arbeitsblatt übertragen
25.10.2019 07:38:39
Rupprecht
Hallo Regina,
vielen lieben Dank für deine sehr schnelle und sehr gute Antwort.
Leider ist mir bei erstellen der Beispieldatei ein kleiner Fehler unterlaufen. Mit deinem Makro sucht er ja die letzte freie Zeile und schreibt dann die Daten in diese Zeile. In der Beispieldatei klappt das auch super, nur in der Originaldatei, ist es leider ein Formblatt, in der in den unteren Zeilen und dahinter auch noch etwas steht.
Wäre es möglich, dass das Makro nur in den Zellen I57 bis U117 sucht, welche Zeile leer sind, weil das in diesem Formblatt die Zellen sind, die ich befüllen muss.
Wäre es außerdem möglich, das dieser Bereich immer gelöscht wird, bevor das Makro dieses Bereich beschreibt? Denn wenn ich im ersten Blatt eine Änderung vornehme und dann auf dem zweiten Blatt das Makro ausführe, dann schreibt der es darunter, oder ich muss es von Hand löschen.
Außerdem ist mir noch aufgefallen, das die Pausenzeiten auch da eintragen werden, wo eigentlich keine Pause stattgefunden hat. Zum Beispiel schreibt das Makro in die zweite Zeile, den 8. Dienstag von 0:00 Uhr bis 0:30 Uhr und dann Pause von 21:00 Uhr bis 21:30 Uhr. Ist das möglich, dass das Makro zuvor prüft, ob diese Pausenzeit in dieser Arbeitszeit liegt?
Entschuldige bitte, das ich immer noch mehr möchte, aber es wäre super, wenn das so klappen würde.
Vielen lieben Dank nochmal, und einen schönen Tag,
Mike
Anzeige
Dann lad doch mal bitte....
25.10.2019 08:58:03
{Boris}
Hi,
...eine Mappe mit exakt den Originalkoordinaten hoch.
VG, Boris
AW: Zellen auf anderes Arbeitsblatt übertragen
25.10.2019 09:22:51
Regina
Hi, die ersten beiden Punkte sollten hier behoben sein: 
Public Sub Uebertrag()
Dim obj_wks_ziel As Worksheet
Dim obj_wks_quelle As Worksheet
Dim lng_letzte_zeile As Long
Dim lng_spalte As Long
Set obj_wks_ziel = Worksheets("Zulagenblatt")  ' Hier Zieltabellenblatt benennen
Set obj_wks_quelle = Worksheets("Schichtplan")  ' Hier Quelltabellenblatt benennen
Zielblatt ermitteln
lng_spalte = 2       ' Startzeile im Quellblatt
obj_wks_ziel.Range("I57:U117").ClearContents
lng_letzte_zeile = 57
With obj_wks_quelle
For lng_spalte = 2 To 32
If .Cells(13, lng_spalte)  "" Then
obj_wks_ziel.Cells(lng_letzte_zeile, 1) = .Cells(3, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 2) = .Cells(4, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 3) = .Cells(13, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 4) = .Cells(14, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 5) = .Cells(9, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 6) = .Cells(10, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 7) = .Cells(11, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 8) = .Cells(12, lng_spalte).Value
lng_letzte_zeile = lng_letzte_zeile + 1
End If
If .Cells(15, lng_spalte)  "" Then
obj_wks_ziel.Cells(lng_letzte_zeile, 1) = .Cells(3, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 2) = .Cells(4, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 3) = .Cells(15, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 4) = .Cells(16, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 5) = .Cells(9, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 6) = .Cells(10, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 7) = .Cells(11, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 8) = .Cells(12, lng_spalte).Value
lng_letzte_zeile = lng_letzte_zeile + 1
End If
Next
End With
End Sub
Die Prüfung, ob die Pausenzeiten in den Arbeitszeiten liegen, ist nicht ganz trivial (Mitternachtsproblem), dass müsste ich mir heute abend in Ruhe ansehen. Falls vorher niemand anderes anspringt.
Gruß
Regina
Anzeige
AW: Zellen auf anderes Arbeitsblatt übertragen
25.10.2019 15:02:37
Regina
Hi,
zu Deinen Daten hab eich noch eine Rückfrage:
Soll die Pause 1 nur übertragen werden, wenn sie in der Zulagenzeit 1 liegt und die Pause 2 nur wenn sie in Zulagenzeit 2 liegt?
Oder:
Soll Pause 1 bzw. Pause 2 übertragen werden, wenn sie in einer der Zulagenzeiten liegt?
Da sehe ich noch nicht klar.
Gruß
Regina
AW: Zellen auf anderes Arbeitsblatt übertragen
26.10.2019 08:06:16
Rupprecht
Hallo Regina,
am besten wäre es, wenn es die Pausen nur anzeigen würde, wenn sie auch in dieser Zulagenzeit liegen. Wenn das aber nicht möglich ist, dann ist es auch so in Ordnung, denn dann lasse ich einfach den Übertrag von Pausenzeiten bei Zulagen von 00 Uhr bis 6 Uhr weg, denn es kommt sehr selten vor, das jemand noch Pausen nach 00 Uhr macht und dann müsste er es von Hand eintragen.
Eine andere Frage hätte ich allerdings noch, bei deinem zweiten Makro steht die Zeile "Zielblatt ermitteln". Hat diese Zeile eine Bedeutung, oder müsste davor noch ein "´" stehen?
Vielen Dank für deine Hilfe und entschuldige bitte, das ich Dir so viel Arbeit mache. Schönes Wochenende noch,
Gruß,
Mike
Anzeige
AW: Zellen auf anderes Arbeitsblatt übertragen
26.10.2019 11:34:34
Regina
Hi, hier der überarbeitete Code, die Pausen werden jetzt nur übertragen, wenn sie in der Zulagenzeit liegen. Einzige Ausnahme: Wenn die Zulagenzeit um 0 Uhr beginnt werden keine Pausen übertragen. Guck mal, ob das so passt.
Die eine Zeile im Code war in der Tat "über", war ein Rest, den ich nicht ganz gelöscht hatte.
Public Sub Uebertrag()
Dim obj_wks_ziel As Worksheet
Dim obj_wks_quelle As Worksheet
Dim lng_letzte_zeile As Long
Dim lng_spalte As Long
Set obj_wks_ziel = Worksheets("Zulagenblatt")  ' Hier Zieltabellenblatt benennen
Set obj_wks_quelle = Worksheets("Schichtplan")  ' Hier Quelltabellenblatt benennen
lng_spalte = 2       ' Startzeile im Quellblatt
obj_wks_ziel.Range("I57:U117").ClearContents
lng_letzte_zeile = 57
With obj_wks_quelle
For lng_spalte = 2 To 32
If .Cells(13, lng_spalte)  "" Then
obj_wks_ziel.Cells(lng_letzte_zeile, 1) = .Cells(3, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 2) = .Cells(4, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 3) = .Cells(13, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 4) = .Cells(14, lng_spalte).Value
If .Cells(9, lng_spalte).Value >= .Cells(13, lng_spalte).Value _
And CLng(.Cells(13, lng_spalte).Value * 24)  0 Then
obj_wks_ziel.Cells(lng_letzte_zeile, 5) = .Cells(9, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 6) = .Cells(10, lng_spalte).Value
End If
If .Cells(11, lng_spalte).Value >= .Cells(13, lng_spalte).Value _
And CLng(.Cells(13, lng_spalte).Value * 24)  0 Then
obj_wks_ziel.Cells(lng_letzte_zeile, 7) = .Cells(11, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 8) = .Cells(12, lng_spalte).Value
End If
lng_letzte_zeile = lng_letzte_zeile + 1
End If
If .Cells(15, lng_spalte)  "" Then
obj_wks_ziel.Cells(lng_letzte_zeile, 1) = .Cells(3, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 2) = .Cells(4, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 3) = .Cells(15, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 4) = .Cells(16, lng_spalte).Value
If .Cells(9, lng_spalte).Value >= .Cells(15, lng_spalte).Value _
And CLng(.Cells(15, lng_spalte).Value * 24)  0 Then
obj_wks_ziel.Cells(lng_letzte_zeile, 5) = .Cells(9, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 6) = .Cells(10, lng_spalte).Value
End If
If .Cells(11, lng_spalte).Value >= .Cells(15, lng_spalte).Value _
And CLng(.Cells(15, lng_spalte).Value * 24)  0 Then
obj_wks_ziel.Cells(lng_letzte_zeile, 7) = .Cells(11, lng_spalte).Value
obj_wks_ziel.Cells(lng_letzte_zeile, 8) = .Cells(12, lng_spalte).Value
End If
lng_letzte_zeile = lng_letzte_zeile + 1
End If
Next
End With
End Sub

Anzeige
AW: Zellen auf anderes Arbeitsblatt übertragen
26.10.2019 11:56:04
Regina
... Spalten im Übertrag musst Du Dir dann noch wieder anpassen. Ich befülle A bis H. Du willst ja ab I bis ... befüllen.
Gruß
Regina
AW: Zellen auf anderes Arbeitsblatt übertragen
26.10.2019 17:47:19
Rupprecht
Hallo Regina,
vielen lieben Dank für deine super Hilfe, leider konnte ich es noch nicht testen, aber sobald ich dazu komme, melde ich mich nochmal.
alleine hätte ich das nicht hin bekommen, also nochmals tausend Dank.
Ich wünsche Dir noch ein schönes Wochenende.
Gruß,
Mike
AW: Zellen auf anderes Arbeitsblatt übertragen
30.10.2019 14:10:52
Rupprecht
Hallo Regina,
entschuldige bitte, das ich mich erst heute melde, aber ich habe diese Woche Urlaub und war ein bisschen unterwegs.
Ich habe jetzt versucht, dein Makro auf unsere Originaldatei zu übertragen, komme aber leider nicht ganz zurecht. Bei mir kommt immer die Fehlermeldung "Index außerhalb des gültigen Bereiches", ich weiß aber nicht warum.
Könnte ich dir eventuell mal die Originaldatei zu schicken? Möchte sie aber ungern hier ins Forum stellen.
Schönen Tag noch,
Gruß
Mike
Anzeige
AW: Zellen auf anderes Arbeitsblatt übertragen
30.10.2019 14:20:42
Regina
ok, dann schick mir die Datei:
kontakt@r-resch.de
Gruß
Regina

337 Forumthreads zu ähnlichen Themen

Zellinhalt aus anderer Tabelle übernehmen
Marc

Hallo zusammen,
habe ein Problem mit dem ich einfach nicht weiterkomme (wahrscheinlich für Euch kein Problem...!)
Ich möchte aus einer Tabelle Zellinhalte in eine andere Tabelle im gleichen Arbeitsblatt übernehmen, d.h. aus Tabelle 2 soll der Zellinhalt aus D61 in Tabelle 1 in H60 über...
21.08.2008 22:08:00
Thread-ID: 1003658
3 Beiträge
Anzeige
Daten sortiert aus anderem Tabellenblatt auslesen
Robert

Hallo,
bräuchte eure Hilfe bitte.
Aus einem Tabellenblatt ("FEHLZEITEN") sollen Daten ausgelesen und in einem anderen Tabellenblatt ("EINSATZPLANUNG") ab Zeile 100 eingefügt und bei Änderungen in "FEHLZEITEN" aktualisiert werden.
Habe da mal eine Beispieldatei zur besseren Veransch...
28.08.2008 11:32:00
Thread-ID: 1005356
3 Beiträge
Zeile mit Werten aus anderer Tabelle vergleichen
onkelbobby

Hi,
ich versuche folgendes in meine Datei einzubauen.
Tabelle 2 enthält Adressdaten und eine Infospalte. In diese Infospalte kann der Wert "S" oder der Wert "A" eingetragen werden.
In Tabelle 1 sind auch diverse Adressdaten gepflegt. Alle Adressen in Tabelle 1 sind auch in Tabelle 2...
29.08.2008 10:37:00
Thread-ID: 1005722
3 Beiträge
Anzeige
Cursor auf anderes Blatt springen lassen
KlausF

Schönen Freitag-Morgen Leute!
In einer Datei kontrolliere ich in Tabelle 20 errechnete Werte. Entsprechen diese nicht meinen Vorstellungen, so muß ich in Tabelle 1 in der korrespondierenden Zelle (d.h. die mit der gleichen Adresse wie die aktuelle Zelle in Tab.20) Korrekturwerte eingeben.
26.09.2008 08:02:06
Thread-ID: 1012475
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo ,
erstmal vielen Dank für Eue Hilfen.
Ich würde gerne bei folgendem Blatt von der jeweiligen unteren Zelle einen Übertrag auf die Obere Zelle machen. Wie es normal geht weiß ich.
Meine Frage ist nun kann ich den Wert übernehmen wenn ich das Blatt kopiere.
https://www.herb...
02.10.2008 14:42:14
Thread-ID: 1013889
3 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo,
ich habe diese Frage schon einmal gestellt aber leider komme ich mit der Antwort nicht zurecht.

Ich möchte gerne aus ein Zelle November M47 den Wert in Dezember D9 übernehmen.
Normal würde es funktionieren mit ='November 2008'!M47. Man könnte nun ganz einfach die Stunden...
06.10.2008 11:50:21
Thread-ID: 1014393
7 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Übertrag auf anderes Blatt
Sankt

Hallo
ich habe da ein kleines Problem.
Ich benutze folgende Formel
=INDIREKT(""&WAHL(MONAT(A1)-1;"Januar";"Februar";"März";"April";"Mai";"Juni";"Juli";"August"; "September";"Oktober";"November";"Dezember")&"!D9")
die funktioniert auch so weit ganz gut.
Nun habe ich...
03.11.2008 16:50:00
Thread-ID: 1021376
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
7
2
2
1
2
2
6
1
6
2
6
19
2
4
1
8
4
1
1
4
4
3
8
5