Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1308to1312
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
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

einzelne Spalten per Makro in eine neue Tabelle

einzelne Spalten per Makro in eine neue Tabelle
28.04.2013 08:52:41
Eugen
Hallo zusammen,
bin leider absoluter Neuling in VBA und erst am Einlernen.
Folgendes Problem habe ich zu lösen. Ich habe eine Tabelle mit mehreren Spalten A-BD und ich möchte davon die Werte einzelner nicht immer aneinander folgender Spalten für eine bessere Auswertung ( zB: A-C; E; H; L-O; usw) in eine neue Tabelle per Makro übertragen.
Kann mir jemand helfen?
viele Grüße
Eugen

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: einzelne Spalten per Makro in eine neue Tabelle
28.04.2013 09:08:52
Hajo_Zi
benutze den Makrorecorder.

Es werden Spalten-Überschriften benötigt,..
28.04.2013 14:24:37
Matze
Hallo Eugen,
..für dieses Makro.Hier eine Beispiel:
(Das Makro ist hier aus dem Forum , weis aber nicht mehr von wem, Sorry)
Im Zielblatt stehen die Überschriften die gesucht(kopiert) werden sollen.
ab hier kopieren:
Option Explicit 
Sub Copy_Col()
On Error GoTo Fehler
Dim TB1, TB2, i%, SP
Dim LC%, C
Set TB1 = Sheets("Quelle")'anpassen
Set TB2 = Sheets("Ziel")'anpassen
LC = TB1.Cells(1, Columns.Count).End(xlToLeft).Column
Application.ScreenUpdating = False
For i = 1 To LC
SP = TB2.Cells(1, i).Value
Set C = TB1.Rows(1).Find(SP, LookIn:=xlValues, LookAt:=xlWhole)
If Not C Is Nothing Then
TB1.Columns(C.Column).Copy TB2.Columns(i)
End If
Next
Err.Clear
Application.ScreenUpdating = True
Fehler:
If Err.Number  0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Matze
Anzeige

307 Forumthreads zu ähnlichen Themen

Frage - Spalten einfügen & Spalten untereinander z
André

Hallo zusammen!
Ich habe da als blutiger Anfänger in VBA zwei Fragen:
1.) Wie kann ich in meiner Tabelle in jeder zweiten Spalte 4 leere Spalten einfügen lassen?
2.) Dann möchte ich unter den Inhalt der ersten fünf Spalten (A-E) den Inhalt der zweiten 5 Spalten (F-J) usw. In der grö...
08.08.2008 16:00:00
Thread-ID: 1000340
3 Beiträge
Anzeige
Zeilenmerkmale in Spalten umwandeln
MG_Learning

Hallo zusammen!
Ich habe keine Ahnung, wie ich aus folgender Tabellenstruktur: Beispiel:
A B C
London 20 Kinos
London 50 Gaststätten
London 10 Einkaufscentren
Paris 18...
17.08.2008 18:31:50
Thread-ID: 1002449
4 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Letzte gefüllte Zeile in einem Feld anzeigen
Hendrik

Hallo zusammen,
bei einer Exceltabelle, die aus ca. 40 freien Zeilen besteht, die sich über die Zeit füllen, soll in Zeile 41 immer die Zahl der letzten gefüllten Zeile angezeigt werden.
Ist das möglich?
Danke im voraus!
Hendrik
28.08.2008 18:36:42
Thread-ID: 1005564
4 Beiträge
nur eine der Spalten darf gefüllt sein
Simon

Hallo,
ich habe glaube ich eine einfache Frage, komme aber nicht drauf Sie selbst zu lösen:
ich habe 4 Spalten: ja; nein; mehr Menge; weniger Menge
dahinter möchte ich eine 5te Spalte Kontrolle setzen. In dieser soll eine Fehlermeldung erscheinen falls mehr als eine Spalte ausgefüll...
01.09.2008 16:15:00
Thread-ID: 1006502
8 Beiträge
Spalten in Zeilen anhängen
Jörg

Hallo zusammen,
in einer Tabelle mit ~1000 Artikeln in Spalte A stehen jeweils in den Spalten B-M die 12 zum Artikel gehörenden Monatswerte des Verbrauchs.
Ich brauche diese Daten jetzt so angeordnet, dass weiterhin alle Artikel in Spalte A stehen, jedoch die einzelnen Monatswerte unter...
01.09.2008 18:03:42
Thread-ID: 1006570
11 Beiträge
Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Häufigkeit einer Uhrzeit aus einer Spalte
wolfgang

Hallo Leute
Ich habe eine Spalte mit einer menge Uhrzeiten und möchte die Häufigkeit einer Uhrzeit ( wie oft ist eine eintrag vorhanden)zum Beispiel zwischen 08:00 und 17:00!! Ich weiß das für euch sicher ein leichtes ist jemanden wie mir zu helfen!
Schon jetzt besten Dank für eure Mühe...
02.09.2008 14:57:58
Thread-ID: 1006808
9 Beiträge
Anzeige

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
3
3
5
2
3
7
10
8
8
1
3
3
1
1
2
9
2
2
2
4
4
4
2
5