Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1356to1360
1356to1360
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zellen zw. Blättern kopieren wenn Jahr/Monat

Forumthread: Zellen zw. Blättern kopieren wenn Jahr/Monat

Zellen zw. Blättern kopieren wenn Jahr/Monat
06.05.2014 08:22:40
Jan-Gabriel
Guten Tag,
ich komme bei einer Excelaufgabe nicht weiter.
Auf Blatt eins kann ein Jahr gewählt werden. Wenn dieses passiert ist, soll von Blatt 3 die Liegezeit in die Liegezeittabelle auf Blatt 1 kopiert werden.
Dazu muss Monat und Jahr mit dem Datum(auf Blatt 3 Spalte M) verglichen werden und die Zahl(Blatt 3 Spalte O) in die Liegezeittabelle übernommen werden.
Es ist eine Beispieldatei geuploadet. Über Hilfe in Form einer passenden Formel oder eines passenden Codes bin ich sehr dankbar.
Netten gruß
Jan-Gabriel
Datei: https://www.herber.de/bbs/user/90509.xlsx

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen zw. Blättern kopieren wenn Jahr/Monat
06.05.2014 10:07:49
UweD
Hallo
- Vorab folgende Formeln in Blatt 1 einbauen (in M40 und nach rechts kopieren)

=DATUM($N$22;SPALTE(A1);1)
- Das Makro auf die Dropbox legen
Rechtsclick auf die Dropbox
"Makro zuweisen"
Sub Dropdown1_BeiÄnderung()
On Error GoTo Fehler
Dim Jahr, D2 As Date
Dim TB1, TB2, i%, j%
Dim SP1%, SP2%, ZE&, ZL&, ZEK&, LR&
'*** Stammdaten Anfang
Set TB1 = ActiveSheet
Set TB2 = Sheets(3)
SP1 = 13
SP2 = 13
ZEK = 40 'Kopfzeile
ZE = 41  'Einfügen ab Zeile
ZL = ZE + 250 ' Anz Zeilen zum Einfügen
'*** Stammdaten Ende
Jahr = TB1.Range("N22")
LR = TB2.Cells(Rows.Count, SP2).End(xlUp).Row 'letzte Zeile der Spalte
TB1.Rows(ZE & ":" & ZL).ClearContents 'reset
For i = 4 To LR
For j = SP1 To SP1 + 11
D2 = Application.Min(TB1.Cells(ZEK, j + 1), CDate("31.12." & Jahr))
If TB2.Cells(i, SP2) >= TB1.Cells(ZEK, j) And TB2.Cells(i, SP2)  "" Then TB1.Cells(ZE, j) = TB2.Cells(i, SP2 + 1)
End If
Next j
Next i
'*** Fehlerbehandlung
Err.Clear
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err. _
Clear
End Sub
Leere Zellwerte werden übergangen
Gruß UweD

Anzeige
AW: Zellen zw. Blättern kopieren wenn Jahr/Monat
06.05.2014 11:56:32
Jan-Gabriel
Hallo Uwe,
habe mich an die Vorgaben gehalten. Bei Änderung im DD entsteht ein Fehler: Fehler 6, Überlauf.
Muss ich die Spalten ab M40 entsprechend Formatieren?
Hast du eine Idee?
MfG
Jan-Gabriel

AW: Zellen zw. Blättern kopieren wenn Jahr/Monat
06.05.2014 12:51:39
UweD
Hallo
Bei klappt das... für alle Jahre
https://www.herber.de/bbs/user/90514.xlsm
M40: als "MMMM JJJJ" formatieren, dann sieht das genauso aus wie bei dir vorher..
Der Vorteil ist, dass man damit aber dann rechnen kann.
Gruß UweD

Anzeige
AW: Zellen zw. Blättern kopieren wenn Jahr/Monat
06.05.2014 14:04:41
Jan-Gabriel
Moin,
also habe das Problem identifiziert. Die Quelltabelle wird über eine Datenverbindung beim Öffnen der Datei eingelesen, damit kommt das Makro nicht klar.
Gibt es eine Möglichkeit das Makro auf diese Anforderungen anzupassen? Bzw vielleicht gleich TB2 als Verbindung zu definieren?
Netten Gruß
Jan-Gabriel
Anzeige

Forumthreads zu verwandten Themen

Zellen kopieren wenn Ziel nicht leer
Tom

Guten Morgen!
Ich suche mittels VBA folgende Möglichkeit
Suche Zeile für Zeile (Beginnend ab Zeile 4) die Spalte H ab ob etwas drinn steht.
Kopiere den Inhalt in die gleiche Zeile, aber in die Spalte P
Wichtig! Ist die ZIEL-Zelle bereits befüllt (es steht also etwas drin), dann...
18.08.2008 11:18:24
Thread-ID: 1002534
4 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
Zellen kopieren wenn 2 werte stimmen
Andreas

hallo zusammen
ich habe ein problem an welchem ich bereits länger übe. aus einer datenbank möchte ich bestimmte werte in eine liste in einem anderen tabellenblatt einlesen.
vom ablauf her siehts so aus: wenn datum und nr aus der datenbank mit den werten im tabellenblatt "einladung" über...
28.01.2009 19:27:20
Thread-ID: 1044683
3 Beiträge
Zeilen kopieren wenn Bedingung erfüllt
Jupp

Hallo zusammen, ich Grüße euch,
das Forum und die Beiträge finde ich super
Heute wende ich mich als VBA-Neuling mit einem Problem an euch und hoffe, dass mir geholfen wird.
Ich habe eine Tabelle, die doch bereits eine erhebliche Zeilen und Spaltenanzahl erreicht hat.
Nun möchte...
18.03.2009 19:49:40
Thread-ID: 1061595
3 Beiträge
Anzeige
Zellen nach Kriterium automatisch kopieren
Matthias

Hallo zusammen,
ich würde gerne folgende Aufgabe über ein Makro lösen
Ein Tabellenblatt enthält eine Nummer in C3, dieser Nummer sind in weiteren Spalten (A3, B3, D3,...) Werte zugeordnet.
Wenn nun beispielsweise in C100 die gleiche Nummer wie in C3 eingegeben wird, sollen die Werte...
07.08.2009 12:59:15
Thread-ID: 1094257
5 Beiträge
Zellen in neuem Tabellenblatt kopieren
Ingo

Hallo zusammen,
folgendes Problem:
In meiner ersten Spalte sind x Zellen, wobei eine Zelle mehrere Wörter (durch Semikolon getrennt) enthalten können (siehe Überschrift Ausgangssituation).
Diese müssen in einem neuen Tabellenblatt nun untereinander kopiert werden (siehe Überschrift...
10.11.2009 13:16:06
Thread-ID: 1115551
3 Beiträge
Zeile in anderes Tabellenblatt kopieren
Carle

Hallo zusammen!
Ich würde gerne in einem Arbeitsblatt die Kopfzeile einer Tabelle in ein anderes Tabellenblatt derselben Arbeitsmappe kopieren, und zwar in der Weise, dass bei einer Änderung der Tabellenzeile (z. B. durch Einfügen einer neuen Spalte oder Änderung des Werts einer Zelle) sich...
01.02.2010 20:51:08
Thread-ID: 1134230
3 Beiträge
Anzeige
werte in anderes tabellenblatt mit ; kopieren
Helmut

hallo liebe vba’ler,
noch eine letzte frage für heute:
ich habe ein excel-sheet. In diesem habe ich 5 spalten, in denen sich daten (Zahlen, Worte) befinden. Wie kann ich über ein vba-script diese daten in ein anderes tabellenblatt des sheets kopieren, und zwar so, dass die kopierten dat...
08.03.2010 17:51:04
Thread-ID: 1144386
7 Beiträge
Daten in anderes Tabellenblatt kopieren
Werner

Hallo zusammen,
ich möchte Daten von Activen Tabellenblatt in die Tabelle1 kopieren. Ich habe es mit nen Makrorekorter propiert aber ohne Erfolg.
Es sollen im Act. Tabellenblatt die Bereiche:
A1:A30 in die Tabelle1 in die gleichen Zellen (A1:A30) kopiert werden.
C1:A30 in die Ta...
15.09.2010 20:26:28
Thread-ID: 1177919
10 Beiträge
Anzeige
Automatisches kopieren wenn Bedingung erfüllt
Christian

Hallo,
das Forum ist mir empfohlen worden. Also erstmal "Hallo" und vielen Dank für Antworten im Voraus.
Ich möchte meine Umsatztabelle anpassen. Im ersten Tabellenblatt sind Daten enthalten wie Auftragsnummer, Monat, Kundenname, Gerät, Vk-Preis, Land...
Nun möchte ich für jedes Ger...
23.12.2010 13:07:26
Thread-ID: 1192626
2 Beiträge
Anzeige
Zellen B7:K16 in anderes Blatt kopieren
Wolfgang

Hallo,
ich würde gerne erreichen, dass auf Schaltflächendruck aus dem Tabellenblatt "Start" der Bereich B7:K16 in das Tabellenblatt "Archiv" kopiert wird, allerdings immer nach oben -ab B2- als erstes. Vorheriger Text soll nach unten verschoben werden. Habe das mit dem Makrorekorder versuch...
13.02.2011 11:12:08
Thread-ID: 1200486
14 Beiträge
Zellen in anderes Arbeitsblatt kopieren
Stefan

Hallo,
Ich habe eine Quell- und eine Zieldatei in jeweils verschiedenen Arbeitsmappen. Beide Dateien haben die gleiche Struktur.
dazu habe ich folgenden Code, der mir hier zur Verfügung gestellt wurde:
Private Sub CommandButton1_Click() Dim wksQuelle As Worksheet Dim rngRow As Range...
03.03.2011 20:04:40
Thread-ID: 1203864
3 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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