Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<

Microsoft Office 2003-2019 => Excel => Thema gestartet von: LexLea am September 15, 2018, 12:42:04 Nachmittag

Titel: Office 2013: Multipage übergaben
Beitrag von: LexLea 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
Titel: Antw:Office 2013: Multipage übergaben
Beitrag von: maninweb 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ß

Titel: Antw:Office 2013: Multipage übergaben
Beitrag von: steve1da am September 16, 2018, 13:27:10 Nachmittag
Hola,

zur Info...

http://www.clever-excel-forum.de/Thread-VBA-Formelfehler (http://www.clever-excel-forum.de/Thread-VBA-Formelfehler)

Gruß,
steve1da
Titel: Antw:Office 2013: Multipage übergaben
Beitrag von: LexLea 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
Titel: Antw:Office 2013: Multipage übergaben
Beitrag von: LexLea am September 16, 2018, 13:42:33 Nachmittag
@ steve1da

Habe denn Beitrag grade erst gelesen und versuche in gerade umusetzen
Titel: Antw:Office 2013: Multipage übergaben
Beitrag von: LexLea am September 16, 2018, 15:45:10 Nachmittag
Habe was Probiert läuft er nicht so wie ich es mir Denke
Code: [Auswählen]
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???
Titel: Antw:Office 2013: Multipage übergaben
Beitrag von: maninweb 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ß
Titel: Antw:Office 2013: Multipage übergaben
Beitrag von: LexLea 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
Titel: Antw:Office 2013: Multipage übergaben
Beitrag von: LexLea am September 17, 2018, 13:22:38 Nachmittag
@maninweb

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

Gruß