Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1460to1464
1460to1464
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA - Daten aus mehreren in ein Tabellenblatt

Forumthread: VBA - Daten aus mehreren in ein Tabellenblatt

VBA - Daten aus mehreren in ein Tabellenblatt
03.12.2015 15:17:38
Josef
Hallo zusammen,
ich habe eine relativ harte Nuss, bei der ich nicht weiterkomme und hoffe auf eure Hilfe.
Hier ein grobes Beispiel, welches darstellen soll, was ich habe und wohin ich möchte:
https://www.herber.de/bbs/user/101988.xlsm
Ich hoffe das Beispiel und meine Ausführungen sind verständlich.
Ausgangslage: ich habe eine Excel-Mappe mit vielen Tabellenblättern, aufgebaut wie Tabelle1 und Tabelle2 in meiner Beispieldatei. Jedes Tabellenblatt behandelt eine Ktr-Nummer (Spalte A). Spalte B und D enthalten die Kto-Nummer und dessen Bezeichnung. In Spalte W wird die RST-ID gebildet. Spalte C und H sind ausgegraut, da sie für das Makro nicht relevant sind.
Ich möchte nun ein Makro haben, welches zunächst nach dem Monat fragt, der behandelt werden soll und dann Zeile für Zeile folgendes überprüft:
  • RST-ID (wenn vorhanden) enthält kein „x“

  • Betrag des Monats (Spalte I bis T, je nachdem welcher Monat) ist nicht 0

    • Wenn beides true ergibt, sollen die Informationen dieser Zeile und der passende Betrag in ein neues Sammel-Tabellenblatt kopiert werden, welches erstellt wird. Der Name des neuen Tabellenblatts soll aus dem Wort „RST“ und dem eingegeben Monat inkl. Jahr bestehen (im Beispiel also „03,15“).
    Das Makro soll so alle Zeilen in allen Tabellenblättern durchlaufen und die passenden Informationen in ein Sammel-Tabellenblatt schreiben. Jedes Tabellenblatt hat dabei einen beschriebenen Bereich von ca. 130 Zeilen.
    Wie gesagt, ich hoffe es ist einigermaßen verständlich.
    Ich habe schonmal mit der Abfrage angefangen, kam aber nicht weiter. Hier was ich bisher habe:
    Sub RST()
Const X As String = "x"
Dim Zelle As Range
Dim Monat As Long
Monat = Application.InputBox("Bitte Leistungsmonat eingeben.")
For Each Zelle In ActiveSheet.Range("W4:W4")
If InStr(Zelle.Value, X) = 0 And Zelle.Offset(0, Monat - 15).Value  0 Then
Debug.Print Zelle.Offset(0, Monat - 15).Address
'Zu Testzwecken debug.print
End If
Next Zelle
End Sub

    Ich bin für alle Vorschläge offen.
    LG
    Jupp

    Anzeige

    9
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: VBA - Daten aus mehreren in ein Tabellenblatt
    03.12.2015 17:26:55
    Sepp
    Hallo Jupp,
    probier mal.
    ' **********************************************************************
    ' Modul: Modul1  Typ: Allgemeines Modul
    ' **********************************************************************

    Option Explicit

    Sub RST()
    Dim objWS As Worksheet, objWSNew As Worksheet
    Dim rng As Range
    Dim varMonth As Variant, varCol As Variant
    Dim varOut() As Variant, varTemp(8) As Variant
    Dim lngI As Long, lngN As Long
    Dim strName As String
    Dim CalculationMode As Long

    On Error GoTo ErrorHandler

    With Application
      .ScreenUpdating = False
      .EnableEvents = False
      CalculationMode = .Calculation
      .Calculation = xlManual
      .DisplayAlerts = False
    End With

    varMonth = Application.InputBox("Bitte geben sie den Leistungsmonat an!", "Leistungsmonat", Month(Date), Type:=1)

    If Not varMonth = False Then
      If varMonth > 0 And varMonth < 13 Then
        Redim varOut(0)
        varOut(0) = Array("RST ID", "Ktr", "Kto", "RST-Kto", "Dienstleister", "Dienstleister-Nr", "Beschreibung", "Betrag", "Leistungsmonat")
        For Each objWS In ThisWorkbook.Worksheets
          If objWS.Name Like "Tabelle*" Then
            With objWS
              varCol = Application.Match(Format(DateSerial(1, varMonth, 1), "MMMM"), .Rows(1), 0)
              If IsNumeric(varCol) Then
                For Each rng In .Range("W3:W" & Application.Max(3, .Cells(.Rows.Count, 23).End(xlUp).Row))
                  If rng <> "" Then
                    If InStr(1, rng.Text, "x") = 0 And .Cells(rng.Row, varCol) <> 0 Then
                      varTemp(0) = rng
                      varTemp(1) = .Cells(rng.Row, 1)
                      varTemp(2) = .Cells(rng.Row, 2)
                      varTemp(3) = .Cells(rng.Row, 7)
                      varTemp(4) = .Cells(rng.Row, 5)
                      varTemp(5) = .Cells(rng.Row, 6)
                      varTemp(6) = "RST - " & .Cells(rng.Row, 4) & " - " & .Cells(rng.Row, 5) & " - " & Format(DateSerial(Year(Date), varMonth, 1), "MM,yy")
                      varTemp(7) = .Cells(rng.Row, varCol)
                      varTemp(8) = Format(DateSerial(Year(Date), varMonth, 1), "MM,yy")
                      lngI = lngI + 1
                      Redim Preserve varOut(lngI)
                      varOut(lngI) = varTemp
                    End If
                  End If
                Next
              End If
            End With
          End If
        Next
        If lngI > 0 Then
          Set objWSNew = ThisWorkbook.Worksheets.Add(after:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count))
          With objWSNew
            strName = "RST " & Format(DateSerial(Year(Date), varMonth, 1), "MM,yy")
            Do While SheetExist(strName)
              lngN = lngN + 1
              strName = "RST " & Format(DateSerial(Year(Date), varMonth, 1), "MM,yy") & " (" & lngN & ")"
            Loop
            .Name = strName
            .Rows(1).Font.Bold = True
            .Rows(1).HorizontalAlignment = xlCenter
            Range("A1").Resize(lngI + 1, UBound(varTemp) + 1) = Application.Transpose(Application.Transpose(varOut))
            .Range("A1").AutoFilter
            .Columns.AutoFit
            For lngI = 1 To UBound(varTemp) + 1
              .Columns(lngI).ColumnWidth = .Columns(lngI).ColumnWidth + 5
              Select Case lngI
                Case 2 To 4, 6, 9
                  .Columns(lngI).HorizontalAlignment = xlCenter
                Case 8
                  .Columns(lngI).NumberFormat = "?0,0"
                Case Else
              End Select
            Next
          End With
          With ActiveWindow
            .SplitColumn = 0
            .SplitRow = 1
            .FreezePanes = True
            .Zoom = 85
          End With
        Else
          MsgBox "Es wurden keine Daten gefunden!", vbExclamation
        End If
      Else
        MsgBox "Ungültige Monatsangabe!", vbExclamation
      End If
    End If

    ErrorHandler:

    With Err
      If .Number <> 0 Then
        MsgBox "Fehler in Prozedur:" & vbTab & "'nn'" & vbLf & String(25, "—") & _
          vbLf & vbLf & IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & _
          "Fehlernummer:" & vbTab & .Number & vbLf & vbLf & "Beschreibung:" & vbTab & _
          .Description & vbLf, 81968, "VBA - Fehler in Prozedur - RST", .HelpFile, .HelpContext
        .Clear
      End If
    End With

    On Error GoTo 0

    With Application
      .ScreenUpdating = True
      .EnableEvents = True
      .Calculation = CalculationMode
      .DisplayAlerts = True
      .StatusBar = False
    End With

    Set rng = Nothing
    Set objWS = Nothing
    Set objWSNew = Nothing
    End Sub

    Private Function SheetExist(ByVal sheetName As String, Optional Wb As Workbook) As Boolean
    Dim wks As Object
    On Error GoTo ErrorHandler
    If Wb Is Nothing Then Set Wb = ThisWorkbook
    For Each wks In Wb.Sheets
      If LCase(wks.Name) = LCase(sheetName) Then SheetExist = True: Exit Function
    Next
    ErrorHandler:
    SheetExist = False
    End Function

    Gruß Sepp

    Anzeige
    AW: VBA - Daten aus mehreren in ein Tabellenblatt
    04.12.2015 08:13:58
    Josef
    Wow, es funktioniert tadellos. Vielen Dank Sepp!
    Gruß
    Jupp

    AW: VBA - Daten aus mehreren in ein Tabellenblatt
    04.12.2015 08:30:08
    Josef
    Hallo nochmal,
    eine Frage hab ich aber noch.
    Die Quell-Tabellenblätter haben in ihrer eigentlichen Verwendung nicht den Namen "Tabelle1" etc., sondern andere.
    Die Zeile
    If objWS.Name Like "Tabelle*" Then
    lässt das Makro also abbrechen, wenn das der Fall ist.
    Was kann ich machen damit es auch mit anderen Namen geht?
    Gruß
    Josef

    Anzeige
    AW: VBA - Daten aus mehreren in ein Tabellenblatt
    04.12.2015 08:48:19
    Sepp
    Hallo Josef,
    sollen alle Tabellen, außer evtl. vorhandenen 'RTS...' bearbeitet werden?
    Oder welche Tabellen sollen nicht berücksichtigt werden?
    Gruß Sepp

    AW: VBA - Daten aus mehreren in ein Tabellenblatt
    04.12.2015 08:55:18
    Josef
    Guten Morgen Sepp,
    Kann man es so einrichten, dass ausgeblendete Tabellen nicht berücksichtigt werden?
    Die endgültige Datei wird viele Tabellenblätter enthalten, auch welche ohne Quelldaten.
    Entweder lösche ich diese temporär vor der Makro-Durchführung oder ich blende sie aus.
    Eventuell vorhandene "RST..." sollen ignoriert werden.
    Danke und Grüßle
    Jupp

    Anzeige
    AW: VBA - Daten aus mehreren in ein Tabellenblatt
    04.12.2015 09:13:25
    Sepp
    Hallo Josef,
    dann so.
    For Each objWS In ThisWorkbook.Worksheets
If Not objWS.Name Like "RTS*" And objWS.Visible = xlSheetVisible Then
    Gruß Sepp

    AW: VBA - Daten aus mehreren in ein Tabellenblatt
    04.12.2015 11:01:17
    Josef
    Dankeschön Sepp, es funktioniert hervorragend.
    Gruß
    Jupp

    bei 'Range("A1").Resize(....' fehlt ...
    03.12.2015 17:35:13
    Sepp
    ... noch ein Punkt (.) davor!
    .Range("A1").Resize(...
    Gruß Sepp

    Anzeige
    Einfach alles auf einmal
    03.12.2015 20:57:31
    Michael
    Hallo zusammen,
    ich habe mir gedacht, wozu Monate eingeben, wenn der Anwender doch bestimmt früher oder später sowieso alle haben will.
    Also auf Klick alles in einem Rutsch.
    Es gibt zwei Makros:
    - eines löscht alle (evtl. vorhandenen) Monatsblätter und legt sie neu an und
    - das zweite kopiert alle Daten aus den Tabellen in die Monatsblätter.
    Ich habe intensiven Gebrauch von Arrays gemacht, um die unterschiedliche Spaltenzuordnung und das eine oder andere zu managen.
    Der Code ist evtl. nicht ganz simpel zu lesen - ich habe ihn aber von vornherein so optimiert, daß er ratz-fatz arbeitet: unter 20 ms für alles (auf meiner Maschine) ist doch nicht schlecht.
    Die Datei: https://www.herber.de/bbs/user/101993.xlsm
    Schöne Grüße,
    Michael
    Anzeige
    ;

    Forumthreads zu verwandten Themen

    datenimport aus excel in excel
    caot

    Hi mal wieder!
    ich hab mal wieder ne frage:
    es sind ca 1200 Excel Dateien aus denen jeweils aus ein paar Zeilen und Spalten die Werte in eine Exceldatei eingelesn werden sollen.
    Die Ursprungsdateien sind laufend nummeriert... und dann
    kommt noch ein name als nummer- name.xls <...
    09.08.2008 11:22:00
    Thread-ID: 1000469
    3 Beiträge
    Daten aus vielen xls-Datein auslesen
    Daniel

    Hallo Profis,
    ich suche einen VBA-Befehl für folgendes:
    Ich habe einen Ordner mit vielen xls-Dateien. Diese sollen nun alle in einer Datei zusammengefahren werden, alle Zeilen, wenn der Wert der 2. Spalte links mit "12345" anfängt.
    Geht dies?
    Vielen Dank vorab.
    Daniel
    ...
    18.08.2008 15:07:01
    Thread-ID: 1002621
    2 Beiträge
    daten aus Arbeitsmappe einlesen
    Peter

    Hallo,
    kurze Fragestellung an die Experten. Habe mir einen Code zusammengebastelt, der in einer geöffneten Arbeitsmappe, bestimmte Daten aus einer anderen noch "unbestimmten" Arbeitsmappe importieren soll. Funktioniert auch, jedoch kommt mir der Code zu unübersichtlich und auch "unsauber" v...
    19.08.2008 13:25:00
    Thread-ID: 1002916
    3 Beiträge
    Anzeige
    Textdatei per VBA einlesen
    Werner

    Ich möchte eine Textdatei per VBA einlesen. Untenstehender Versuch bringt die Fehlermeldung:
    Excel kann auf die Datei in '' nicht zugreifen.
    Die Datei ist unter Umständen schreibgeschützt oder verschlüsselt.
    Woher weiß das Makro das, wo ich noch gar keinen Dateinamen angegeben habe...
    11.09.2008 09:57:26
    Thread-ID: 1008986
    4 Beiträge
    Anzeige
    Datenvergleich und danach ausgegebene Info
    Merle

    Guten morgen alle zusammen!
    Hab mal wieder eine Frage. Kriege ständig irgendwelche Listen, die ich zusammenfassen soll.
    Hier ein Beispiel meiner Liste:
    https://www.herber.de/bbs/user/55376.xls
    Ich hätte es gerne, dass wenn ich in der Liste in Tabelle1, nur die Bez. D127 aus dem...
    15.09.2008 08:58:00
    Thread-ID: 1009662
    2 Beiträge
    Daten aus Userfom in eine ausgeblendete Tabelle
    Ramon

    Hallo alle zusammen,
    ich möchte nach Klick auf den Command_Button "cb_send" Eingabewerte aus einer
    Userform in eine Tabelle schreiben.
    In Abhängigkeit der eingegebenen Werte sollen die Daten entweder in das Tabllenblatt
    "data_booked" oder in "data_planned" geschrieben werden, u...
    16.09.2008 12:28:00
    Thread-ID: 1010054
    5 Beiträge
    Daten aus Zellbereich in eine neue Arbeitsmappe
    André

    Für eine "Tägliche Auswertung" suche ich ein Makro.
    Meine erste Idee war es, hier im Forum zu suchen, ob es da nicht schon was gibt. Leider erfolglos. Ich hab zwar Makros gefunden, die ein neues Wks erstellen mit genau den Vorgaben, die ich brauche und ein Makro zum Zellenbereich kopieren,...
    26.09.2008 10:23:00
    Thread-ID: 1012532
    3 Beiträge
    Daten aus Tabelle in eine andere Tabelle
    Cornelia

    Ich habe 2 Tabellen mit dem gleichen Aufbau.
    Tabelle 1 soll die Daten eingetragen werden. Von mehreren Leuten. Deshalb eben seperat.
    Tabelle 2 soll die Daten aus Tabelle 1 übernehmen. Jeweils ein Blatt mit identischen Blattnamen aus Tabelle 1. Bisherige Lösung von mir in jede Zelle rein...
    01.10.2008 08:11:00
    Thread-ID: 1013510
    6 Beiträge
    Daten aus Inputbox in Zellen untereinander lesen
    Peter

    Hallo
    Bin neu hier, und auch ein Anfänger in VBA, habe folgendes Problem.
    Ich möchte, das Datum über eine InputBox in die Zellen untereinander schreiben lassen, also wenn ich am Freitag was Schreibe soll das Datum in A1 stehen, beim nächsten Aufruf der InputBox, soll das Datum in A2 ges...
    09.10.2008 20:00:59
    Thread-ID: 1015445
    3 Beiträge
    Anzeige
    Import von daten aus txt file
    daten

    Guten Morgen an alle VBA-Aktivisten
    Ich hätte mal ne kleine Frage. Ich hab einen Code der es mir ermöglicht innerhalb eines Tabellenblattes über einen Button eine txt-Datei zu öffnen und in eine bestehende Tabelle einzulesen. Leider fängt er immer im txt file ganz oben links an. Wie kann ic...
    10.10.2008 09:07:22
    Thread-ID: 1015499
    6 Beiträge
    Neuanordnung von Quelldaten aus Spalte in Zeile
    Quelldaten

    Hallo liebe Excel-Freunde,
    folgendes Excel-Problem kann ich nicht lösen:
    ich habe zwei Excelspalten mit Daten.
    Die erste Spalte enthält eine fortlaufende Nummerierung. In der zweiten Spalte befinden sich untereinander zwei zusammengehörige Werte, also z. B. so:
    Spalte 1___Spalt...
    10.10.2008 15:05:18
    Thread-ID: 1015600
    7 Beiträge
    Daten aus einer anderen Mappe auslesen
    Uwe

    Hallo zusammen, habe mir einen funktionierenden Einsatzplan für 24 MA und 3 Schichten zusammengebastelt welcher die Monate inkl. Feiertage und Wochenenden dynamisch generiert.
    Nun möchte ich wenn ich im zum Beispiel den Einsatzplan für die Mitarbeiter für Februar abrechne, das Excel sich...
    14.10.2008 22:12:36
    Thread-ID: 1016451
    5 Beiträge
    Anzeige

    Beliebteste Forumthreads (12 Monate)

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