MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 20.03.2019, 13:59   #1
Fleischhut
Neuer Benutzer
Neuer Benutzer
Standard VBA - Zeilen übertragen mit Datumfilter und die noch nicht vorhanden

Hallo,

ich bin noch blutiger VBA Anfänger, habe mich jetzt mit vielen Tutorials und Dr. Google bis hier hin vorgearbeitet und komme aber leider nicht so recht weiter Ich hoffe daher auf Eure Hilfe!

Szenario:
In Tabellenblatt "Mastertabelle" gibt es eine Jahresplanung Kommunikation mit Themen, die verschiedenen Medien zugeordnet werden. Ich konzentriere mich erstmal nur auf "ZfG". In Spalte D steht, ob es zu "ZfG" zugehörig ist oder nicht. In Spalte E steht überdies der Monat, in dem das Thema für dieses Medium relevant ist.

In Tabellenblatt "ZfG" soll es nun eine Detailplanung geben. Dafür übertrage ich alle Werte aus Master, bei denen Spalte D auf "Ja" steht und der Monat mit dem in Zelle "A2" eingetragenen Wert übereinstimmt.

Soweit, so gut, bis hierhin klappt es, auch wenn der Code wahrscheinlich ne Katastrophe ist für Leute, die davon Ahnung haben...

Problem:
Ich will bei erneutem Auslösen des Makros

1. Evtl. alte Beiträge, die nicht dem in A2 angegebenem Monat entsprechen, rauslöschen. Dazu wollte ich einen Filter setzen und die übrig gebliebenen Werte löschen. Ich krieg aber den Filter nicht richtig zum Laufen. Gern auch andere Vorschläge!

2. Alle Werte aus Master übertragen, die noch nicht in ZfG vorkommen (um Dopplungen zu vermeiden). Hier hab ich aktuell keinen sinnvollen Ansatz.

Hier die Datei
Master Kommunikation DGVS.xlsm

Hier mein Code:
Code:

Sub ZfG_kopieren()

Dim Master As Worksheet
Set Master = ThisWorkbook.Sheets("Mastertabelle")
Dim ZfG As Worksheet
Set ZfG = ThisWorkbook.Sheets("ZfG")

Dim Monat As Date
Monat = ZfG.Range("A2").Value

Dim Liste As Range
Set Liste = ZfG.UsedRange.Offset(2, 0)
Liste.AutoFilter 3, Criteria1:="<>" & Format(Monat, "MMMM yy"), Operator:=xlAnd

Liste.Offset(1, 0).Clear

ZfG.AutoFilterMode = False



Master.UsedRange.AutoFilter 5, Criteria1:=Format(Monat, "MMMM yy")
Master.UsedRange.AutoFilter 4, "JA"

Union(Master.UsedRange.Offset(1, 0).Columns(1), Master.UsedRange.Offset(1, 0).Columns(2), Master.UsedRange.Offset(1, 0).Columns(5)).Copy
ZfG.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues

ZfG.Columns(2).WrapText = True

With ZfG.UsedRange
.Borders().LineStyle = xlNone
.Borders().LineStyle = xlContinuous
End With

With ZfG.Range("A1:F2")
.Borders().LineStyle = xlNone
End With

Master.AutoFilterMode = False

End Sub
Über Hilfe wäre ich wahnsinnig dankbar.

Viele Grüße
Johannes
Fleischhut ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 20.03.2019, 14:28   #2
cysu11
MOF User
MOF User
Standard

Hallo Johannes,

lade doch bitte deine Beispieldatei hoch, dann sehen wir weiter!

LG
Alexandra
cysu11 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 21.03.2019, 12:25   #3
Fleischhut
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Alexandra,

die Datei ist im Beitrag verlinkt:
https://www.ms-office-forum.net/foru...hmentid=116054

Geht das so?
Danke und LG Johannes
Fleischhut ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.04.2019, 14:56   #4
Fleischhut
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Liebe Alle, liebe Alexandra,

kann ich noch irgendwas unterstützend an Infos geben? Oder kann einfach keiner helfen?

Lieben Dank und Gruß
Johannes
Fleischhut ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.04.2019, 20:11   #5
Trotio
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,


Konnte dein Anliegen bereits gelöst werden?, wenn nicht schreib mich an.

LG,
Trotio

Geändert von Trotio (14.04.2019 um 20:13 Uhr).
Trotio ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.04.2019, 23:57   #6
Drogist
MOF Profi
MOF Profi
Standard

Moin, welche Excel-Version hast du denn?
In neueren Versionen geht das mit "ganz ohne VBA".

__________________

Internette Grüße
Drogist

(Gut) Gefunden bei Storax: "This isn't a code writing service, you need to do some research and have a go at writing some of your own code."
Ich verwende Excel 2019. Wenn du keine Angaben über deine Version gemacht hast gehe ich davon aus, dass auch du mindestens diese Version hast.

¿¿ Wer schützt mich vor den Datenschützern ??
Drogist ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2019, 08:19   #7
Fleischhut
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

@Drogist: Echt, da ist aber was Wichtiges an mir vorbeigegangen

Ich hab die aktuellste Version (Office 365) - über einen Tipp, wie und wo das einzustellen ist, würde ich mich sehr freuen!
VG Johannes
Fleischhut ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2019, 08:38   #8
Drogist
MOF Profi
MOF Profi
Standard

Moin Johannes,
wenn du mir eine *.xlsx zur Verfügung stellst, schaue ich mir das File gerne einmal an und versuche, eine Lösung zu erstellen. - Ich lade nämlich keine VBA-verdächtigen Files aus dem Netz herunter.

Das geht dann mit Power Query aka Daten | Abrufen und transformieren in diese Richtung: http://www.excel-ist-sexy.de/spalten...-werte-finden/

__________________

Internette Grüße
Drogist

(Gut) Gefunden bei Storax: "This isn't a code writing service, you need to do some research and have a go at writing some of your own code."
Ich verwende Excel 2019. Wenn du keine Angaben über deine Version gemacht hast gehe ich davon aus, dass auch du mindestens diese Version hast.

¿¿ Wer schützt mich vor den Datenschützern ??
Drogist ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2019, 08:42   #9
Fleischhut
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Master Kommunikation DGVS.xlsx

Hier gern als XLSX-Datei - ganz herzlichen Dank! Ich gucke mir derweil auch mal Deinen Link an.
Fleischhut ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:18 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.