Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
24.04.2024 17:19:09
Formel mit Index-Funktion
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1416to1420
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
1416to1420
1416to1420
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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.

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige