Office: Makro - Deklaration von Variabler Sheetauswahl, Auswahl über ComboBox

Helfe beim Thema Makro - Deklaration von Variabler Sheetauswahl, Auswahl über ComboBox in Microsoft Excel Hilfe um das Problem gemeinsam zu lösen; Hallo, ich habe folgendes Problem: Ich habe ein Makro welches Zellinhalte in ein anderes Tabellenblatt kopiert. Soweit so gut. Nun hätte ich das... Dieses Thema im Forum "Microsoft Excel Hilfe" wurde erstellt von Ijoohn, 26. April 2012.

  1. Ijoohn Erfahrener User

    Makro - Deklaration von Variabler Sheetauswahl, Auswahl über ComboBox


    Hallo,
    ich habe folgendes Problem:

    Ich habe ein Makro welches Zellinhalte in ein anderes Tabellenblatt kopiert. Soweit so gut.
    Nun hätte ich das gerne so das dieses Makro die Werte in ein variables Tabellenblatte kopiert. Die Variable wird über die ComboBox bestimmt.

    Ich komme nur mit der Sheetsdeklaration nicht weiter...

    Ich habe:

    Sub WerteEintragen()

    Sheets(ComboBox1.List(ComboBox1.ListIndex)).Select

    Range("J11:X11").Select

    Application.CutCopyMode = False
    Selection.Insert Shift:=xlDown

    Sheets("Eingabe").Range("J7:X7").Select
    Selection.Copy

    Sheets(ComboBox1.List(ComboBox1.ListIndex)).Select
    Range("J11").Select

    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

    Sheets("Eingabe").Range("A1").Select

    End Sub


    Mit - Sheets(ComboBox1.List(ComboBox1.ListIndex)).Select
    - hab ich das Problem... (und auch mehrfach daran rumgespielt und versch. Variante probiert)
    Da ich totaler Anfänger bin und mir das Wissen nach und nach selber aneigne (angeignet habe) weiss ich nichtmal ob der Ansatz überhaupt so richtig ist... ?
    Über Hilfe würd ich mich daher freuen...
    MfG,
    Ijoohn
     
    Ijoohn, 26. April 2012
    #1
  2. Beverly
    Beverly Erfahrener User
    Hi,

    versuche es mal so:

    Code:
    Sub WerteEintragen()
       Dim wksTab As Worksheet
       Dim blnVorhanden As Boolean
       For Each wksTab In Worksheets
          If wksTab.Name = ActiveSheet.OLEObjects("ComboBox1").Object.Value Then
             With wksTab
                .Range("J11:X11").Insert Shift:=xlDown
                Sheets("Eingabe").Range("J7:X7").Copy
                .Range("J11").PasteSpecial Paste:=xlPasteValues
                Application.CutCopyMode = False
                Exit For
             End With
          End If
       Next wksTab
    End Sub
    Bis später,
    Karin
     
    Beverly, 26. April 2012
    #2
  3. Ijoohn Erfahrener User
    Top !
    Perfekt !
    Es klappt !
    Jetzt versuch ich mal zu verstehen warum...
    Soviele neue Ausdrücke... Die muss ich mir doch erstmal zu gemüte führen und mich da ordentlich durchwurschteln... ;)
    Ach so, hab ich schon danke gesagt? Dann jetzt. Danke.
    MfG,
    Ijoohn
     
    Ijoohn, 26. April 2012
    #3
  4. Beverly
    Beverly Erfahrener User

    Makro - Deklaration von Variabler Sheetauswahl, Auswahl über ComboBox

    Hi,

    hier der Code noch einmal mit einigen Kommentaren - vielleicht helfen sie dir, ihn besser zu verstehen:

    Code:
    Sub WerteEintragen()
       Dim wksTab As Worksheet          ' Variable für das Tabellenblatt als Woksheet-Objekt
       ' Schleife über alle Worksheets
       For Each wksTab In Worksheets
          ' Name des durchlaufenen Worksheets stimmt mit der ComboBox-Auswahl überein
          If wksTab.Name = ActiveSheet.OLEObjects("ComboBox1").Object.Value Then
             ' bezieht sich auf das gerade durchlaufene Worksheet (mit dem Namen aus der ComboBox-Auswahl)
             With wksTab
                ' Bereich J11:X11 nach unten verschieben
                .Range("J11:X11").Insert Shift:=xlDown
                ' Bereich J7:X7 aus Worksheet Eingabe kopieren
                Sheets("Eingabe").Range("J7:X7").Copy
                ' in J11 Werte nur einfügen
                .Range("J11").PasteSpecial Paste:=xlPasteValues
                ' Kopiermarkierung löschen
                Application.CutCopyMode = False
                Exit For
             End With
          End If
       Next wksTab
    End Sub
    
    Die Boolean-Variable habe ich gelöscht, sie ist nicht erforderlich - ich hatte zuerst eine andere Lösung und habe den Code dann noch einmal vereinfacht. Habe die Variable im zuvor geposteten Code nur vergessen zu löschen.

    Bis später,
    Karin
     
    Beverly, 26. April 2012
    #4
  5. Ijoohn Erfahrener User
    Mehr Mühe kann man wohl von einer Antwort nicht erwarten...
    Das wär echt nicht nötig gewesen - hilft aber ungemein.
    *Daumenhoch*
    MfG,
    Ijoohn
     
    Ijoohn, 26. April 2012
    #5
Thema:

Makro - Deklaration von Variabler Sheetauswahl, Auswahl über ComboBox

Die Seite wird geladen...
  1. Makro - Deklaration von Variabler Sheetauswahl, Auswahl über ComboBox - Similar Threads - Makro Deklaration Variabler

  2. Makro aus personal.xls starten

    in Microsoft Excel Hilfe
    Makro aus personal.xls starten: Auf einem Arbeitsblatt habe ich mehrere Buttons. Die zugehörigen Makros sind in personal.xls gespeichert. Aus dem Code-Editor heraus kann ich die Makros ohne Problem starten. auf dem Arbeitsblatt...
  3. Dokumente und Blatt umbenennen

    in Microsoft Word Hilfe
    Dokumente und Blatt umbenennen: Ich lade mir jeden Tag csv-Dateien von meiner Bank herunter. Diese sind mit Datum versehen, also die Datei selbst und das erste Blatt, z.B. "Konto_13.02.2024". Wenn ich ein Makro erstelle, in dem...
  4. Speichern mit dem Titel der Zelle A2

    in Microsoft Excel Hilfe
    Speichern mit dem Titel der Zelle A2: Moin moin, Ich habe per Makro einen Arbeitsablauf aufgezeichnet der soweit auch funktioniert. Dieser Endet jedoch im "Speichern Unter" Fenster, welches durch das Klicken von "Drucken als PDF"...
  5. Barcode Scanliste Makro anpassen

    in Microsoft Excel Hilfe
    Barcode Scanliste Makro anpassen: Hallo zusammen! Einer der Mitglieder hier hat mir eine Funktionsliste erstellt, mit der man Barcodes scannt und danach einen Wert über die Bildschirmtastatur eingibt. Die Barcodes hatten bisher...
  6. Makro wird nicht angezeigt im Makro Auswahlfenster

    in Microsoft Excel Hilfe
    Makro wird nicht angezeigt im Makro Auswahlfenster: Hallo, wenn ich mein Makro ausführen möchte, öffnet sich das Makro Auswahlfenster. Allerdings wird das Makro nicht aufgelistet. Das Makro befindet sich in der PERSONAL.xlsb Arbeitsmappe. Die...
  7. Überprüfen ob Tabellenballt mit Namen aus Zelle vorhanden ist

    in Microsoft Excel Hilfe
    Überprüfen ob Tabellenballt mit Namen aus Zelle vorhanden ist: Da ich VBA noch nicht so lange benutze komme ich doch gerade an meine Grenzen. Ich möchte überprüfen ob es ein Bestimmtes Tabellenblatt gibt im Tabellenblatt "GK" in P1 steht der zu überprüfende...
  8. Makros für csv-Export mit Anführungszeichen für ausgewählte Splaten

    in Microsoft Excel Hilfe
    Makros für csv-Export mit Anführungszeichen für ausgewählte Splaten: Hallo liebe Forengemeinde, ich habe folgendes Problem: Ich muss eine csv-Datei bearbeiten und anschließend wieder als csv-Datei speichern. In der Originaldatei sind einige Spalteninhalte in in...
  1. Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Information ausblenden