Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 07:35:33
Matrix auslesen und in Liste umwandeln
17.04.2024 21:55:37
Preiserhöhung über mehrere Jahre berechnen
17.04.2024 20:19:32
Endzeitpunkt berechnen aus d:hh:mm errechnen
17.04.2024 18:57:33
Errinnerungsfunktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1672to1676
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
1672to1676
1672to1676
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

For und If in VBA schachteln

For und If in VBA schachteln
15.02.2019 11:03:24
alex
Hallo zusammen,
ich habe folgendes Problem: ich habe viele Tabellenblätter, von denen einige die exakt gleiche Struktur im Aufbau besitzen. Den Inhalt dieser möchte ich auf einem neuen Blatt auflisten lassen (ganz oben einmal mit Überschriftzeile, ansonsten immer erst ab Zeile 2).
Ich hatte bisher schon einiges gefunden, jedoch nie eine korrekte Lösung. Die Syntax ist also wie folgt:
For i = 1 to Worksheets.count
gehe zum jeweils aktiven Blatt
wenn zelle A1="ja"
kopiere alles ins neue arbeitsblatt
sonst mache nichts
i = i+1
Ich wäre dankbar für einen Hinweis, wenn ich versucht habe for und if zu schachteln, kamen leider immer Fehlermeldungen.

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

Betreff
Datum
Anwender
Anzeige
AW: For und If in VBA schachteln
15.02.2019 11:06:59
ede
Hallo Alex,

For i = 1 to Worksheets.count   ' durchlauf für jedes Blatt
if Bedingung then
'kopiere alles ins neue Arbeitsblatt
else
'sonst mache nichts
end if
next i

AW: For und If in VBA schachteln
15.02.2019 11:12:53
alex
Hi ede,
so ähnlich habe ich es bisher auch, jedoch kommt immer der Fehler "Argument ist nicht optional".
Bisher sieht es so aus: 
Sub Konsolidieren()
Dim Wks As Worksheet
Dim Bereich As Range
Dim strLC As String
Dim i As Integer
Set Wks = Worksheets.Add
Wks.Name = "Konsolidierung"
For i = 1 To Worksheets.Count
If Range.Value("A1") = "ja" Then
With Worksheets(i).UsedRange
strLC = .Cells(.Rows.Count, .Columns.Count).Address
Set Bereich = .Range("A2:" & strLC)
Bereich.Copy Destination:= _
Wks.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Else
End If
Next i
End Sub

Anzeige
AW: For und If in VBA schachteln
15.02.2019 11:28:02
Werner
Hallo Alex,
würde ich so machen: 
Option Explicit
Sub Konsolidieren()
Dim Wks As Worksheet, loLetzte As Long
Set Wks = Worksheets.Add
Wks.Name = "Konsolidierung"
Set Wks = Nothing
Application.ScreenUpdating = False
For Each Wks In ThisWorkbook.Worksheets
Select Case Wks.Name
Case "Konsolidierung", "Noch_einBlatt", "weiteres_Blatt"
'hier die Blätter die nicht bearbeitet werden sollen anführen
Case Else
With Wks
If .Range("A1") = "ja" Then
.UsedRange.Copy
With Worksheets("Konsolidierung")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
.Cells(loLetzte, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
End With
End Select
Next Wks
End Sub
Gruß Werner
Anzeige
AW: For und If in VBA schachteln
15.02.2019 11:38:04
alex
Hallo Werner,
danke erstmal für die Hilfe.
Zwei kleine Wünsche hätte ich noch:
- Falls schon ein Blatt konsolidierung besteht, dieses vorher leeren/löschen.
- Beim ersten Kopieren inkl. 1 Zeile (damit Überschriften vorhanden sind), ab dem zweiten Kopiervorgang nur noch ab 2. Zeile bis letzte.
Vielen Dank :)
AW: For und If in VBA schachteln
15.02.2019 11:45:24
Werner
Hallo Alex,
warum denn bitte der ganze Aufwand mit dem prüfen ob vorhanden oder nicht und wenn dann....
Leg dir doch einfach einmalig ein Blatt "Konsolidierung" an. In die erste Zeile kopierst du dir die Überschriften die du brauchtst und fertig.
Option Explicit
Sub Konsolidieren()
Dim Wks As Worksheet, loLetzte As Long
Application.ScreenUpdating = False
Worksheets("Konsolidierung").UsedRange.Offset(1).ClearContents
For Each Wks In ThisWorkbook.Worksheets
Select Case Wks.Name
Case "Konsolidierung", "Noch_einBlatt", "weiteres_Blatt"
'hier die Blätter die nicht bearbeitet werden sollen anführen
Case Else
With Wks
If .Range("A1") = "ja" Then
.UsedRange.Offset(1).Copy
With Worksheets("Konsolidierung")
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Offset(1).Row
.Cells(loLetzte, 1).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End With
End If
End With
End Select
Next Wks
End Sub
Gruß Werner
Anzeige
AW: For und If in VBA schachteln
15.02.2019 12:16:24
alex
Danke Werner,
das war eine gute Idee und funktioniert super :)
Gerne u.Danke für die Rückmeldung. o.w.T.
15.02.2019 13:21:21
Werner
AW: For und If in VBA schachteln
15.02.2019 11:33:25
ede
Hallo nochmal,
Werner war schneller und hat einen guten Lösungsvorschlag unterbreitet, in deinem Code sind auch Fehler (If aus welchem Sheet, Ende With fehlt)

311 Forumthreads zu ähnlichen Themen

VBA - If Anweisung mehrerer Abfragen
Jana

Hallo liebes Forum!!
Ich stehe gerade komplett (mal wieder auf dem Schlauch)!..
Ich habe einen umfangreichen VBA-Code mit Arrays. Nun möchte ich, dass in der Spalte 3 geguckt wird, ob die Zahl 2,3,7,9,11 oder 13 in dieser Zelle steht. Ist einer dieser Zahlen vorhanden, dann soll eine Va...
11.09.2008 12:06:28
Thread-ID: 1009072
3 Beiträge
Anzeige
Schleife: Zählen mit 2 Bedingungen
Sabrina

Hallo liebe Excel - Freunde,
Wollte erstmal sagen, dass ich das Forum ganz toll finde. Hat mir als Einsteiger schon den ein oder anderen Tipp gegeben.
Nun habe ich ein spezifisches Problem, bei dem ich einfach nicht weiterkomme. Ich hoffe ihr könnte mir dabei ein bisschen helfen.
Ic...
23.11.2008 20:21:00
Thread-ID: 1027155
6 Beiträge
ein Format in Zahl umwandeln VBA
Michael

Hallo!
Welche Möglichkeit gibt es über VBA eine Tabelle die ich zugesendet bekomme. Die Werte in Zahlen umzuwandeln. Beispiel
number name___ old__ new Change Change %
500041 system 23.26 23.28 -0.71 -2.45% #WERT!
540014 cpu 69.95 69.99 -0.22 -0.31% #WERT! =F...
29.01.2009 10:37:00
Thread-ID: 1044870
7 Beiträge
Anzeige
VBA: Sub in anderem Workbook aufrufen
Peter/Berlin

Hi VBA-Könner/Kenner,
vielleicht bekomme ich bei Euch die nötige Anregung zu folg. Problem:
Im Arbeitsspeicher geöffnet sind die Workbooks "A" und "B".
Von "A" aus soll eine Sub xyz in "B" aufgerufen werden (Call xyz).
Es erscheint der Fehler: Sub nicht definiert oder ähnlich...
02.04.2009 13:20:17
Thread-ID: 1066313
2 Beiträge
Schriftart einer Email aus Excel mit VBA änder
Helmut

Hallo,
ich generiere aus Excel eine Email und möchte in dieser generierten Email die Schriftart im Body verändern.
Kann mir jemand helfen?
Danke
Helmut
11.05.2009 15:01:05
Thread-ID: 1074366
2 Beiträge
VBA Code if or then nicht richtig
andreas

Hallo zusammen,
habe hier in einer Anwendung einen kleine Code bei dem wird der Systembenutzer abgefragt, das funktioniert. Jetzt soll folgendes passieren, wenn der Benutzer "Andreas" oder "martin2" ist, soll Spalte "f:G" eingeblendet sein, bei allen anderen Systembenutzern soll Spalte "F:G...
13.05.2009 11:25:25
Thread-ID: 1074763
9 Beiträge
Schleife von Basic in VBA umschreiben
Basic

Hallo Excel-Freunde,
da ich kein VBA-Basic schreiben kann, würde ich gerne eure Hilfe beanspruchen.
Die vorliegende Basic For Next Schleife läuft mit den angegebnen Variablen und Parameter,
würde sie gerne in VBA_Code mit einem Makro jedesmal starten.
A = 11 : B = 12
For I =...
18.07.2009 17:17:03
Thread-ID: 1089659
9 Beiträge
if ... then.. AND?
Sascha

einen schönen guten tag an alle,...
wie kann ich nach Then, vba 2 "Dinge" tun lassen ....(was für ein deutsch)... :)
If Sheets("Prüfen").Range("E10") = "Nein" Then
intAntb = MsgBox(Prompt:="Nicht vollständig, WEITER?", Buttons:=vbYesNo)
if intAntb = vbNo Then Exit Sub And? Userf...
29.09.2009 15:29:34
Thread-ID: 1106213
5 Beiträge

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
3
5
6
3
1
1
8
8
4
4
5
6
11
5
7
6
6
3
4
2
2
8
5
13