Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
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
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Liste aus Tabelle generien VBA

Liste aus Tabelle generien VBA
09.12.2016 08:48:49
Fabi
Hallo zusammen,
versuche mir einen Arbeitsschritt zu vereinfachen...möchte gerne aus einer Tabelle (siehe Datei) eine Liste generieren für jede Nummer...mit VBA wenn möglich...
Hier die Beispiel-Datei:
https://www.herber.de/bbs/user/109947.xlsx
Falls Fragen bitte stellen...
Grüsse
Fabi

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

Betreff
Datum
Anwender
Anzeige
AW: Liste aus Tabelle generien VBA
09.12.2016 10:16:55
UweD
Hallo
meinst du das so?
Sub Mediacontrol()
    On Error GoTo Fehler
    Application.ScreenUpdating = False
    Dim TB1, TB2, Sp As Integer
    Dim RR As Long, LR As Long, i As Long, ZZ As Long
    Set TB1 = Sheets("Sheet1")
    Set TB2 = Sheets("Sheet2")
    Sp = 1 'Spalte A 
    
    'Reset 
    With TB2
        RR = .Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes 
        .Rows("5:" & RR).Delete xlUp
    End With
    
    LR = TB1.Cells(TB1.Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte 
    ZZ = 4
    For i = 4 To LR
        TB2.Cells(ZZ - 1, 3) = TB1.Cells(i, 1)
        TB1.Range(TB1.Cells(i, 2), TB1.Cells(i, 14)).Copy
        TB2.Cells(ZZ, 3).PasteSpecial Paste:=xlPasteValues
        Application.CutCopyMode = False
        If i < LR Then
            TB2.Rows("2:4").Copy TB2.Rows(ZZ + 1)
            ZZ = ZZ + 3
        End If
    Next
Fehler:
    If Err.Number <> 0 Then MsgBox "Fehler: " & _
        Err.Number & vbLf & Err.Description: Err.Clear
End Sub

UweD
Anzeige
AW: Liste aus Tabelle generien VBA
09.12.2016 10:34:24
Fabi
Genau so in der Art...werde jetzt nochmal die Formatierung per Makrorecorder versuchen zu übernehmen, falls ich es nicht schaffe werde ich mich nochmal melden...
trotzdem schonmal vielen dank!

303 Forumthreads zu ähnlichen Themen

AddIn mit VBA aus der Liste entfernen
JogyB

Hallo zusammen.
Ich habe ein AddIn, das von einer größeren Anzahl von Nutzern verwendet wird und ab und an mal upgedatet werden muss. Bislang lief das von Hand, mittlerweile erledige ich das über folgenden Code: ' Tauscht das AddIn aus Private Sub ExchangeAddin(myAddIn As AddIn) Dim addInSt...
13.08.2009 14:20:41
Thread-ID: 1095600
7 Beiträge
Anzeige
Auszug Liste aus Liste - ohne Doppler ohne VBA
nontacky

Hallo Leute,
ich suche eine performante Lösung für ein kleines Problem, das leider meine Fähigkeiten übersteigt:
Ich habe in Tabellenblatt 1 eine Liste von 5000 Zeilen mit teilweise gleichen Einträgen in Spalte A. Jetzt möchte ich in Tabellenblatt 2 nur jene Einträge aus Tabellenblatt 1...
28.07.2011 11:48:24
Thread-ID: 1224038
4 Beiträge
Zufallszahl erzeugen zwischen 0,1 und 0,3
ropa

Hallo,
wie kann ich in einem Bereich A1:A100 eine Zufallszahl erzeugen sie Betreff
Grüße
Roland
05.11.2012 21:52:11
Thread-ID: 1285434
4 Beiträge
Anzeige
VBA Wert aus DropDown Listen in anderem Feld
Tobias

Hallo,
für folgende Funktion komme ich nicht zur richtigen Lösung:
Ich habe in den Zellen C1, C2, C3, C4, C5 jeweils eine Auswahlliste. Nun Soll wenn ein Wert in C1 vorhanden ist, dieser in E1 angezeigt werden. Soweit so gut :-)
Wenn nun aber ein Wert in C1 und C2 steht, soll der We...
28.11.2013 11:48:47
Thread-ID: 1340365
5 Beiträge
VBA Copy/Paste über ext. Datei und Auswahlliste
Thomas

Guten Abend.
Ich bin wieder total gerädert.
Seit Stunden sitzte ich an folgendem Problem:
ich möchte aus einer Listbox (die über einen Button geöffnet wird) auf eine ausgewählte (externe und bereits geöffnete) Datei zugreifen, und dann von der ausgewählten Datei in einem Tabellenbla...
29.10.2014 22:55:27
Thread-ID: 1389492
4 Beiträge
Liste aus mehreren Dateien mit VBA erstellen
Roman

Hi @all,
ich bräuchte dringend eure Hilfe!
Wie kann ich mit Hilfe eines VBA-Codes Werte aus verschiedenen Excel-Files eines Ordners automatisch in eine neue Excel-Datei importieren.
Die Werte sitzten in jeder Excel-Datei an der gleichen Stelle zB Überschrift in C10 Wert dazu in D10...
30.06.2015 16:15:25
Thread-ID: 1434088
14 Beiträge
VBA AutoFilter Auswahl aus Liste füttern
WalterK

Schönen Sonntag,
ich möchte die Auswahl für den Autofilter aus einer Liste füttern:
die Liste befindet sich im Bereich K3:K?
Und das ist mein Problem, die Liste ist unterschiedlich lang: manchmal stehen Einträge von K3:K10, dann wieder von K3:K4 usw.
Wie muss man das im Code anf...
27.09.2015 16:52:32
Thread-ID: 1449632
7 Beiträge
Datenüberprüfungs liste auslesen in VBA
baschti007

Hallo ich würde gerne in einer bestimmten Zelle die Datenüberprüfungs Liste auslesen mit Vba, da die Tabelle wo die Daten der Liste stehen ausgeblendet wurde.
Geht so etwas ?
Gruß Basti
26.07.2016 08:31:01
Thread-ID: 1506220
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
2
3
3
6
4
3
13
6
4
6
2
3
14
9
1
1
4
2
8
11
1
7
2
4