Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1972to1976
1972to1976
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Reiter kopieren wenn 1 oder 2 oder beides WAHR

Forumthread: Reiter kopieren wenn 1 oder 2 oder beides WAHR

Reiter kopieren wenn 1 oder 2 oder beides WAHR
05.04.2024 11:31:40
torro100
Hallo liebe VBA Gemeinde,
folgendes Problem versuche ich zu lösen:
Es sollen die Reiter summary, consolidate und Msl2_light immer in eine neue Datei kopiert werden.
Zusätzlich soll auch der Reiter VoucherUsage_VM#1 in diese neuen Datei kopiert werden, wenn in der Zelle K7 = reserved steht.
Gleiches gilt für den Reiter VoucherUsage_NAS, mit gleicher Abfrage in gleicher Zelle.
Funktioniert soweit super.
Nun kann aber auch in beiden angesprochen Voucher Reitern in K7= reserved enthalten sein, sodass beide Reiter in die neuen Datei kopiert werden sollen.
Da klemmt es.

Mein bisher funktionierender Code für die einzelne Abfrage sieht so aus:

Set wbkAlt = ActiveWorkbook
VM = wbkAlt.Worksheets("VoucherUsage_VM#1").Cells(7, 11) = "reserved" '--wahr oder falsch
NAS = wbkAlt.Worksheets("VoucherUsage_NAS").Cells(7, 11) = "reserved" '--wahr oder falsch

If VM Then
wbkAlt.Worksheets(Array("summary", "consolidate", "Msl2_light", "VoucherUsage_VM#1")).Copy
ElseIf NAS Then
wbkAlt.Worksheets(Array("summary", "consolidate", "Msl2_light", "VoucherUsage_NAS")).Copy
Else
wbkAlt.Worksheets(Array("summary", "consolidate", "Msl2_light")).Copy
End If

Set wbkNeu = ActiveWorkbook
If VM Then
With wbkNeu.Worksheets("VoucherUsage_VM#1").UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
.Cells.FormatConditions.Delete
End With
End If

If NAS Then
With wbkNeu.Worksheets("VoucherUsage_NAS").UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
.Cells.FormatConditions.Delete
End With
End If

With wbkNeu.Worksheets("Msl2_light").UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
.Cells.FormatConditions.Delete
End With

With wbkNeu.Worksheets("consolidate").UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
.Cells.FormatConditions.Delete
End With

With wbkNeu.Worksheets("summary").UsedRange
.Copy
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
.Cells.FormatConditions.Delete
End With

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Reiter kopieren wenn 1 oder 2 oder beides WAHR
05.04.2024 12:23:39
Kuwer
Hallo, 

Sub abc()

  Dim objWs As Worksheet

  Dim strWs As String

  Dim varWs As Variant

  

  varWs = Split("summary,consolidate,Msl2_light", ",")

  With Worksheets("VoucherUsage_VM#1")

    If .Range("K7").Value = "reserved" Then

      ReDim Preserve varWs(UBound(varWs) + 1)

      varWs(UBound(varWs)) = .Name

    End If

  End With

  With Worksheets("VoucherUsage_NAS")

    If .Range("K7").Value = "reserved" Then

      ReDim Preserve varWs(UBound(varWs) + 1)

      varWs(UBound(varWs)) = .Name

    End If

  End With

  Worksheets(varWs).Copy

  

  For Each objWs In Worksheets

    With objWs.UsedRange

      .Copy

      .PasteSpecial Paste:=xlPasteValues

      .PasteSpecial Paste:=xlPasteFormats

      .Cells.FormatConditions.Delete

    End With

  Next objWs

End Sub


Gruß, Uwe
Anzeige
AW: Reiter kopieren wenn 1 oder 2 oder beides WAHR
05.04.2024 12:52:14
torro100
Hallo Uwe,
danke für deine Antwort, die leider nur zum Teil verstehe.
Vor deinem Code wäre bei mir noch:

Pfad = ThisWorkbook.Path 'Pfad der gerade geöffneten Datei
Name = Worksheets("configuration").Range("a1") & "_" & Format(Date, "yyyymmdd") & "_" & Worksheets("configuration").Range("a2") & ".xlsx
If Dir(ThisWorkbook.Path & "\kit calculation\", vbDirectory) = "" Then MkDir (ThisWorkbook.Path & "\kit calculation\")

Warum, weil die neue Datei dann unter dem o.g. Pfad angelegt oder überschrieben werden soll.
In meinem ursprünglichen Code wurde die neue Datei wie folgt gespeichert:

wbkNeu.SaveAs Filename:=Pfad & "\kit calculation\" & Name, FileFormat:=xlOpenXMLWorkbook
wbkNeu.Close savechanges = True
Set wbkNeu = Nothing
Set wbkAlt = Nothing

Jetzt gibt es in deiner Variante ja kein wbkNeu mehr.
Der Vesuch, wbkneu durch objws zu ersetzen scheiterte, vermutlich da du objws als worksheet definiert hast, ich aber ein Workbook anspreche.
Wie gesagt verstehe ich den Code von dir nicht ganz, da ich keinen Bezug zu einer neuen Datei finde.

danke und vg
torro
Anzeige
AW: Reiter kopieren wenn 1 oder 2 oder beides WAHR
05.04.2024 12:59:00
Kuwer
Hallo torro,

vor End Sub einfach noch 

  ActiveWorkbook.SaveAs Filename:=Pfad & "\kit calculation\" & Name, FileFormat:=xlOpenXMLWorkbook

  ActiveWorkbook.Close


Gruß, Uwe
AW: Reiter kopieren wenn 1 oder 2 oder beides WAHR
05.04.2024 13:16:34
torro100
Hallo Uwe,
das war zu dann doch einfach ;-)
Danke klappt wie gewünscht.
vg
torro
Anzeige
AW: Reiter kopieren wenn 1 oder 2 oder beides WAHR
05.04.2024 12:36:43
ralf_b
Eine Variante hab ich auch noch. Ungetestet 

Sub VVV()

  Dim sh As Worksheet

  

    Set wbkAlt = ActiveWorkbook

    VM = wbkAlt.Worksheets("VoucherUsage_VM#1").Cells(7, 11) = "reserved" '--wahr oder falsch

    NAS = wbkAlt.Worksheets("VoucherUsage_NAS").Cells(7, 11) = "reserved" '--wahr oder falsch



    wbkAlt.Worksheets(Array("summary", "consolidate", "Msl2_light")).Copy

    

    Set wbkneu = ActiveWorkbook

    

    If VM Then

        wbkAlt.Worksheets("VoucherUsage_VM#1").Copy wbkneu

    ElseIf NAS Then

        wbkAlt.Worksheets("VoucherUsage_NAS").Copy wbkneu

    End If



    For Each sh In wbkneu

      With sh.UsedRange

        .Copy

        .PasteSpecial Paste:=xlPasteValues

        .PasteSpecial Paste:=xlPasteFormats

        .Cells.FormatConditions.Delete

      End With

    Next

   

End Sub
Anzeige
AW: Reiter kopieren wenn 1 oder 2 oder beides WAHR
05.04.2024 13:07:54
torro100
Hallo Ralf,
bei deiner Variante markiert er mir folgende Zeile,
obwohl sh als worksheets definiert

For Each sh In wbkneu
vg
torro
AW: Reiter kopieren wenn 1 oder 2 oder beides WAHR
05.04.2024 13:11:09
ralf_b
versuch mal so For Each sh In wbkneu.Worksheets
AW: Reiter kopieren wenn 1 oder 2 oder beides WAHR
05.04.2024 13:19:25
torro100
Hallo Ralf,
mag er immer noch nicht.
Aber die Variante von Uwe klappt jetzt wie gewünscht.
Danke für deine Mühe.

vg

torro
Anzeige
;

Forumthreads zu verwandten Themen

Makro nach Öffnen oder bei Zelländerung starten
rainer
Hallo! Hier ein ungetesteter Versuch
Dein Makro heißt Makro1.
Schreibe dann im Coding zu 'Diese Arbeitsmappe'
Private Sub Workbook_Open()
makro1
End Sub
und zusätzlich ins Coding zur betreffenden TabellePrivate Sub Worksheet_Change(ByVal Target As Excel.Range)
if target.address...
16.04.2002 12:05:46
Thread-ID: 113673
2 Beiträge
str... wie weiter für ID3v1 oder ID3v2
Frank

Hallo
geht es wie ich mir das denke, den Code so zu modifizieren das auch MP3-Daten ( ID3v.. ) mit ausgegeben werden können, ausser wie im Code zu ersehen ist, nur Ordner und Dateiname z.b.:
Spalte A: C:\musik\Al Bano & Romina Power\ Spalte B: Al Bano - Angell ( & Romina Power )...
23.03.2010 16:05:05
Thread-ID: 1147880
5 Beiträge
str... wie weiter für ID3v1 oder ID3v2
Frank

Hallo
geht es wie ich mir das denke, den Code so zu modifizieren das auch MP3-Daten ( ID3v.. ) mit ausgegeben werden können, ausser wie im Code zu ersehen ist, nur Ordner und Dateiname z.b.:
Spalte A: C:\musik\Al Bano & Romina Power\ Spalte B: Al Bano - Angell ( & Romina Power )...
23.03.2010 15:04:18
Thread-ID: 1147881
2 Beiträge
Zufallszahl erzeugen zwischen 0,1 und 0,3
ropa

Hallo,
wie kann ich in einem Bereich A1:A100 eine Zufallszahl erzeugen sie Betreff
Grüße
Roland
05.11.2012 21:52:11
Thread-ID: 1285434
4 Beiträge
Aus x zahlen y% 1 und100%-y% 0 generieren
Nimzo

Hallo zusammen
ich hoffe ihr könnt mir helfen.
Ich muss die Zahl 10 (oder auch jede andere Zahl) prozentual z.b. 20 % (kann auch jede andere Prozentzahl sein) zwischen 1 und 0 aufteilen. In dem Beispiel also 2 mal die 1 und 8 mal die 0. Nun muss das ganze noch zufällig in der Reihenfolg...
04.02.2013 17:52:03
Thread-ID: 1297577
7 Beiträge
Wenn Wert1 oder Wert2 dann - als Matrix
Andreas
Hallo Excelprofis,
Ich habe eine Tabelle in die per Makro alle Urlaubstage eines Mitarbeiters aus einem anderem Blatt eingetragen werden.
https://www.herber.de/bbs/user/91579.xlsm
In dieses Blatt sollen dann die Urlaubstage untereinander aufgelistet werden.
Also:
Wenn in Zeile...
19.07.2014 08:46:24
Thread-ID: 1371152
4 Beiträge
Anzeige
ab 6 Kg oder 16 Kg oder 26 Kg aufrunden
Joh@nn

Hallo zusammen
Ich will:
Ab 6 Kg auf volle 10 Kg
oder 16 Kg auf volle 20 Kg
oder 26 Kg auf volle 30 Kg
usw.
aufrunden.
oder 15 Kg abrunden auf volle 10 Kg
oder 25 Kg abrunden auf volle 20 Kg
oder 35 Kg abrunden auf volle 30 Kg
usw.
Wie heist die Formel?
Dan...
12.07.2002 16:42:46
Thread-ID: 136139
6 Beiträge
Anzeige
Zählen wenn "Wort1" oder "Wort2"
Klaus

Hallo!
Ich habe in einer Spalte verschiedene Begriffe:
Spalte A:
Apfel
Apfel/Birne
Apfel/Birne/Pflaume
Immer wenn in einer Zeile das Wort "Apfel" vorkommt, soll gezählt und summiert werden.
In B1 soll dann also stehen: Apfel = 3
Ich hab es mit "ZÄHLENWENN" versuc...
23.07.2015 11:51:19
Thread-ID: 1438053
3 Beiträge
Anzeige
Makro soll in Tab1 oder 2 nicht ausgeführt werden
Julia

Hallo liebes Forum :)
ich möchte gerne, wenn ich mein Makro in der Tabelle1 oder Tabelle2 ausführe dass eine Meldung kommt (sowas wie diese Msgbox) das das Makro nicht ausgeführt werden kann, (die Box mit zb "Abbrechen" schließen) und dann natürlich nicht ausgefürt wird!
Also ich will n...
13.10.2017 21:35:42
Thread-ID: 1585830
4 Beiträge
Filter über Spalten A18, G18 und Z18:1000
Christian

Hallo Zusammen,
vielleicht eine einfache oder sogar eine blöde Frage:
Kann ich über mehrere nicht zusammenhängende Spalten Filter einrichten - hier im Bereich A18:A1000, G18:G1000, Z18:Z1000?
Vielen Dank und viele Grüße
Christian
01.03.2018 09:33:18
Thread-ID: 1611680
2 Beiträge
Daten zwischen 2013 und 2010
Ludicla

Hallo Profis,
wir haben übers Internet eine Datei erhalten.
Mit Version 2013 sind nur bis zu einer Zeile (z.B. 106) die Daten vorhanden
aber in der Version 2010 bzw. sogar 2003 sind mehr Zeilen gefüllt.
Die Ursprungsdatei hat die Endung xlsx und bei der Version hat Excel die Dat...
07.03.2018 12:15:44
Thread-ID: 1612720
5 Beiträge
Anzeige
Text 1 oder Text 2 suchen
Michael

Hallo Ich will in Excel auf die Zelle springen die einen von zwei Texten enthält, also "Text 1" oder "Text 2".Mit nur einem Text habe ich mittels Makro aufzeichnen folgendes geschafft:Cells.Find(What:="Text 1", After:=ActiveCell, LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xl...
21.02.2003 12:13:08
Thread-ID: 222578
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige