Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
908to912
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
908to912
908to912
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Spalten mit VBA kopieren

Spalten mit VBA kopieren
23.09.2007 08:35:00
Herbert
Hallo!
Ich habe eine Tabelle mit mehreren Seiten wo überall Spalten Hellgrün hinterlegt sind.
Nun suche ich nach einer VBA Lösung, bei der entweder eine neue Tabelle oder eine neue Seite geöffnet wird.
Nun sollten alle Spalten die Hellgrün sind(aber nur wenn sie von Zeile 1-65536 vollständig markiert sind)
kopiert werden und in die neue Tabelle bzw. Seite eingefügt werden.
Ich hoffe Ich habe mich verständlich ausgedrückt. Leider bin ich VBA Anfänger!
mfg
Herbert

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Spalten mit VBA kopieren
23.09.2007 08:42:00
Josef
Hallo Herbert,
"Ich habe eine Tabelle mit mehreren Seiten wo überall Spalten Hellgrün hinterlegt"
Meinst du vielleicht eine Mappe mit mehreren Tabellen?
Gruß Sepp

AW: Spalten mit VBA kopieren
23.09.2007 08:47:00
Herbert
Entschuldigung!
Natürlich Mappe und Tabellen.
mfg
Herbert

AW: Spalten mit VBA kopieren
23.09.2007 09:29:04
Josef
Hallo Herbert,
probier mal.
' **********************************************************************
' Modul: Modul1 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub test()
Dim rng As Range
Dim objWS As Worksheet, objWB As Workbook
Dim intC As Integer

On Error GoTo ErrExit
GMS

For Each objWS In ThisWorkbook.Worksheets
    
    For Each rng In objWS.Columns
        
        If rng.Interior.ColorIndex = 35 Then
            
            If objWB Is Nothing Then Set objWB = Workbooks.Add(xlWBATWorksheet)
            
            intC = intC + 1
            
            If intC > Columns.Count Then
                objWB.Worksheets.Add after:=objWB.Sheets(objWB.Sheets.Count)
                intC = 1
            End If
            
            rng.Copy objWB.Sheets(objWB.Sheets.Count).Columns(intC)
            
        End If
        
    Next
    
Next

ErrExit:
GMS True
Set objWS = Nothing
Set objWB = Nothing
Set rng = Nothing
End Sub

Sub GMS(Optional ByVal Modus As Boolean = False)
Static lngCalc As Long

With Application
    .ScreenUpdating = Modus
    .EnableEvents = Modus
    .DisplayAlerts = Modus
    .EnableCancelKey = IIf(Modus, 1, 0)
    If Modus Then
        .Calculation = lngCalc
    Else
        lngCalc = .Calculation
    End If
    .Cursor = IIf(Modus, -4143, 2)
    .CutCopyMode = False
End With

End Sub

Gruß Sepp

Anzeige
AW: Spalten mit VBA kopieren
23.09.2007 09:53:00
Herbert
Hallo!
Funktioniert wunderbar!
Und wieder einmal konnte mir dieses Forum weiterhelfen.
Gruss
Herbert

AW: Spalten mit VBA kopieren
24.09.2007 20:23:00
Herbert
Hallo!
Das Makro funktioniert toll, nur ist jetzt noch ein Problem aufgetaucht.
Da ich in jeder Tabelle in Spalte "A" wichtige Daten zu den grün gefärbten Spalten habe bräuchte ich, falls in der jeweiligen Tabelle Hellgrün hinterlegte Spalten exestieren auch die Spalte "A" vorangesetzt.
Bitte um einen Lösungsvorschlag da ich selbst wahrscheinlich auf keinen grünen Zweig komme.
Gruss
Herbert

AW: Spalten mit VBA kopieren
24.09.2007 20:38:00
Josef
Hallo Herbert,
das sollte es tun.
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub test()
Dim rng As Range
Dim objWS As Worksheet, objWB As Workbook
Dim intC As Integer
Dim blnFirstCol As Boolean

On Error GoTo ErrExit
GMS

For Each objWS In ThisWorkbook.Worksheets
    blnFirstCol = True
    For Each rng In objWS.Columns
        
        If rng.Interior.ColorIndex = 35 Then
            
            If objWB Is Nothing Then Set objWB = Workbooks.Add(xlWBATWorksheet)
            
            intC = intC + 1
            
            If intC > Columns.Count Then
                objWB.Worksheets.Add after:=objWB.Sheets(objWB.Sheets.Count)
                intC = 1
            End If
            
            If blnFirstCol Then
                rng.Parent.Columns(1).Copy objWB.Sheets(objWB.Sheets.Count).Columns(intC)
                intC = intC + 1
                blnFirstCol = False
            End If
            
            rng.Copy objWB.Sheets(objWB.Sheets.Count).Columns(intC)
            
        End If
        
    Next
    
Next

ErrExit:
GMS True
Set objWS = Nothing
Set objWB = Nothing
Set rng = Nothing
End Sub

Sub GMS(Optional ByVal Modus As Boolean = False)
Static lngCalc As Long

With Application
    .ScreenUpdating = Modus
    .EnableEvents = Modus
    .DisplayAlerts = Modus
    .EnableCancelKey = IIf(Modus, 1, 0)
    If Modus Then
        .Calculation = lngCalc
    Else
        lngCalc = .Calculation
    End If
    .Cursor = IIf(Modus, -4143, 2)
    .CutCopyMode = False
End With

End Sub

Gruß Sepp

Anzeige
AW: Spalten mit VBA kopieren
25.09.2007 13:30:29
Herbert
Hallo!
Habe das Makro heute erst eingebaut und läuft genau wie ich es wollte!
vielen Dank
Herbert

299 Forumthreads zu ähnlichen Themen

Zellen kopieren (mit Formatierung)
Yves

Hallo zusammen,
ich möchte Daten von einem Tabellenblatt (Tabelle2) in ein anderes Tabellenblatt (Tabelle1) kopieren.
Habe dies bis anhin so gelöst:
sheets("Tabelle1").cells(1,1).value = sheets("Tabelle2").cells(5,1).value
Somit wurden einfach nur die Werte 'kopiert'. Nun würde...
08.08.2008 14:09:18
Thread-ID: 1000289
8 Beiträge
Anzeige
Spalten mit Formeln mit 1 multiplizieren
Susanne99

Hallo, kriege hier per Datenbankverlinkung teilweise Zahlen eingespielt, die Excel nicht als Zahl, sondern als Text identifiziert. Dem kann ich abhelfen, indem ich den Zellinhalt jeweils mit 1 multipliziere. Wie kann ich die
"*1" in die Formeln in ganzen Spaltenreihen einfügen, ohne jeden...
31.08.2008 10:34:22
Thread-ID: 1006147
8 Beiträge
VBA Zellen mit x kopieren aber nur bestimmte Zellen
balta

Hallo zusammen,
habe folgendes problem, undzwar sieht meine Tabelle so aus
__A____B______C______D_____E_______F_____G____H
1_x___alf___test1_________________1234___a____ist ein Auto
2_y________________Ulf____test2__________b____ist ein Krad
3
4
5
6_y_____________...
26.09.2008 23:48:47
Thread-ID: 1012775
6 Beiträge
Anzeige
Zellen formatierung mit Formeln
Peter

Hallo
habe eine Formatierung in einer Zelle, in der er die 0 als 00 anzeigen soll.
Das macht er so lange ich keine Formel drin habe.
Sobald die Formel drin ist., zeigt er mir nur eine 0 (Null an.
die Formel ist
RECHTS(SUMMEWENN(C14:C40;">0";G14:G40);2)
Wie bekomme ic...
08.11.2008 18:25:00
Thread-ID: 1022970
7 Beiträge
kopieren Formeln über mehrere Spalten
Maris

Hi,
ich ein kniffliges Problem das mich schon seit längerem im Excel wurmt und das ich bisher nicht lösen konnte. Ich weiß nicht ob es ohne VBA geht, aber am besten wärs mit excel Boardmitteln.
Ich habe 2 Tabellenblätter:
Tabelle1
Hier habe ich in jeder 6ten Spalte in Zeile 100...
25.11.2008 18:17:41
Thread-ID: 1027815
4 Beiträge
Formel mit VBA kopieren
Hartmut_M

Hallo, ich möchte mit VBA aus einem Bereich die Formeln in einen anderen Bereich kopieren.
Nutze hierfür folgenden code, wobei die variablen spalte und spalteneu für die Spaltennummern stehen:
Range(Cells(5, spalte), Cells(130, spalte)).Select
Selection.AutoFill Destination:=Range(C...
12.12.2008 10:02:26
Thread-ID: 1032307
3 Beiträge
Kopieren von Nichtleeren Zellen per Formel
Nichtleeren

Moin,
auf der Arbeit soll ich eine Tabelle anpassen:
In Tabellenblatt1 ist eine Matrix M6:P109, in einigen Zeilen (Artikelnummern in loser Reihenfolge) stehen Werte, (die Artikel, die im Bürobestand fehlen) in den meisten nicht.
Die Zeilen, in denen Werte stehen, sollen nun in Tabel...
10.01.2009 20:43:46
Thread-ID: 1038525
4 Beiträge
Spalten mit Auswahl kopieren
Micha

Hallo zusammen,
ich habe Spalten aus Datei_A Tabelle1 nach Datei_B Tabelle2 kopiert. Das habe ich auch dem Makrorekorder aufgezeichnet.
Allerdings ist das Ergebnis nicht das, was ich mir vorstelle, weil die Spalten unterschiedlich viele Zeilen haben kommt der Recorder (wahrscheinlich eh...
11.01.2009 19:14:26
Thread-ID: 1038701
10 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
7
4
7
5
5
6
3
2
3
9
7
5
3
5
20
6
4
3
2
2
5
16
4
3
17