Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1408to1412
1408to1412
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro-Schleife benötigt

Forumthread: Makro-Schleife benötigt

Makro-Schleife benötigt
23.02.2015 10:25:16
Maic
Hallo liebe Forumsmitglieder,
wer kann mir bei einer Makro-Schleife in der angehängten Datei helfen?
Im Blatt "Variablen" kann ich Zellen eingeben, die dann aus diversen Excel-Dateien ausgelesen werden, die im ebenfalls vorgegebenen Pfad liegen.
Zur Zeit lassen sich die voreingestellten Variablen im Makro nur manuell erweitern, da mir dafür ausreichende VBA-Kenntnisse fehlen. Das Makro liest nur die Zellen bis Zeile 12 (Zelle 8) aus. Ich würde gerne eine Schleife benutzen, die solange Daten ausliest, wie Variablen im Reiter Variablen vorgegeben sind, also beliebig, bis keine weitere Zellen vorgegeben werden.
Die Datei liegt hier:
https://www.herber.de/bbs/user/95922.xlsm

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro-Schleife benötigt / Leeren
24.02.2015 08:06:11
MCO
Moin!
Du hast doch im späteren Verlauf schon eine Schleife die ganz ähnlich aufgebaut ist.
Verwende folgenden Ansatz um die Variablen zu durchlaufen:
With Sheets("Variablen")
For Each cl In .Range("C5:C999").SpecialCells(xlCellTypeConstants)
strSheetR = cl.Offset(0, 1)
strCellQ = cl
'weiterer Makroverlauf
Next cl
end with

Das Leeren kannst du einfach so erledigen, ohne select: 
Sub Leeren()
' Leeren Makro
Sheets("Ergebnis").Rows("2:" & Sheets("Ergebnis").Range("A2").End(xlDown).Row).Rows. _
ClearContents
End Sub
Gruß, MCO

Anzeige
AW: Makro-Schleife benötigt / Leeren
24.02.2015 08:48:04
Maic
Hallo MCO,
vielen Dank für deinen Vorschlag, nur habe ich mir die bestehenden Makros aus verschiedenen Dateien zusammengewerkelt und halbwegs angepasst, weil ich leider nur sehr wenig Ahnung von Makro-Programmierung habe. Deshalb weiß ich jetzt auch nicht, wo ich deinen Vorschlag mit der Schleife einbauen muss :-(
Kannst du mir nochmal helfen?
Gruß,
Maic
Anzeige
;

Forumthreads zu verwandten 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
VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
Register der Multifunktionsleiste per VBA aktivier
Günther

Hallo!
Ich würde gerne per VBA das aktive Register der Multifunktionsleiste verändern (konkret: das Register Add-Ins aktivieren, damit dessen Inhalte im Vordergrund sichtbar werden).
Kennt jemand den entsprechenden Befehl? Wenn ja, mir bitte kurz mitteilen.
Herzlichen Dank im Voraus...
23.11.2008 17:51:53
Thread-ID: 1027119
4 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
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
Anzeige
VBA Daten einlesen mit var. Überschriftenzeile
Stefan

Hallo zusammen,
ich habe vor einiger Zeit hier schon mal um Rat gefragt als ich Daten aus einer externen Arbeitsmappe einlesen wolle. Nun möchte ich in einem Optionsblatt eine Variable einbinden in der die Überschriftenzeile zum einlesen steht:
Public Sub data() Dim objWB As Workbook, o...
17.11.2009 13:40:57
Thread-ID: 1117728
6 Beiträge
If Not Selection.Copy Then ???
Karsten

Hallo,
ich möchte, dass wenn ich kopiert habe und auf eine andere Zelle wechsele, Target.WrapText = True übersprungen wird.
Da meine Codekonstruktion noch nicht stimmt, wird immer die Zelle in die ich wechsele, im Kopiermodus angezeigt. Kann mir jemand helfen?
Private Sub Worksheet_...
02.12.2009 01:41:36
Thread-ID: 1121269
6 Beiträge
VBA: String nach der letzten Ziffer abschneiden
joerg

Hallo,
bestimmt ganz einfach, wenn man weiss wie's geht: Ich habe eine Reihe von Strings, zB 'abc_0323BAII' - wie kann ich von diesen die letzten Stellen abschneiden, so dass alles bis zur letzten Ziffer übrigbleibt? (Also, manche der Strings haben am Ende auch nur einen oder zwei oder gar...
06.02.2010 10:38:56
Thread-ID: 1136335
12 Beiträge
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
if-Funktion in vlookup - VBA
PeterO

Hallo Forum,
ich stoße bei der Integration von Formeln in VBA immer wieder an meine Grenzen. Folgende Formel möchte ich gern in meinem Makro darstellen:
=WENN(SVERWEIS($B$16;amob;WENN($B$11="Da";2;WENN($B$11="Fa";3;4));1)*$B$16/1000>=mp_amob; SVERWEIS($B$16;amob;WENN($B$11="Da";2;WEN...
09.04.2010 13:45:43
Thread-ID: 1150798
7 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

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