Thema Datum  Von Nutzer Rating
Antwort
Rot Immer aktive Seite berücksichtigen
 03.04.2019 13:25:25 hilfesuchend
NotSolved
03.04.2019 13:45:40 Gast352
***
NotSolved
03.04.2019 14:18:09 Gast99652
NotSolved
03.04.2019 14:45:38 hilfesuchend
NotSolved

Ansicht des Beitrags:
Von:
hilfesuchend		 Datum:
03.04.2019 13:25:25		 Views:
896		 Rating:
     
Antwort:
  Ja
Thema:
Immer aktive Seite berücksichtigen

Hallo,

ich habe in den unendlichen weiten des internets bereits ein makro gefunden was ich so ändern kann dass es für meine bedürfnisse passt.

Jetzt hätte ich aber gern dass das makro immer das gerade aktive Tabellen Blatt bearbeitet. Im mom muss ich das Tabellenblatt noch umbennen damit es funktioniert.

Hier mal ein teil meines Makros:

Option Explicit

Sub Datenzusammenfassen()
    Dim nZeile As Integer
    Dim vSpalte As Integer
    Dim vZeile As Integer
    Dim nSpalte As Integer
    Dim vSheet As String
    Dim nSheet As String


    vSheet = "Tabelle1" ' quellTabellenBlatt
    nSheet = "Tabelle1" 'ZielTabellenBlatt
    nZeile = 1 'nach Zeile
    nSpalte = 26 'nach Spalte

        'Spalte B #
            vSpalte = 2
            For vZeile = 1 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row
            Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
            nZeile = nZeile + 1
            Next

        'Spalte J #
            vSpalte = 10
            For vZeile = 3 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row
            Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
            nZeile = nZeile + 1
            Next

        'Spalte R #
            vSpalte = 18
            For vZeile = 3 To Sheets(vSheet).Cells(65536, vSpalte).End(xlUp).Row
            Sheets(nSheet).Cells(nZeile, nSpalte) = Sheets(vSheet).Cells(vZeile, vSpalte)
            nZeile = nZeile + 1
            Next
 
muss dabei sehr viel ändern? ich kenn mich leider nicht wirklcih aus. hab versucht statt "tabelle 1" Active Sheet zu benutzen aber so einfach war es dann leider doch nicht. Freue mich über hilfe :)
 
Lieben 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
Rot Immer aktive Seite berücksichtigen
 03.04.2019 13:25:25 hilfesuchend
NotSolved
03.04.2019 13:45:40 Gast352
***
NotSolved
03.04.2019 14:18:09 Gast99652
NotSolved
03.04.2019 14:45:38 hilfesuchend
NotSolved