Thema Datum  Von Nutzer Rating
Antwort
Rot Neue Spalte neben String + Formel Flash Fill
09.04.2024 14:22:48 Tina
NotSolved
23.04.2024 09:38:45 Ben
NotSolved
23.04.2024 09:53:07 Ben
NotSolved
23.04.2024 10:04:18 Gast5287
NotSolved
23.04.2024 11:57:56 Ben
NotSolved
23.04.2024 22:13:42 Nobody
NotSolved
23.04.2024 12:40:25 Gast74119
NotSolved
24.04.2024 18:59:17 Gast67816
NotSolved

Ansicht des Beitrags:
Von:
Tina
Datum:
09.04.2024 14:22:48
Views:
1036
Rating: Antwort:
  Ja
Thema:
Neue Spalte neben String + Formel Flash Fill

Hi zusammen,

für eine dynamische Analyse, in der jeden Monat eine Spalte mit Berechnungen ergänzt werden soll, möchte ich ein Makro für folgende Aktionen:

- Finde Zelle mit dem String namens [1] (Das ist die Zelle rechts neben dem letzten Datensatz, damit diese sich immer mit nach rechts bewegt, sodass jeden Monat links daneben eine neue Spalte eingefügt werden kann)

- Füge eine neue Spalte links neben der Spalte mit Zelle [1] ein

- In der Spalte links von der neuen Spalte befindet sich eine Formel, die jetzt in die neue Spalte übertragen werden soll (flash fill mit neuem Bezugsdatum)

 

Ich habe bis jetzt das:

Dim ow As Worksheet
Dim LastColumn As Range
Dim rng1 As Range
Dim TargetCol As Range
Dim SourceCol As Range
Dim LastRow As Long

Set ow = ThisWorkbook.Sheets("Overview")
LastColumn1 = ow.Cells(1, ow.Columns.Count).End(xlToLeft).Column
Set rng1 = ow.Cells.Find("[1]", LookIn:=xlValues)

ow.Range(rng1, ow.Cells(ow.Rows.Count, rng1.Column)).EntireColumn.Insert

Set TargetCol = rng1.Offset(0, -1)
Set SourceCol = rng1.Offset(0, -2)
LastRow = ow.Cells(ow.Rows.Count, SourceCol.Column).End(xlUp).Row

SourceCol.AutoFill Destination:=TargetCol, Type:=xlFillDefault
TargetCol.Formula = "=" & SourceCol.Address

 

Die neue Spalte wird erstellt, allerdings funktioniert der Autofill nicht.

So sieht der Datensatz aus: 

      [1]
01.01.2024 01.02.2024 01.03.2024  
1 1 1  
2 2 2  
3 3 3  
4 4 4  
5 5 5  

Für das Datum und die Zahlen sind Formeln hinterlegt und es kommen jeden Monat Daten aus einem anderen Sheet dazu, die dann hier automatisch neben der letzten Spalte hinzugefügt werden sollen.

Beachtet noch: Ich kann nicht nach dem aktuellsten Datum suchen, da es mehrere Analysen sind, sodass dasselbe Datum öfter auf demselben Sheet vorkommt. Daher die Lösung mit "[1]".

Wenn es allerdings möglich ist, direkt mehrere Zellen mit dem aktuellsten Datum zu suchen und das mit den Spalten zu machen, wäre das noch besser.

Vielen Dank schon einmal!

 

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Neue Spalte neben String + Formel Flash Fill
09.04.2024 14:22:48 Tina
NotSolved
23.04.2024 09:38:45 Ben
NotSolved
23.04.2024 09:53:07 Ben
NotSolved
23.04.2024 10:04:18 Gast5287
NotSolved
23.04.2024 11:57:56 Ben
NotSolved
23.04.2024 22:13:42 Nobody
NotSolved
23.04.2024 12:40:25 Gast74119
NotSolved
24.04.2024 18:59:17 Gast67816
NotSolved