Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 09:47:49
Daten aus mehreren Dateien untereinander importieren
25.04.2024 09:31:31
Bild "In Zelle platzieren"
25.04.2024 09:23:47
Spalten in Kreuztabelle hinzufügen/löschen je nach Vorgabe
25.04.2024 08:41:49
VBA: Probleme mit pdftk zum Zusammenfügen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1348to1352
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1348to1352
1348to1352
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Alle Möglichkeiten aus Tabelle ermitteln

Alle Möglichkeiten aus Tabelle ermitteln
04.02.2014 17:14:58
Matze
Hallo Zusammen,
brauch mal wieder Eure Unterstützung.
Ich benötige einen VBA Code der mir aus "flexiblen Zeilen und Spalten Vorgaben"
die möglichen Kombinationen wie( hier unten dargestellt) im Blatt Ergebnis darstellt.
Die Startzeile ist immer Zeile2 im Blatt Vorgabe und auch im Blatt Ergebnis, damit später mit Überschriften gefiltert werden kann.
Anbei : https://www.herber.de/bbs/user/89097.xlsx
Schaut Euch bitte die Musterdatei an, dankend vorab
Gruß Matze

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

Betreff
Datum
Anwender
Anzeige
AW: Alle Möglichkeiten aus Tabelle ermitteln
04.02.2014 21:41:05
Dieter
Hallo Matze,
du kannst das mit dem folgenden rekursiv arbeitenden Programm machen.
Die Anzahl der Spalten spielt dabei keine Rolle (wenn das Tabellenblatt genügend Zeilen hat).

  • Option Explicit
    Public anzSpalten As Long
    Public letzteZeileE As Long
    Public wsV As Worksheet
    Public wsE As Worksheet
    Sub Aufblasen()
Dim wb As Workbook
Set wb = ThisWorkbook
Set wsV = wb.Worksheets("Vorgabe")
Set wsE = wb.Worksheets("Ergebnis")
wsE.UsedRange.ClearContents
anzSpalten = wsV.Cells(1, wsV.Columns.Count).End(xlToLeft).Column
wsV.Rows(1).Copy Destination:=wsE.Rows(1)
Spalte_bearbeiten Spalte:=1
End Sub


    Sub Spalte_bearbeiten(Spalte As Long)
Dim anfZeile As Long
Dim anzZeilenBlock As Long
Dim letzteZeile As Long
Dim copBereich As Range
Dim zeileE As Long
Dim zeileV As Long
letzteZeile = wsV.Cells(wsV.Rows.Count, Spalte).End(xlUp).Row
If letzteZeile


  • Gestartet wird das Programm "Aufblasen".
    mfg
    Dieter

    • Anzeige
    AW: Alle Möglichkeiten aus Tabelle ermitteln
    05.02.2014 07:41:58
    Matze
    Hallo Dieter,
    genau das sollte erfüllt werden, jetzt muss ich mich nur noch in die Codezeilen reindenken.
    Ich danke vielmals.
    Mit dem kleinen Muster ging es auch relativ flott, schaue später mal was passiert mit mehr Datenanteil.
    Gruß Matze

    Beliebteste Forumthreads (12 Monate)

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

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige