Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: VBA Tabelle mit mehreren Ergebnissen

VBA Tabelle mit mehreren Ergebnissen
03.03.2017 13:49:36
Leonie
Hallo liebes Forum,
ich hab eine wahrscheinlich leicht zu lösende Frage.
Ich habe ein Workbook, in dem ich im TB "Alle" eine Tabelle habe, in Spalte A steht immer das Monat und in den Spalten D bis X stehen Werte in Prozent.
Jedes Monat hat 5 Wertezeilen, also steht in Spalte A 5 mal untereinander Jänner (A4:A8), die Ergebnisse dazu ebenfalls untereinander in den Spalten D bis X (D4:X8). In A9 geht's mit Februar los etc.
Nun möchte ich in einem neuen TB ("Overview") den Wert aus der Spalte X für jedes Monat auswerfen.
Hier stehen die Monate nebeneinander (B16:M16) und die Werte aus Spalte X zum jeweiligen Monat möchte ich in den Zeilen darunter stehen haben, damit ich mir in Zeile 22 einen Mittelwert ausrechnen kann.
Ich hab mit meinen mehr als dürftigen VBA Kenntnissen leider nur hinbekommen dass der erste Monat funktioniert, danach bin ich am Ende mit meinem Latein.
Unten der Code mit dem ich begonnen habe. Hat hier jemand eine Idee wie ich zum Ergebnis komme?
Freue mich über jede Hilfe! :)
LG Leonie
Sub Jahresuebersicht()
Dim varSearch As String 'Monat
Dim varDaten As Variant
Application.ScreenUpdating = False
ReDim varDaten(5, 5) 'bis zu 5 MA-Einträge mit bis zu je 5 Daten zu diesem MA
'Monate als suchvariablen
varJan = Cells(16, 2)
varFeb = Cells(16, 3)
varMar = Cells(16, 4)
varApr = Cells(16, 5)
varMay = Cells(16, 6)
varJun = Cells(16, 7)
varJul = Cells(16, 8)
varAug = Cells(16, 9)
varSep = Cells(16, 10)
varOct = Cells(16, 11)
varNov = Cells(16, 12)
varDec = Cells(16, 13)
Sheets("Alle").Select
zaehler = 1
For i = 1 To 500
If zaehler = 6 Then
End If
'Jänner Werte
If Cells(i, 1) = varJan Then
varDaten(zaehler, 1) = Cells(i, 24)
varDaten(zaehler, 2) = Cells(i, 24)
varDaten(zaehler, 3) = Cells(i, 24)
varDaten(zaehler, 4) = Cells(i, 24)
varDaten(zaehler, 5) = Cells(i, 24)
zaehler = zaehler + 1
End If
Next i
Sheets("Overview").Select
For j = 1 To UBound(varDaten)
Cells(16 + j, 2).Value = varDaten(j, 1)
Cells(16 + j, 2).Value = varDaten(j, 2)
Cells(16 + j, 2).Value = varDaten(j, 3)
Cells(16 + j, 2).Value = varDaten(j, 4)
Cells(16 + j, 2).Value = varDaten(j, 5)
Next j
Application.ScreenUpdating = True
End Sub

Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
doppelt owT
03.03.2017 13:50:34
ChrisL
.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

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