Collapse column

Autor Thema: Office 2013: Multipage übergaben  (Gelesen 233 mal)

Offline LexLea

  • Newbie
  • *
  • Beiträge: 6
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Wenig
  • Version [Office] : Office 2013
Office 2013: Multipage übergaben
« am: September 15, 2018, 12:42:04 Nachmittag »
Hallo zusammen

Habe ein kleines Problem und hoffe Ihr könnt mir Helfen


Es geht um eine Multipage mit 10 Pages und eine Combobox mit Auswahl

in der Combobox wird die auswahl getroffen in welches Sheet gespeichert wird
und im Auditbericht ist die auswahl +/o/- dieser wert soll dann in die jeweilige Zeile
des Sheets übertragen werden

Da ich ein blutjunger Anfänger bin komme ich hier nicht mehr weiter

Bitte um eure Hilfe

Offline maninweb

  • Global Moderator
  • Hero Member
  • *****
  • Beiträge: 969
  • Microsoft MVP
    • Profil anzeigen
    • Excel Formula Translator
  • Office-KnowHow: Experte
  • VBA-KnowHow- : Sehr gut
  • Version [Office] : Office 2016
Antw:Office 2013: Multipage übergaben
« Antwort #1 am: September 16, 2018, 09:53:12 Vormittag »
Hallo,

testen wird wohl kaum jemand können, der eine neuere Version von Excel besitzt. Die MS Office Web Components, die Du verwendest,
sind von MS als Deprecated (Veraltet) markiert und die Bibliothek wird von MS gar nicht mehr verteilt. Somit erscheinen erstmal eine
ganze Menge Fehlermeldungen.

Und, dafür, dass Du Dich als blutjunger Anfänger bezeichnest, sind aber eine ganze Menge Windows API-Funktionen drin.
Weisst und verstehst Du, was die da machen?

Nun, generell kannst Du ein Sheet mit vollständiger Adressierung referenzieren, also beispielhaft...

Code: Visual Basic
  1. Dim mySheet As String
  2. mySheet = ComboBox1.Value
  3. ThisWorkbook.Worksheets(mySheet).Cells(1, 1).Value = "Test"

Gruß

Microsoft Most Valuable Professional (MVP) 2011 - 2018/2019
https://de.excel-translator.de :: Online Excel-Formel-Übersetzer :: Alle Übersetzungen der Excel Funktionen & Fehlerwerte

Online steve1da

  • Hero Member
  • *****
  • Beiträge: 1.233
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Wenig
  • Version [Office] : Office 2010
Antw:Office 2013: Multipage übergaben
« Antwort #2 am: September 16, 2018, 13:27:10 Nachmittag »

Offline LexLea

  • Newbie
  • *
  • Beiträge: 6
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Wenig
  • Version [Office] : Office 2013
Antw:Office 2013: Multipage übergaben
« Antwort #3 am: September 16, 2018, 13:31:14 Nachmittag »
Ich Arbeite mit VBA erst seit 3 Monaten und habe mir mit Foren und Büchern
die aktuelle Userform zusammengebaut
Bin noch sehr grün hinter den Ohren und weiß dadurch leider nicht alles
Hoffe dennoch das es mit der Zeit und einigen Kursen besser wird

Offline LexLea

  • Newbie
  • *
  • Beiträge: 6
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Wenig
  • Version [Office] : Office 2013
Antw:Office 2013: Multipage übergaben
« Antwort #4 am: September 16, 2018, 13:42:33 Nachmittag »
@ steve1da

Habe denn Beitrag grade erst gelesen und versuche in gerade umusetzen

Offline LexLea

  • Newbie
  • *
  • Beiträge: 6
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Wenig
  • Version [Office] : Office 2013
Antw:Office 2013: Multipage übergaben
« Antwort #5 am: September 16, 2018, 15:45:10 Nachmittag »
Habe was Probiert läuft er nicht so wie ich es mir Denke
Private Sub CommandButton_Audit_Click()
    Dim i As Integer
    Dim mySheet As String
    mySheet = ComboBox1.Value
    For i = 1 To 3
        If Me.Controls("Audit" & i).Text Then
        With Worksheets(mySheet)
        .Cells(8, Cells(8, Columns.Count).End(xlToLeft).Column + 1).PasteSpecial xlPasteValues
            End With
        End If
    Next i
        For i = 4 To 6
        If Me.Controls("Audit" & i).Text Then
        With Worksheets(mySheet)
        .Cells(14, Cells(14, Columns.Count).End(xlToLeft).Column + 3).PasteSpecial xlPasteValues
            End With
        End If
    Next i
End Sub

bin ich mit den Code einigermaßen auf de richtigen weg oder???

Offline maninweb

  • Global Moderator
  • Hero Member
  • *****
  • Beiträge: 969
  • Microsoft MVP
    • Profil anzeigen
    • Excel Formula Translator
  • Office-KnowHow: Experte
  • VBA-KnowHow- : Sehr gut
  • Version [Office] : Office 2016
Antw:Office 2013: Multipage übergaben
« Antwort #6 am: September 16, 2018, 18:06:05 Nachmittag »
Hallo,

Du müsstest schon mySheet auf das passende Steuerelement beziehen, wenn Me.Controls("Audit" & i) Deine Combobox ist,
dann verwende auch dessen Wert mySheet = Me.Controls("Audit" & i).Value. Mehr kann ich nicht sagen, zumal Deine
Datei ja auch von mir nicht getestet werden kann.

Ausserdem hält sich meine Motivation, zwei Foren gleichzeitig im Auge zu behalten, sehr in Grenzen - eher gar nicht.

Gruß
Microsoft Most Valuable Professional (MVP) 2011 - 2018/2019
https://de.excel-translator.de :: Online Excel-Formel-Übersetzer :: Alle Übersetzungen der Excel Funktionen & Fehlerwerte

Offline LexLea

  • Newbie
  • *
  • Beiträge: 6
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Wenig
  • Version [Office] : Office 2013
Antw:Office 2013: Multipage übergaben
« Antwort #7 am: September 16, 2018, 19:12:38 Nachmittag »
Habe mysheet für die Combobox auswahl zurecht gelegt für das richtige Tabellenblatt
und 1 to 3 für die my.control für die erste 3 Textboxen die übertragen werden müssen
so das beide zusammenspielen so das wenn Scheibbs in der combobox ausgewählt ist auch in das Tabellenblatt Scheibbs kommt
und mit den ersten 3 Textboxen wo man +/o/- eintragen kann in die jeweilige zeile gespeichert wird

Tut leid aber bei mir brennt der hut deswegen
ausserdem sind es 2 probleme die ich in jeden Forum einzeln beschrieben habe
Habe extra dazugeschrieben aus einen anderen Beitrag falls einer eine Idee hat

Offline LexLea

  • Newbie
  • *
  • Beiträge: 6
    • Profil anzeigen
  • Office-KnowHow: Fortgeschritten
  • VBA-KnowHow- : Wenig
  • Version [Office] : Office 2013
Antw:Office 2013: Multipage übergaben
« Antwort #8 am: September 17, 2018, 13:22:38 Nachmittag »
@maninweb

Habe nun alle Spreadsheet herausgerissen
jetzt sollte es ohne Fehlermeldungen sich öffnen lassen

Gruß