Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
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
1688to1692
1688to1692
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schleife bis Zelle leer

Forumthread: Schleife bis Zelle leer

Schleife bis Zelle leer
24.04.2019 13:18:31
Knier
Hallo Zusammen!
Bevor ich jetzt einen Tag brauche, zur Lösung meines Problems, frage ich doch lieber euch.
Ich habe das folgende kleine Marko:
Sub Uebersicht_Bestand()
Range("A2").Select
Selection.End(xlToRight).Select
spalte = ActiveCell.Column
zeile = ActiveCell.Row
Cells(zeile, spalte + 1).Activate
ActiveCell.FormulaR1C1 = "=VLOOKUP(R2C1,Monatssaldo!C1:C2,2,FALSE)+RC[-1]"
End Sub
Kann mir bitte jemand helfen daraus eine Schleife zu machen, sodass nach dem gleichen Prinzip Zeile für Zeile abgearbeitet wird, bis in Spalte A eine leere Zelle auftaucht.
Vielen lieben Dank für jede Form der Unterstützung!!
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Besser wäre eine Musterdatei
24.04.2019 13:41:16
UweD
..denn ich denke, du brauchst keine Schleife
AW: Besser wäre eine Musterdatei
24.04.2019 14:21:59
UweD
Hi
Modul1
kannst du unabhäng davon ausführen, auf welchen Blatt du bist
Sub Pivot_aktu_anderes_Blatt()


    With Sheets("Pivot")
        .PivotTables("PivotTable1").PivotCache.Refresh
        .PivotTables("PivotTable2").PivotCache.Refresh
    End With
End Sub

Modul2 (das Hauptproblem)
Sub Uebersicht_Bestand()
    Dim TB, LC As Integer, LR As Long
    
    Set TB = Sheets("Gesamtsaldo")
    LR = TB.Cells(TB.Rows.Count, "A").End(xlUp).Row 'letzte Zeile der Spalte 
    LC = TB.Cells(2, TB.Columns.Count).End(xlToLeft).Column 'letzte Spalte der 2. Zeile 

    With TB.Cells(2, LC + 1).Resize(LR - 1, 1)
        .FormulaR1C1 = "=VLOOKUP(RC1,Monatssaldo!C1:C2,2,FALSE)+RC[-1]"
        .Value = .Value
    End With
    
End Sub
Modul3, Makro1
Frage: welche Zelle ist ausgewählt?
LG UweD
Anzeige
AW: Besser wäre eine Musterdatei
24.04.2019 14:34:29
Knier
Modul 3 waren nur experimentieren...Brauche ich jetzt auch nicht mehr
Es funktioniert!!! :-DDDDDD
Ich danke dir sehr!!!!
Prima! Danke für die Rückmeldung. owT
24.04.2019 14:37:07
UweD
;

Forumthreads zu verwandten Themen

vba Leere zellen löschen wenn
Carmen

Hallo liebe Wissenden,
möchte gerne wenn die zellen in Spalte B UND C leer sind dass die gesamte Zeile gelöscht wird, aber vba will keine überlappung.
Sub Leerzeilen_löschen() Range("B1:C100").SpecialCells(xlCellTypeBlanks).EntireRow.delete End Sub
hab das ganze mit if davor und...
06.04.2009 21:26:03
Thread-ID: 1067195
8 Beiträge
Emailtext mit Schleife bis Zelle leer
Gonzer

Hallo zusammen,
ich würde gerne automatisch eine EMail per Excel erstellen lassen, was auch funktioniert, und dabei den Emailtext variabel gestalten.
Heisst also eine Schleife einbauen bis in Spalte B kein Wert mehr enthalten ist:
Sub sendMail() Dim OutApp As Object, OutMail As Obje...
11.03.2010 09:03:45
Thread-ID: 1145040
8 Beiträge
VBA - nicht schliessen wenn Pflichtfelder leer
MT

Hallo,
ich habe mal wieder ein kleines Problem in Excel - was für euch sicherlich (hoffentlich) ne Kleinigkeit ist.
Und zwar habe ich eine Mustervorlage erstellt, bei der gewissen Pflichtfelder auszufüllen sind. Diese sind für eine bessere Sichtbarkeit entsprechend grau hinterlegt.
13.09.2011 13:09:34
Thread-ID: 1229666
3 Beiträge
VBA leere Zellen füllen
Erik

Hallo zusammen,
ich würde gern per Buttonklick eine Abfrage starten wollen, wobei bestimmte Zellen auf leere Zellen gecheckt werden und wenn welche vorhanden sind, in diese ein "n.b." schreibt.
Mein ansatz:
Sub button() If Sheets(Tabelle1).Cells(1, 1).Value = "" Then Sheets(Tabelle...
01.06.2012 10:19:56
Thread-ID: 1265689
3 Beiträge
VBA Datei öffnen und darin 1. leere Zelle finden
Steve

Hello ihr Profis,
ich stehe irgendwie auf dem Schlauch und hoffe ihr könnt helfen. Es soll einfach nur geprüft werden of eine Datei vorhanden ist. Wenn diese NICHT vorhanden ist, soll eine bestimmte Excel Tabelle geöffnet und in dieser nach der ersten freien Zelle gesucht werden. Ich dachte...
07.02.2014 12:46:16
Thread-ID: 1348494
9 Beiträge
VBA - Formel ändern wenn Zelle nicht leer
Thomas

Hallo,
ich brauch bitte Hilfe, weil ich an folgender Aufgabenstellung hänge:
Ich verwende in Spalte N folgende Formel:
=WENN($M2="";"";INDEX(Preismatrix!$E$5:$E$200;VERGLEICH($M2;Preismatrix!$D$5:$D$200;0)))
Nun muss ich diese Formel per Buttondruck von E5:E200 in F5:F200 ändern...
15.10.2014 15:25:28
Thread-ID: 1386815
6 Beiträge
Anzeige
VBA-Code: Schleife wird nicht durchlaufen...
Florian

Hallo zusammen,
ich habe mir eine kleine Funktion in VBA geschrieben; hierbei soll eine Schleife durchlaufen werden, solange ein gewisses Datum vorliegt.
Während dieses Durchlaufs sollen, falls "bessere" Lösungen gefunden werden, diese jeweils gespeichert werden...Leider wird die Schle...
21.11.2014 10:16:07
Thread-ID: 1393659
3 Beiträge
VBA Schleife Loeschen von best. Zeilen
best.

Liebes Forum,
ich habe eine Tabelle mit sehr vielen Zeilen in der folgenden Form
Artikelnummer Maschine Fertigungsauftrag Datum Menge Zyklus
Nun soll ein Makro ueber diese Tabelle laufen und zunaechst bei allen Artikeln, die haeufiger als 5x vorkommen, jeweils die Zeilen mit dem ael...
08.03.2015 08:02:50
Thread-ID: 1413538
9 Beiträge
VBA Schleife Zellen auswählen und selektieren
Andreas

Hallo,
trotz langem Suchen habe ich keine Lösung gefunden. Ich hoffe Ihr könnt mich helfen.
Folgende Ausgangssituation:
- Mappe „Makro“ befindet sich nur ein Button mit meiner Makro.
- In der Mappe „Daten“ befinden sich alle Informationen die selektiert und kopiert werden sollen...
08.06.2015 14:34:45
Thread-ID: 1429823
4 Beiträge
VBA: alle leeren Zellen mit Formeln leeren
Honigdachs

Liebes Forum,
ich will die erste leere Zelle in Spalte A finden (Mit leer meine ich hier leer vom Inhalt, aber nicht echt leer.) und alle leeren, aber mit Formeln befüllten Spalten und Reihen rechts daneben und darunter leeren, also die Formeln rauslöschen.
Mein Ansatz ist:
With She...
27.05.2016 13:43:46
Thread-ID: 1495578
10 Beiträge
VBA: Leere Zelle finden und ganze Zeilen einfügen
Juliane

Hallo,
ich möchte gern 7 Zeile an einer anderen Stelle einfügen. Diese andere Stelle befindet sich am Ende der Liste (gleicher Reiter), dort wo Spalte A das erste mal leer ist.
So weit ich weiß, ist das mehr oder weniger "Standard" in VBA. Trotzdem komme ich mit meiner Recherche im Inte...
10.06.2016 14:24:10
Thread-ID: 1498232
5 Beiträge
VBA - SVERWEIS in einer Spalte bis leere Zelle
Spies

Hallo zusammen,
Ich möchte mit Hilfe eines Makro-Steuerelements einen in VBA programmierten SVERWEIS durchführen, der in einer definierten Spalte und einer definierten Zelle beginnen soll bis er in der Spalte auf die erste leere Zelle stösst. Die Daten für den SVERWEIS stehen in einem ander...
02.12.2016 11:22:09
Thread-ID: 1528336
4 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