Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1612to1616
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
1612to1616
1612to1616
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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?
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
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.

103 Forumthreads zu ähnlichen 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
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
Anzeige

Links zu Excel-Dialogen

UserForm

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
15
2
1
2
1
13
7
2
1
11
1
5
5
6
10
3
2
6
2
3
3
2
6
1