Anzeige
Archiv - Navigation
1688to1692
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
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!!

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

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige