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

Tabelle um eine Spalte verschieben

Forumthread: Tabelle um eine Spalte verschieben

Tabelle um eine Spalte verschieben
20.11.2016 11:40:33
Jaylan
Hallo zusammen,
wie kann ich eine Tabelle bestehend aus 3 Spalten (A,B,C) um eine Spalte nach rechts verschieben, sodass sie am Ende in den Spalten B,C,D stehen? Mit VBA-Code.
Freue mich über Vorschläge!
LG
Jaylan
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabelle um eine Spalte verschieben
20.11.2016 11:46:59
Dieter(Drummer)
Hi Jaylan,
z.B. so, mit Code in ein Modul: 
Sub TabNachRechts()
Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Range("A1").Select 'Zelle A1 wird aktiviert
End Sub

Gruß, Dieter(Drummer)
AW: Tabelle um eine Spalte verschieben
20.11.2016 11:47:51
Hajo_Zi
mache es doch per Hand.
Spalte A markieren, rechte Maustaste, Zellen einfügen.
Das kann man auch mit dem Makrorecorder aufzeichnen.

Anzeige
AW: Spalte mit heutigem Datum füllen
20.11.2016 12:39:43
Jaylan
Super, vielen Dank für die Antworten! Hat mir sehr geholfen!
Wie kann ich nun die freie Spalte A (ab A1) mit dem heutigen aktuellen Datum füllen? Es ist wahrscheinlich
eine Range("A:A") nötig... Das Datum soll aber nur bis zur letzten Zeile der Spalte B gefüllt sein.
AW: Spalte mit heutigem Datum füllen
20.11.2016 12:46:31
Hajo_Zi
Columns(1)=Date
warum, man diesen Eintrag 1.048.576 mal braucht, muss mir nicht klar sein.
Gruß Hajo
Anzeige
Teil überlesen
20.11.2016 12:48:08
Hajo_Zi
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows.Count)
Range("A1:A"& loletzte)=Date
Gruß Hajo
AW: Spalte mit heutigem Datum füllen
20.11.2016 12:54:43
Gerd
Hallo Jaylan!
Sub Jaylan()
Range(Cells(1, 1), Cells(Rows.Count, 2).End(xlUp).Offset(, -1)) = Date
End Sub
Gruß Gerd
Anzeige
AW: Spalte mit heutigem Datum füllen
20.11.2016 13:04:24
Hajo_Zi
Dir ist bekannt das der Befehl ein falsches Ergebnis liefert, falls letzte Zelle in Spalte belegt?
Gruß Hajo
AW: Spalte mit heutigem Datum füllen
20.11.2016 13:14:13
Gerd
Moin!
Mir ist nicht bekannt, dass es viele User gibt, die in die letzte Zeile eines Tabellenblattes Werte schreiben.
Häufiger kommt es vor, dass Variablen nur einmal genutzt u. nicht deklariert werden.
Gruß Gerd
Anzeige
AW: Spalte mit heutigem Datum füllen
20.11.2016 13:24:51
Jaylan
Vielen Dank für die zahlreichen Hilfestellungen und Lösungen!
Habe mein Problem gelöst :)
LG
Jaylan
AW: Falls es in Tabelel1 ist ...
20.11.2016 11:50:38
Dieter(Drummer)
... diesen Code nutzen. Falls nicht, entprecheend den Tabellenblattnamen im Code ändern: 
Sub TabNachRechts()
Sheets("Tabelle1").Columns("A:A").Insert Shift:=xlToRight, CopyOrigin:= _
xlFormatFromLeftOrAbove
Range("A1").Select
End Sub

Gruß, Dieter(Drummer)
Anzeige

Forumthreads zu verwandten Themen

Zwei Spalten in jeweils zwei Tabellen miteinander
Lutz

Liebe Leute,
ich habe zwei recht umfangreiche Tabellen mit Lieferdaten und dies in zwei von einander unabhängigen Tabellen.
In der Tabelle1 stehen neben anderen die Spalten Bestellnr. und Materialnr. sowie Lieferantennr. In der Tabelle2 stehen wiederum die Spalten Bestellnr. und Materia...
08.08.2008 15:56:55
Thread-ID: 1000336
4 Beiträge
Tabellenumbau - spaltendurchlauf mit for?
Reptil

hallo zusammen
ich habe, dank diesem forum ;-), ein makro, welches mir aus vielen exceldateien eine "sammeldatei" mit allen benötigten daten generiert. nun hat sich jedoch eine anforderung geändert, wodurch der aufbau der tabelle nicht so bleiben kann....
bisher sieht die tabelle folgen...
16.10.2008 08:51:36
Thread-ID: 1016735
9 Beiträge
Pivot-Tab: Leere ausblenden?
Florian

Hallo liebes Forum,
hätte eine Frage zu Pivottabelle (VBA-Code!):
Gibt es einen Befehl, um die Summen der "leeren" Zellen auszublenden/nicht anzuzeigen? Benutzer soll nicht durc¨h unwichtige Daten überlastet werden (siehe Bsp gelbe Zellen).
Besten Dank, Florian
https://www.herb...
19.11.2008 14:45:00
Thread-ID: 1026052
6 Beiträge
Spalten aus einem Tabellenblatt auslesen
Kiewel

Hallo,
bin seit langem Nutzer des Forums und der CD, komme nun aber nicht mehr weiter. Villeicht kann mir ja einer von Euch Profis weiterhelfen.
Ich habe ein Tabellenblatt mit folgendem Aufbau:
Datum /Uhrzeit von/Uhrzeit bis/Team /Thema1/Thema2/Thema3
04...
05.01.2009 16:20:25
Thread-ID: 1037009
7 Beiträge
Anzeige
Spalte in Tabelle er. großen Datei einfügen
Werner

mein VBA-Level: befriedigend
Hallo Freunde,
bei einer recht umfangreichen Datei ließen sich nachträglich keine neuen Spalten mehr einfügen. Auch wenn ich versucht habe,
mit Hilfe des Kontxtmenüs Zeilen in einer Tabelle dieser Datei zu löschen, klappte es nicht. In beiden Fällen stür...
05.02.2009 09:12:00
Thread-ID: 1047294
3 Beiträge
Pivot-Tabelle Datumsfilter in Spalte
MBorn

Hallo,
in meiner Pivot-Tabelle gibt es in Spalte A Datumswerte.
Weiß jemand, wie es gelingt, Datumswerte von/bis (zwischen zwei Grenzdaten) zu filtern?
Soweit ich sehe bietet der Filter nur eine Variation, entweder größer als oder
kleiner als....
Noch schöner wäre es wenn ic...
08.05.2009 16:57:27
Thread-ID: 1073949
2 Beiträge
Leere zeilen ausblenden
Andreas

Hallo Forum,
mit folgendem Code lasse ich Zeile auf Inhalt prüfen und ggf. ausblenden:
Private Sub Worksheet_Activate() Dim rng As Range For Each rng In Range("A30:A47") rng.EntireRow.Hidden = rng.Value = "" Next End Sub
Bei diesem Vorgang flackert aber das Dokument einige Sekund...
03.07.2009 14:06:44
Thread-ID: 1086237
6 Beiträge
Makro für Kopiern eine Spalte links davon einfügen
einfügen

Hallo,
ich bin auf der Suche nach einer Lösung für folgendes Problem.
Ich möchte die Werte die ich markiert habe (die Markierung ist jedes mal anders) kopieren und eine Spalte links davon als "Werte und Zahlenformate" einfügen. Die Markierung besteht vor Ausführung des Makros. Wie bring...
28.07.2009 15:51:06
Thread-ID: 1091972
5 Beiträge
Pivottabelle Spalten berechnen
karsten

Hallo Zusammen,
ich habe folg.Frage.:
Ich habe eine Tabelle mit 2 Spalten.
1.Spalte: DATUM
2.Spalte: CODE
DATUM CODE
01.01.2009 A
08.02.2009 M
23.02.2009 C
09.08.2009 F
Wie kann ich in einer Pivottabelle die Datumsangaben bereits in Monaten eingeteilt dar...
23.09.2009 11:15:14
Thread-ID: 1104846
10 Beiträge
VB Bezug zum Kopieren um Spalten erweitern
udo

Hallo Helfer, sollte bitte nochmals Eure Hilfe in Anspruch nehmen.
Ich hab mit meinen bescheidenen VB Kenntnissen folgende Anweisung in einem
Worksheet_BeforeRightClick Ereigniss eingebaut ...
Nach best. Kriterien kommt irgendwann folgender Punkt:
Ich klicke per Rechtsklick auf...
09.10.2009 16:19:38
Thread-ID: 1108603
5 Beiträge
Tabellen zusammenführen, Spaltennamen durchsuchen
udo

Hallo, habe vor einiger Zeit hier schonmal Hilfe bekommen. Es ging um ein Makro, welches mehrere Dateien in einer neuen Übersichtstabelle zusammenfasst.
Option Explicit Const HomeDatei = "LeereArbeitsmappe.xls" 'Name Arbeitsmappe Makro-Excel-Datei Const HomeDaten = "Import-Dat...
04.11.2009 19:22:42
Thread-ID: 1114531
8 Beiträge
Leere Zeilen bzw. Spalten ausblenden
Dietmar

Guten Abend zusammen,
habe folgenden Code von Sepp hier im Forum gefunden.
Wie lässt der Code sich ändern, dass Zeilen/Spalten ausgeblendet werden, wenn keine Werte (!) enthalten sind.
Vorliegender Code blendet die Zeilen/Spalten auch aus , wenn Formeln enthalten sind, obwohl keine...
12.11.2009 22:19:00
Thread-ID: 1116689
9 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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