Thema Datum  Von Nutzer Rating
Antwort
11.02.2016 08:23:29 david
NotSolved
Blau Spalten mit Makro kopieren !!!Hilfe!!!
 11.02.2016 09:03:44 Gast69107
NotSolved
12.02.2016 16:49:13 Gast29416
NotSolved

Ansicht des Beitrags:
Von:
Gast69107		 Datum:
11.02.2016 09:03:44		 Views:
685		 Rating:
     
Antwort:
  Ja
Thema:
Spalten mit Makro kopieren !!!Hilfe!!!

Hallo Du,

so allgemein, wie deine Beschreibung - ohne Gewähr

Option Explicit

Sub SpalteKopieren()

'die Umgebung festlegen ! ********************************************
Const QUELLTABELLE As String = "Tabelle1"
Const ZIELTABELLE As String = "Tabelle2"
Const QUELLSPALTE As String = "A"
'*********************************************************************
'
Dim rngQuelle As Range, c As Range
Dim lngZielspalte As Long

   With Sheets(ZIELTABELLE)
      lngZielspalte = 1
      'Belegung prüfen
      Set c = .UsedRange
      If c.Address <> .Cells(1).Address Then
         'schon benutzt
         lngZielspalte = c.Columns(c.Columns.Count).Offset(, 1).Column
      End If
   End With
   
   Set c = Nothing
   
   With Sheets(QUELLTABELLE).Columns(QUELLSPALTE)
      'Belegung prüfen
      On Error Resume Next
      Set c = .ColumnDifferences(Comparison:=.Cells(.Rows.Count))
      On Error GoTo 0
      If Not c Is Nothing Then
         'Daten gefunden
         'Ziel = lngZielspalte Zelle 1
         c.Copy Destination:=Sheets(ZIELTABELLE).Columns(lngZielspalte).Cells(1)
      End If
   End With
End Sub

Gruß

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
11.02.2016 08:23:29 david
NotSolved
Blau Spalten mit Makro kopieren !!!Hilfe!!!
 11.02.2016 09:03:44 Gast69107
NotSolved
12.02.2016 16:49:13 Gast29416
NotSolved