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

Verschieben von dynamischen Daten um eine Spalte

Forumthread: Verschieben von dynamischen Daten um eine Spalte

Verschieben von dynamischen Daten um eine Spalte
21.03.2018 12:53:16
dynamischen
Hallo Leute,
ich stehe gerade etwas auf dem Schlauch und leider bin ich in der Suche nicht fündig geworden. Ich möchte in der angehangenen Datei mithilfe von zwei Formularsteuerelementen die Werte des markierten Datenbereiches um eine Spalte (Jahr) nach vorne bzw nach hinten verschieben können.
Die Schwierigkeit besteht nun darin das sowohl die Spaltenanzahl der zu verschiebenen Werte als auch die Position der Daten in der Tabelle variabel ist.
Ich hoffe Ihr könnt mir "aufs Pferd helfen".
Viele Grüße
Tim
Userbild
Anzeige

12
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Eine Beispiel Datei wäre super ...owT
21.03.2018 12:55:35
Peter(silie)

AW: Eine Beispiel Datei wäre super ...owT
21.03.2018 13:31:37
Tim
Leider ist die Datei schon mit sensiblen Daten befüllt, weshalb ich auf ein vollständigen Upload gerne verzichten würde. Was genau wolltest du denn sehen, dann mache ich Screenshots ?
AW: Eine Beispiel Datei wäre super ...owT
21.03.2018 14:18:42
Peter(silie)
Hallo,
ich und fast jeder andere ist nicht bereit eine Datei nachzubauen.
Ein Bild brauch ich nicht.
Ich brauche eine Tabelle die so aussieht wie auf dem Bild mit Dummy Werten.
Es ist immer möglich eine Tabelle anonym zu machen und der Aufwand ist auch selten hoch.
Da die Beschreibung der Funktionalität für mich nicht eindeutig ist,
bekommst du hier eine Datei mit UserForm die es so macht wie ich deine Anforderung interpretiert habe.
Datei: https://www.herber.de/bbs/user/120567.xlsm
Anzeige
AW: Eine Beispiel Datei wäre super ...owT
21.03.2018 16:26:06
Tim
Hallo Peter,
ersteinmal vielen Dank für deine Hilfsbereitschaft, mir war der Mehraufwand durch die Screenshots nicht bewusst, ich bin noch ziemlich am Anfang was die Excel/VBA Thematik angeht. Im Anhang findest du nun die Datei.
Über den Button "Neue Auslastung" kannst du den besagten Datenbereich hinzufügen (Eingeben kannst du in der Userform was du möchtest). Hier möchte ich nun die Daten "auf der Zeitachse" also um jeweils eine Spalte nach vorne und nach hinten verschieben können(um 1 Jahr pro Klick) und das bei jeder neu hinzugefügten "Auslastung".
Hast du dafür vielleicht ein Idee ?
https://www.herber.de/bbs/user/120575.xlsm
Gruß
Tim
Anzeige
AW: Eine Beispiel Datei wäre super ...owT
22.03.2018 09:24:22
Tim
Vielleicht hat sonst jemand anderes noch eine Idee ? Das würde mir wirklich sehr helfen.
AW: Eine Beispiel Datei wäre super ...owT
22.03.2018 12:28:14
Peter(silie)
Hallo,
hier deine Datei mit anderem Code: https://www.herber.de/bbs/user/120604.xlsm
Bis dato sind die Bereiche nicht Dynamisch.
Die Zeitachse hat auf der Tabelle Datenbank nichts verloren,
die sollte am besten in eine eigene Tabelle, dann ist es auch leicht
die Bezüge zu den bereichen dynamisch zu gestalten.
Hier Code des moduls "ProjectHandler": 
Option Explicit
Public Type ProjektDetails
CustomName  As String
Category    As String
Runtime     As Long
YearOfBegin As Double
End Type
Private shDatabase  As Worksheet
Private shTarget    As Worksheet
Public Sub FetchThose(ByRef prjD As ProjektDetails)
Dim shDatabase      As Worksheet
Dim prjNameR        As Range
Dim prjDurationR    As Range
Dim prjYearR        As Range
Dim prjData         As Variant
Dim x               As Long
Dim y               As Long
Set shDatabase = ThisWorkbook.Sheets("Datenbank")
Set shTarget = ThisWorkbook.Sheets("Userform (S3.1)")
With shDatabase
Set prjNameR = .Range("A1:A43")
Set prjDurationR = .Range("A1:AGB1")
Set prjYearR = .Range("A45:AS45")
x = GetPosition(prjD.Runtime, prjDurationR)
y = GetPosition(prjD.Category, prjNameR)
If x
Hier der Button Code: 
Private Sub Button_Take_Click()
Dim prjDetails As ProjectHandler.ProjektDetails
prjDetails.CustomName = Me.Text_Name.Value
prjDetails.Category = Me.Kategorie.Value
prjDetails.Runtime = Me.Laufzeit.Value
prjDetails.YearOfBegin = Me.Start.List(Me.Start.ListIndex, 0)
ProjectHandler.FetchThose prjDetails

Anzeige
AW: Eine Beispiel Datei wäre super ...owT
22.03.2018 13:00:23
Tim
Hallo Peter,
ich sage erstmal vielen Dank für deine Mühe. Ich verstehe zwar nicht was du da gemacht hast und laufen tut die angehängte Datei bei mir leider auch nicht. Aber ich werde mich heute und morgen ransetzten und versuchen nachzuvollziehen woran es liegt.
Viele Grüße
Tim
AW: Eine Beispiel Datei wäre super ...owT
22.03.2018 13:03:18
Peter(silie)
Hallo,
was funktioniert denn nicht?
Anzeige
AW: Eine Beispiel Datei wäre super ...owT
22.03.2018 15:21:24
Tim
Das Nutzen des Command Button "Übernehmen" im Formularsteuerelement "Neue Auslastung" bzw der Userform hat keine Auswirkung mehr. Normalerweise kopiert er ja die Tabellenvorlage Aus dem Sheet "Datenbank" (Unten) und füllt sie dann mit Werten auf dem gleichen Sheet.
Darüber hinnaus habe ich die Funktion mit dem Verschieben der Daten um 1 Jahr nicht finden können.
Anzeige
AW: Eine Beispiel Datei wäre super ...owT
26.03.2018 11:06:30
Tim
Hallo Peter,
ich hab mir jetzt wirklich den Kopf über deinem Coder zerbrochen und komme nicht weiter. Könntest du die Datei nochmal hochladen in einer Version die den Button zum "Verschieben um ein Jahr" enthält so das ich mit Einzelschritt versuchen kann den Code nachzuvollziehen ?
Viele Grüße
Tim
Anzeige
Ups...
27.03.2018 21:38:42
Peter(silie)
Hallo,
entschuldige erstmal, dass ich dich so im Regen hab stehen lassen.
Habe es ehrlich gesagt vergessen...
Ich schaue es mir diese Woche nochmal an.
Sollte wieder großartig Code von mir kommen, werde ich versuchen ihn zu erkläutern
(anhand von Code Kommentaren).
Freut mich übrigens, dass du versuchst den Code zu verstehen.
Viele machen einfach Copy Paste und schreien alle 5 Minuten wenn was nicht geht.
Anzeige
Nachtrag
22.03.2018 12:29:00
Peter(silie)
Ich musste die Zeile mit den Jahresangaben als Zahl formatieren und die Variable als Double
da Match sonst einen Fehler geworfen hat.
;

Forumthreads zu verwandten Themen

Makro zum Befüllen von Spalten aus einer 2. Datei
Spalten

Hallo zusammen,
wurde leider wieder von eine Aufgabe gestellt, die meine beschränkten Makro Fähigkeiten ziemlich ausreizt.
Ich habe eine ziemlich große xls Datei (>100 Spalten), die für den Export in mehrere txt.Dateien für eine Fremdsoftware Schnittstelle benötigt wird.
Nun wu...
18.11.2008 09:39:00
Thread-ID: 1025506
3 Beiträge
Anzeige
kopieren/filtern von x-Spalten in x-Blättern
x-Spalten

So, anderes Thema:
Ich habe eine Arbeitsmappe mit verschiedenen Arbeitsblättern, diese Arbeitsblätter sind von der struktur her alle gleich aufgebaut, nur der Inhalt unterscheidet sich voneinander.
Ich möchte jetzt eine Auflistung generieren, die mir auf dem letzten Blatt der Arbeitsmap...
22.11.2008 16:34:00
Thread-ID: 1026984
16 Beiträge
Makro-einfügen spalten;verschieben;löschen spalten
Oli

https://www.herber.de/bbs/user/57281.xls
Hallo zusammen,
ich würde mir sehr gerne die Arbeit erleichtern benötige hierzu aber eure Hilfe.
In der anliegenden Tabellen soll das programm nach dem öffnen zunächst einmal vorne eine zusätzliche Spalte einfügen. Anschließend beginnend von...
01.12.2008 14:46:27
Thread-ID: 1029268
3 Beiträge
Einfügen von Zeilen, Spalten u. Zellen verhindern.
Zeilen,

Hallo
Wie kann ich mit VBA das einfügen und löschen von Zeilen, Spalten und Zellen verhindern.
Wäre lieb von Euch wenn jemand mir helfen könnte
Gruß
Dino
08.03.2009 18:06:43
Thread-ID: 1057918
2 Beiträge
Anzeige
VBA: Spalteninhalt dynamisch verschieben
Dom

Hallo zusammen,
ich möchte einen Spalteninhalt (dynamisch) um einen Faktor nach unten verschieben.
Normalerweise gibt es ja folgende Funktion
Range("D4:I4").Select
Selection.Cut Destination:=Range("D5:I5")
Range("D5:I5").Select
Da dies jedoch nicht Dynamisch ist (d.h....
09.06.2009 18:10:04
Thread-ID: 1080235
2 Beiträge
Vergleichen von Spalten/Mindest Häufigkeit
Spalten/Mindest

Hallo zusammen,
ich habe ein Problem beim Vergleichen von Spalten und es wäre toll, wenn mir hier jemand helfen könnte.
Ich habe mehrere Spalten in denen verschiedenen Sprachen stehen.
Also in Spalte 1 z.B. Englisch, Franzsösich, Deusch, Spanisch
in Spalte 2 z.B. Französisch, S...
23.06.2009 18:44:36
Thread-ID: 1083905
14 Beiträge
Daten von zwei Spalten in einer
zwei

Hallo Gemeinde,
ich habe 14 Spalten ( A bis N), wobei immer die Daten der nebeneinanderliegenden Spalten zusammen gehören. (Also A und B, C und D etc.).
Auf einer anderen Tabelle sollen die Daten der oben genannten UNTEREINANDER (Spalte A:B) erscheinen.
Mit folgendem Code komm ich...
14.10.2009 22:49:48
Thread-ID: 1109642
8 Beiträge
Zellinhalte von Spalte B bis .... verschieben?
Spalte

Hallo Leute,
wie kann ich per VBA die Zellinhalte von Spalte B, C, D usw. (bis letzte benutzte Spalte) in Spalte A immer in nächste leere Zelle verschieben?
Besten Dank im Voraus!
Viele Grüße,
Selma
08.07.2010 09:25:42
Thread-ID: 1166061
3 Beiträge
Zellinhalte von Spalte B bis .... verschieben?
Spalte

Hallo Leute,
wie kann ich per VBA die Zellinhalte von Spalte B, C, D usw. (bis letzte benutzte Spalte) in Spalte A immer in nächste leere Zelle verschieben?
Besten Dank im Voraus!
Viele Grüße,
Selma
08.07.2010 09:39:45
Thread-ID: 1166062
2 Beiträge
Spalten nach links auffüllen ohne Leerzellen
Mike

Hallo,
ich stehe vor folgendem Problem und weiß da leider keine Lösung:
Ich habe eine Excel-Datei mit zig Tausend Datensätzen, in A2 Steht z.B. Titel, B2 Vorname, in B3 Strasse und so weiter. Nun handelt es sich bei diesen Datensätzen um Ärzte denen bestimmte Fachrichtungen zugeordnet s...
17.12.2010 16:50:03
Thread-ID: 1191944
12 Beiträge
+/- Ausgabe aufgrund Folge von 2 Spalteneinträge
2

Hallo Excelianer,
habt Ihr eine Idee, wie ich die +/- Einträge automatisiert auf Basis der 2 Regelen darstellen kann.
Die Spalten F,G,H, sind lediglich Hilfsspalten.
Ich scheitere immer daran, wenn ich auf einen vorherigen Block schauen muss. In Regel 1 muss ich ja im selben Bereic...
13.05.2011 16:01:26
Thread-ID: 1213743
2 Beiträge
Anzeige
abhängig von Tabellenblatt, Spalten einblenden
Tabellenblatt,

Hallo zusammen,
meine Excel-Datei besteht aus zwei nahezu identischen Tabellenblättern. Auf beiden Tabellenblättern kann eine PDF-Datei erzeugt werden, welche automatisch per Outlook versendet wird.
Der Unterschied sollte nun sein, dass bei einem Tabellenblatt (z.B. "Blatt2") die Spalt...
15.04.2013 11:01:31
Thread-ID: 1308807
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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