MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 12.09.2019, 08:44   #1
MCInferno
MOF User
MOF User
Standard Frage - Inhalt Zelle aus Tabelle3 per Button auf Tabelle1

Hallo,

ich verzweifle gerade. Ich verstehe nicht, warum es nicht funktioniert.
Ich habe auf dem Tabellenblatt 1 einen Button, mit welchem ich Daten von Tabellenblatt 1 in ein geöffnetes Word-Dokument übertrage.
Weiter habe ich in Tabellenblatt 3 Daten, welche ebenfalls in das Word-Dokument übertragen werden sollen. Dazu habe ich in dem Tabellenblatt 1 ein Auswahlfeld eingerichtet.
Allerdings verstehe ich nicht, wieso die Daten nicht gezogen werden. Hier ein Auszug aus dem Code (:

Code:

  Select Case Auswahl
  Case 1
  Traeger = Worksheets(3).Range("A2")
  .
  End Select
  
  MsgBox Traeger
Das komische ist, wenn ich "Worksheets(3)" weg lasse, dann erscheint der Inhalt von A2 von Tabelle 1. Die Abfrage funktioniert also und erkennt, die Auswahl des Auswahlfelds. Eventuell kennt von euch ja noch jemand einen Trick oder sieht den Fehler. Ach ja, Sheets(3) und ("Tabelle3") (auch bei Woksheets) habe ich auch probiert.
MCInferno ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.09.2019, 08:54   #2
Mase
MOF Koryphäe
MOF Koryphäe
Standard

Hi,

Zitat:

Das komische ist, wenn ich "Worksheets(3)" weg lasse, dann erscheint der Inhalt von A2 von Tabelle 1

Wenn die Angabe wegbleibt, wird das aktive Tabellenblatt verwendet.

Zitat:

Hier ein Auszug aus dem Code

Poste mal den Rest der Prozedur.

__________________

gruß
Marco

Feedback erwünscht.
Wie ? -> Verwende hierzu das mittlere Symbol links.
Mase ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.09.2019, 09:03   #3
MCInferno
Threadstarter Threadstarter
MOF User
MOF User
Standard

Zitat: von Mase Beitrag anzeigen

Poste mal den Rest der Prozedur.

Da ist nicht viel mehr:

Code:

Private Sub CommandButton2_Click()

Dim Traeger As String

Select Case Auswahl
Case 1
Traeger = Worksheets(3).Range("A2") 

End Select
  
MsgBox Traeger
     
End Sub
Es soll noch mehr dazu kommen. Aber ich habe mir angewöhnt, immer erst spatanisch zu testen, bevor ich mehr schreibe und am Ende geht nichts.
MCInferno ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.09.2019, 09:13   #4
Mase
MOF Koryphäe
MOF Koryphäe
Standard

Zitat:

Es soll noch mehr dazu kommen. Aber ich habe mir angewöhnt, immer erst spatanisch zu testen, bevor ich mehr schreibe und am Ende geht nichts.

Was ist 'Auswahl', in Deinem Code?

__________________

gruß
Marco

Feedback erwünscht.
Wie ? -> Verwende hierzu das mittlere Symbol links.
Mase ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 12.09.2019, 09:26   #5
MCInferno
Threadstarter Threadstarter
MOF User
MOF User
Standard

Auswahl ist eine Public Variable, welche ich auch in anderen Prozeduren (dann aber bezogen auf Tabellenblatt 1) benutze.

Komischerweise geht es jetzt mit Worksheets(3). Ich habe nichts verändert und es macht das, was es soll. Keine Ahnung, was da die letzten Stunden gehackt hat.

Danke aber für den Lösungsversuch.
MCInferno ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 09:09 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.