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

Tabelle per VPA umformatieren

Forumthread: Tabelle per VPA umformatieren

Tabelle per VPA umformatieren
25.03.2015 17:18:51
Jonas
Hallo liebe Teilnehmer,
ich möchte gerne eine Tabelle in ein anderes Format bringen. Es geht hier wohl hauptsächlich um "Transportieren".
Im Anhang findet ihr die genauere Beschreibung.
Vielen Dank vorab.
Jonas
https://www.herber.de/bbs/user/96635.xlsx

Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Tabelle per VPA umformatieren
25.03.2015 17:19:48
Jonas
Ich meine natürlich per VBA :)

AW: Tabelle per VPA umformatieren
25.03.2015 17:52:15
Klexy
Keine Ahnung, was du willst, aber das, was in deiner Tabelle offenbar ein Datum darstellen soll, sollte auch als Datum eingetragen und formatiert werden.
Also "01.01.2015" anstatt der Zeichenkette "Jan". Wenn du augenschonend nur "Jan" anzeigen lassen willst, mach das mit der Zellformatierung ("MMM")
Ebenso 201501.
Und dann sollte natürlich eine klar formulierte Beschreibung deines Problems vorhanden sein.

Anzeige
AW: Tabelle per VPA umformatieren
25.03.2015 18:12:12
Daniel
Hi
das kannst du auch einfach mit Formeln transponieren:
folgende Formlen in die erste Zeile (13) einfügen und nach unten ziehen:
A13: =201500+REST(ZEILE()-1;12)+1
B13: =INDEX($A$2:$A$5;GANZZAHL((ZEILE()-13)/12)+1)
C13: 1
D13: =SVERWEIS(INDEX($B$2:$B$5;GANZZAHL((ZEILE()-13)/12)+1);$L$12:$M$15;2;0)
E13: =INDEX($C$2:$N$5;GANZZAHL((ZEILE()-13)/12)+1;REST(ZEILE()-13;12)+1)
F13: =Jetzt()
Gruß Daniel

Anzeige
AW: Tabelle per VPA umformatieren
25.03.2015 18:25:44
Daniel
Es geht aber auch mit VBA:
Sub umformen()
Dim arr1
Dim arr2
Dim z1 As Long, s1 As Long
Dim z2 As Long, s2 As Long
Dim FIL As String
Dim DAT As Long
Dim VER As String
Dim MAN As Long
arr1 = Cells(1, 1).CurrentRegion.Value
ReDim arr2(1 To (UBound(arr1, 1) - 1) * 12, 1 To 6)
DAT = 201500
MAN = 1
For z1 = 2 To UBound(arr1, 1)
VER = arr1(z1, 1)
FIL = WorksheetFunction.VLookup(arr1(z1, 2), Range("L12:M15"), 2, 1)
For s1 = 3 To 14
z2 = z2 + 1
arr2(z2, 1) = DAT + s1 - 2
arr2(z2, 2) = VER
arr2(z2, 3) = MAN
arr2(z2, 4) = FIL
arr2(z2, 5) = arr1(z1, s1)
arr2(z2, 6) = Now
Next
Next
Cells(13, 1).Resize(UBound(arr2, 1), UBound(arr2, 2)) = arr2
End Sub
Gruß Daniel
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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