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

vorhandene Schleife erweitern

Forumthread: vorhandene Schleife erweitern

vorhandene Schleife erweitern
25.10.2021 17:30:38
perostojkov
Hallo, sorry falls man nicht darf, aber ich möchte mein Problem so schnell wie es geht lösen.
Es geht um eine Schleife die erweiterr werden soll.
ich habe mein Problem hier gepostet:
https://www.clever-excel-forum.de/Thread-vorhandene-Schleife-erweitern
sorry dass ich so ungeduldig bin und bitte nicht schimpfen, falls es nicht in Ordnung ist doppelt zu posten
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: vorhandene Schleife erweitern
25.10.2021 17:49:22
Yal
Hallo Perostojkov,
Crossposting ist an sich nicht verboten, man muss es nur erwähnen. Somit hast Du es richtig gemacht.
Ich gehe davon aus, dass eine Datei entweder xls oder xlsx oder xlsm aber nie mehr als nur eins davon vorkommt.
In Schleife 3 müsste folgendes stehen:

For a = 1 To UBound(arr)
For monat = 1 To 12
pfad2 = pfad1 & arr(a) & "\" & Format(monat, "00") & "\" & datei & ".xls"      'Gesamt-Pfad wenn unterordner 1-10 mit  0 anfangen
Name1 = Dir(pfad2)
If Name1 = "" Then
pfad2 = Replace(pfad2, ".xls", ".xlsx")
Name1 = Dir(pfad2)
End If
If Name1 = "" Then
pfad2 = Replace(pfad2, ".xlsx", "xlsm")
Name1 = Dir(pfad2)
End If
If Name1  "" Then
Nicht besonders schön aber schön nachvollziehbar.
VG
Yal
Anzeige
AW: vorhandene Schleife erweitern
25.10.2021 19:03:16
perostojkov
PERFEKT
Der fehlende Punkt vor "xlsm" hat mich zum schwitzen gebracht
VIELEN VIELEN DANK YAL
LG perostojkov
Habe geschlampert, sorry :-). owT
25.10.2021 21:18:30
Yal
;

Forumthreads zu verwandten Themen

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
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
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
VBA-Befehl: Zeichen in Schriftart nicht vorhanden
Alex

Schönen guten Tag zusammen,
leider ist der Betreff nicht sehr aussagekräftig, da ich für die Frage etwas weiter ausholen muss. Man möge mir verzeihen.
Lage: Ich will mir für eine Schriftart Code Charts analog denen auf unicode.org erstellen (Beispiel: http://www.unicode.org/charts/PDF/U...
30.09.2009 00:02:51
Thread-ID: 1106220
5 Beiträge
Zugriff auf anderes Worksheet+Formatierung
TommiH

Hallöchen,
ich habe eine Frage und zwar habe ich in Arbeitsblatt 1 z.B. in der Spalte B2 den Wert (Zahl) 1234,5678 stehen, nun möchte ich automatisch in Arbeitsblatt 2 in der Spalte B2 1234.57 eintragen, geht das euch über eine einfache Formel oder brauche ich dafür VBA?
=RUNDEN(Ablatt1...
30.09.2009 09:31:29
Thread-ID: 1106335
6 Beiträge
schriftfarbe ändern bei workbook_open()
joerg

Hallo nochmals,
Ich bin inzwischen begeisterter neu-VBA-Nutzer, mit den üblichen kleinen Anfangs-Problemchen... jetzt zB würde ich gern mit folgendem Code beim öffnen des workbooks in allen Blättern den Text in den Spalten A bis S schwarz färben: Private Sub workbook_open() Dim sheet As Ob...
26.01.2010 22:33:25
Thread-ID: 1133243
12 Beiträge
VBA für Änderungsmodus - Formeln ziehen = Fehler
Jan

Liebe Excelianer,
ich komme heute mal mit einem kleinen Problemchen, bei dem ich aber allein nicht weiterkomme.
Der folgende hübsche Code (bereits mit eurer Hilfe) zeigt mir ab dem Teil "Case is = 7" ob Änderungen an Zellen einer Spalte durchgeführt wurden, indem er einen Kommentar anle...
04.02.2010 15:26:49
Thread-ID: 1135797
7 Beiträge
Anzeige
schleife zum ändern des Backcolors von Labels
Labels

Hallo zusammmen,
ich habe eine UserForm mit über 100 Bezeichnungslabel.
Jetzt möchte ich die Backcolor Farbe jedes einzlen Bezeichnungsfeld nach dem Inhaltswert in einer Schleife ändern lassen.
z.b
if x=1 to 100
if textlabelxxx=1 then textlabelxxx.backcolor=&HFF
end...
07.02.2010 09:50:09
Thread-ID: 1136517
3 Beiträge
Anzeige
Seitenumbruch per VBA nach Begriffsänderung
Hans

Ich habe folgendes Problem: Ich möchte per VBA einen Seitenumbruch variabel definieren. Der Seitenumbruch (oder mehrere) soll z.B. gesetzt werden, wenn in einer Spalte sich der Begriff in der Zelle ändert.
Beispiel: Kunde A ist in C2 bis C5 vorhanden, Kunde B ist in C6 bis C7 vorhanden, Ku...
15.02.2010 09:51:28
Thread-ID: 1138574
6 Beiträge
Anzeige
UserForm CommandButtons schleifengesteuert
Andreas

Hallo Herber Fans,
ich bin gerade dabei, mein Wissen um UserForms zu vertiefen und bin auf ein Problem in der schleifengesteuerten Einrichtung von UserForms gestoßen. Die Suche im Forum und auf meiner Herber CD hat bisher keinen Lösungsansatz zu Tage gefördert.
Also: Ich richte auf eine...
07.06.2010 14:48:31
Thread-ID: 1160687
3 Beiträge
If ... AND ... OR ( Hierarchie ? )
chrissey

Hallo Leut,
würde gerne eine If Bedingung mit AND und OR auslösen, jedoch ist mir nicht ganz klar was hier
dominant ist!
If AK2 = SK2 And Sheets("A").Cells(LA2, 8).Value " " Or Sheets("A").Cells(LA2, 8).Value " " Then
Sheets("A").Rows(LA2).Copy Destination:=Sheets("ABFRAGE_1")...
23.06.2010 17:37:50
Thread-ID: 1163729
4 Beiträge
VBA-Array "durcheinander" berechnen (ohne For..Nex
Alex

Hallo zusammen,
ich möchte gerne eine (eigentlich gut funktionierende) Excel/VBA-Routine in ein VBA-Array portieren. Das hat den einfachen Grund, dass die Excelroutine mit Sverweisen arbeitet und mittlerweile knapp 10.000 "Kenner" mit rund 90.000 Ausgabezellen zu versorgen sind. Ein VBA-Arr...
01.09.2010 14:08:01
Thread-ID: 1175226
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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