Anzeige
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 Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

Forumthread: 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
Anzeige

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
Anzeige
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
Anzeige
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

Forumthreads zu verwandten 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
Kombinationsfelder mit Daten aus anderer Tabelle
Bernhard

Hallo liebe Freunde,
ich brauche wieder einmal Eure Hilfe beim Umstricken eines VBA Codes, den ich hier im Archiv gefunden habe.
Die Userform hat u.a. 2 Kombinationsfelder, die mit den Daten aus den Spalten B bzw. C gefüllt werden. Wenn ich die Auswahl in Kombi1 treffe, wird Kombi2 glei...
25.08.2008 15:48:18
Thread-ID: 1004492
8 Beiträge
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
Bestimmten wert aus anderer Tabelle ermittlen.
Torsten

stehe gerade etwas auf dem schlauch....grummel sehe bestimmt den formel vor zeilen nicht ;)
also mal meion problem mal kurz umrissen:
Tabelle A - sheet1
Spalte B : Nummern
Spalte G : Bezeichner
Tabelle B - sheet2
Spalte G : Nummern
Spalte H : Bezeichner
erklärung...
10.09.2008 17:31:48
Thread-ID: 1008877
2 Beiträge
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
Anzeige
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
Summenprodukt auf anderes Blatt beziehen
Reinhard

Hallo Wissende, diese Formel in einer bedingten Formatierung in Tabelle1 fuktioniert: =SUMMENPRODUKT(($C$1:$C$100=$A3)*($D$1:$D$100=$B3))>0 Vegebe ich aber z.B. für Tabelle2!$A:$A den Namen TabA Tabelle2!$B:$B den Namen TabB so tut sich nichts bei der bedingten Formatierung in Tabelle1 bei...
27.11.2008 11:02:50
Thread-ID: 1028275
3 Beiträge
Spalten aus einem Tabellenblatt auslesen
Kiewel

Hallo,
bin seit langem Nutzer des Forums und der CD, komme nun aber nicht mehr weiter. Villeicht kann mir ja einer von Euch Profis weiterhelfen.
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Datum /Uhrzeit von/Uhrzeit bis/Team /Thema1/Thema2/Thema3
04...
05.01.2009 16:20:25
Thread-ID: 1037009
7 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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