Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
964to968
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
964to968
964to968
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VB - Daten aus Kreuztabelle auslesen

VB - Daten aus Kreuztabelle auslesen
03.04.2008 20:12:00
Xaver
Hallo zusammen,
ich habe folgendes Problem:
ich trage in einer Kreuztabelle (waagrecht: Datum, senkrecht: Kontobewegungen) - Eurobeträge ein.
Nun möchte ich dass auf einem separaten Tabellenblatt alle Posten (Datum, Text und Betrag) nach Datum sortiert aufgelistet werden.
Wie könnte hierzu eine Prozedur lauten? Zum besseren Verständnis habe ich eine Arbeitsmappe hochgeladen.
Danke im Voraus
Xaver
https://www.herber.de/bbs/user/51253.xls

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VB - Daten aus Kreuztabelle auslesen
03.04.2008 21:47:00
Uduuh
Hallo,
das ist eigentlich genau vekeht herum.
Lege dir eie Tabelle Datum-Konto-Betrag an und trage deine Ausgaben und Einnahmen dort ein. Die Übersicht kannst du dann leich mit einer Pivot-Tabelle realisieren.
Gruß aus’m Pott
Udo

AW: VB - Daten aus Kreuztabelle auslesen
03.04.2008 22:01:00
Xaver
Danke für deinen Hinweis Udo, möchte es aber dennoch anders lösen. Hätte so weniger Aufwand
bei der Eingabe.
Gruß
Xaver

AW: VB - Daten aus Kreuztabelle auslesen
04.04.2008 10:27:58
Rudi
Hallo,
in ein Modul:

Sub Daten_in_Tabelle()
Dim vntTmp, vntDaten(), i As Integer, j As Integer, n As Integer
vntTmp = ActiveSheet.Range("B2").CurrentRegion
For i = 3 To UBound(vntTmp)
For j = 2 To UBound(vntTmp, 2) - 1
If vntTmp(i, j)  0 And vntTmp(i, 1)  "Summe" Then
n = n + 1
ReDim Preserve vntDaten(1 To 3, 1 To n)
vntDaten(1, n) = vntTmp(2, j)
vntDaten(2, n) = vntTmp(i, 1)
vntDaten(3, n) = vntTmp(i, j)
End If
Next j
Next i
Worksheets.Add
With ActiveSheet
.Range("A2").Resize(n, 3) = WorksheetFunction.Transpose(vntDaten)
.Range("A1:C1") = Array("Datum", "Konto", "Betrag")
End With
End Sub


und aus der Tabelle heraus starten.
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe

Anzeige
Danke!
04.04.2008 17:08:00
Xaver
Hallo Rudi,
danke für Deine Hilfe, Modul klappt prima.
Gruß, Xaver

332 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige