Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.10.2025 11:29:24
Algorhitmus, der kleinste Summe von Zahlen berechnet
15.10.2025 10:27:00
Zusammenführen / Synchronisieren von zwei Dateien
15.10.2025 09:51:49
Wenns mit Zahl und Buchstaben
15.10.2025 08:22:15
Privat Sub ObjExcel_Sheet Change....deaktivieren
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
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hilfestellung für Schleife in VBA

Forumthread: Hilfestellung für Schleife in VBA

Hilfestellung für Schleife in VBA
22.10.2021 08:41:20
Lara
Hallo zusammen,
ich arbeite gerade an einer Einsatzplanung unserer Mitarbeiter fürs nächste Jahr. Da auf die Datei alle Führungskräfte Zugriff haben will ich Sie so gut es geht Idiotensicher machen, sonst zerhauen die alles schneller als ich es wieder zurecht rücken kann.
In der Excel gibt es je Monat ein Tabellenblatt, in welchem die Mitarbeiter mit entsprechenden Schichten hinterlegt werden. Ich möchte nun eine Funktion einfügen, damit mit einem Klick eine neue Spalte für einen neuen Mitarbeiter in allen Monaten angelegt wird. Habe hier im Forum schon etwas passendes gefunden, jedoch würde ich gerne die Schleife hierzu vereinfachen. anbei mal die beiden Codes:

Sub ZeileRein2()
ActiveWorkbook.Sheets(3).Activate
Call ZeileRein
ActiveWorkbook.Sheets(4).Activate
Call ZeileRein
ActiveWorkbook.Sheets(5).Activate
Call ZeileRein
ActiveWorkbook.Sheets(6).Activate
Call ZeileRein
ActiveWorkbook.Sheets(7).Activate
Call ZeileRein
ActiveWorkbook.Sheets(8).Activate
Call ZeileRein
ActiveWorkbook.Sheets(9).Activate
Call ZeileRein
ActiveWorkbook.Sheets(10).Activate
Call ZeileRein
ActiveWorkbook.Sheets(11).Activate
Call ZeileRein
ActiveWorkbook.Sheets(12).Activate
Call ZeileRein
ActiveWorkbook.Sheets(13).Activate
Call ZeileRein
ActiveWorkbook.Sheets(14).Activate
Call ZeileRein
ActiveWorkbook.Sheets(15).Activate
Call ZeileRein
End Sub
sowie: 

Sub ZeileRein()
Dim zeile As Long
zeile = InputBox("Welche Zeile?", "Zeile einfügen unter Zeile x")
'hiermit müßte das Format bereits übertragen sein
Rows(zeile + 1).Insert
'***** wenn nicht, dann die folgenden Zeilen aktivieren
'Rows(zeile).Copy
'Rows(zeile + 1).PasteSpecial Paste:=xlPasteFormats
End Sub
An sich funktioniert das schon sehr gut, jedoch muss so für alle 12 Tabellenblätter angegeben werden, unter welcher Zeile der neue Eintrag erstellt wird. Würde mir hier eine Lösung wünschen, bei welcher man einmal angibt unter welcher Zeile der neue Eintrag entstehen soll und er übernimmt es dann automatisch für die anderen 11 Mappen.
Würde mich über jegliche Hilfestellung freuen, bin leider in VBA noch ein Neuling.
Liebe Grüße Lara
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hilfestellung für Schleife in VBA
22.10.2021 09:08:16
Zwenn
Hallo Lara
Es sind 13 Tabellen und ich gehe davon aus, dass "... für die anderen 11 Mappen" sich auf die restlichen Tabellen nach der ersten bezieht. Du kannst das alles in einer kurzen Schleife abhandeln.

Sub ZeileRein()
Dim zeile As Long
Dim tabelle As Byte
zeile = InputBox("Welche Zeile?", "Zeile einfügen unter Zeile x")
For tabelle = 3 To 15
'hiermit müßte das Format bereits übertragen sein
Sheets(tabelle).Rows(zeile + 1).Insert
'***** wenn nicht, dann die folgenden Zeilen aktivieren
'Rows(zeile).Copy
'Rows(zeile + 1).PasteSpecial Paste:=xlPasteFormats
Next tabelle
End Sub
Viele Grüße,
Zwenn
Anzeige
AW: Hilfestellung für Schleife in VBA
22.10.2021 09:19:51
Lara
1.000 Dank, genauso habe ich es mir vorgestellt. Vielen Dank für die schnelle Hilfe
AW: Hilfestellung für Schleife in VBA
22.10.2021 09:23:43
Zwenn
Schau nochmal auf Daniels Lösung. Er nutzt (natürlich) die gleiche Schleife. Aber er stellt die Formatierung der eingefügten Zeilen auf jeden Fall sicher.
AW: Hilfestellung für Schleife in VBA
22.10.2021 09:15:45
Daniel
Hi
mach ne Schleife über die Blätter, dann brauchst du keine Sub

Sub ZeileRein2()
Dim zeile As Long
Dim blatt as long
zeile = InputBox("Welche Zeile?", "Zeile einfügen unter Zeile x")
for blatt = 3 to  15
Sheets(blatt).Rows(zeile + 1).Insert CopyOrigin:=xlFormatFromLeftOrAbove 'mit Format von Zeile drüber
Next
End Sub
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

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
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
Anzeige
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
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
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
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
mit With Sheets .Formula Formel countif einfügen
Peter

Guten Abend
Ich will in eine Zelle eine Formel mit VBA einfügen.
Diese frage ich im Direktfenster wie folgt ab:
?activecell.FormulaR1C1
=COUNTIF(RC[2]:RC[19],">0")
mit folgendem Code will ich diese einfügen, wobei lngx den Wert 18 enthält:
With Sheets("Auswertung").Ra...
06.07.2010 20:31:29
Thread-ID: 1165790
3 Beiträge
datedif in VBA
Heinz

Hallo Excelfreunde,
gibt es die undokumentierte Funktion datedif auch in VBA?
Vielen Dank
Heinz
06.10.2010 11:10:57
Thread-ID: 1180949
3 Beiträge
Warteschleife in VBA
nicospostbox

Hallo zusammen!
Ich habe folgendes Problem: ich habe in Excel einige UserForms eingebaut, die sich automatisch Bilder ziehen, je nachdem, welche Objektnummer ich in Zelle AB3 auswähle. Das funktioniert prima.
Jetzt habe ich eine Seriendruck-Funktion gebaut, die für AB3 alle möglichen We...
15.03.2011 17:15:03
Thread-ID: 1205778
6 Beiträge
Anzeige
If-Abfrage in vba
Dirk

Hallo zusammen!
Mit Hilfe des Forums habe ich mir einen Code gebastelt, der mir eine Dateiliste erstellt. Es werden alle
Dateien im Ordner angezeigt.
Jetzt möchte ich das auf .xls Dateien einschränken. Wenn ich die Wenn-Bedingung in Zeile 3 scharf schalte, werden mir aber keine Da...
24.10.2011 10:47:02
Thread-ID: 1235163
5 Beiträge
VBA; Nur Einträge mit Ziffern anzeigen
Franz

Guten Tag,
möchte gerne in einer markierten Spalte über VBA alle
Einträge, welche Ziffer(n) im Inhalt haben in gelb
hinterlegt haben. Aber wie?
Gruß
15.06.2012 13:28:22
Thread-ID: 1267540
9 Beiträge
Differenz durch Mittelwert in VBA
Michael

Hallo,
ich habe verschiedene Messungen in verschiedenen Jahren (siehe Datei unten):
https://www.herber.de/bbs/user/80679.xlsm
Dabei möchte ich folgendes in VBA berechnen:
=(E10-E9)/Mittelwert(E8:E33)
=(E11-E10)/Mittelwert(E8:E33)
...
für das Jahr 1996, dann 1997 usw...
22.06.2012 02:23:22
Thread-ID: 1268357
18 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