VBA: Wert in neue Zelle kopieren SCHWER

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Du bist im falschen Forum. Bildbearbeitung ist ein anderes.
Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.
Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann.
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Schau mal hier
Eine hochgeladene Arbeitsmappe erhöht die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese hoch.
Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten ändern. Schaue Datei
http://hajo-excel.de/gepackt/fremd/Datei_verschluesseln.zip
Falls Du den Download des Forums nicht benutzen möchtest, beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms)
Das ist nur meine Meinung zu dem Thema.
Grußformel

In diesem Forum bekomme nur selten eine Mailbenachrichtigung, weitere Antworten sind zufällig.
Grußformel

In diesem Forum bekomme nur selten eine Mailbenachrichtigung, weitere Antworten sind zufällig.

Hallo Bernd,
wer sich das Lernen von VBA annimmt, bekommt natürlich volle Unterstützung.
Deine Aufgabestellung würde ich aber nicht mit VBA lösen: Es geht hier darum, Daten zu entpivotieren, um diese anders zu pivotieren. Das macht man leichter mit Power Query. Da ich schon heute eine Beschreibung dazu geschrieben habe, erlaube ich mir diese zu verlinken:
https://www.herber.de/forum/archiv/1856to1860/1858355_Entpivotisieren.html#1858364
Aber es würde mit VBA in dem Fall nicht so kompliziert gehen. Grund ist, dass sowohl die Dimension vom Eingangsbereich als auch vom Ausgangsbereich feststehen
Daher würde ich jede Zelle vom Bereich B4:D11 lesen, Anhand der Wert der Zelle, die Zieladresse berechnen und den Überschrift ablegen.
Da wo Hajo recht hat (wenn auch unglücklich ausgedrückt), ist dass eine Datei hilfreicher wäre. Sonst muss ich entweder nachbauen oder blind programmieren.


Sub Entpivotieren()
Dim Z As Range
Dim Monatszahl As Integer
With Worksheets("Tabelle1")
For Each Z In .Range("B4:D11").Cells
Monatszahl = Month(DateValue("1. " & Z.Value & " 2021"))
.Cells(Z.Row, Monatszahl + 5) = .Cells(3, Z.Column).Value
Next
End With
End Sub

Mit dem "With" vermeidet man die Wiederholung von Worksheets("Tabelle1"). Überall wo etwas mit einm Punkt anfängt ist diese Worksh... davor zu denken.
Für jede Zelle der gegebenen Bereich,
mit der Datum-Funktion DateValue macht man aus Januar,. Februar, .. ein vollständige Datum und extrahiert daraus den Monatszahl.
Dann wird die in die Zielzelle, definiert durch die Zeile (Row) der gelesene Zelle, aber in Spalte Monatszahl + 5 (5 ist "E")
die Werte der Zelle definiert durch Zeile 3 und Spalte der gelesene Zelle. Ergibt Überschrift A, B, C
Auf diesem Basis kannst Du jetzt -ersten prüfen, dass es funktioniert. Ich habe nämlich blind programmiert- und dann den zweiten Bereich B17:D24 behandeln.
Viel Erfolg
Yal

Beliebteste Forumthreads (12 Monate)

VBA: Wert in neue Zelle kopieren SCHWER

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA: Wert in neue Zelle kopieren SCHWER

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

314 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread