Office 2013: Multipage übergaben

[LexLea]

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

[maninweb]

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ß

[steve1da]

Hola,

zur Info...

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

Gruß,
steve1da

[LexLea]

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

[LexLea]

@ steve1da

Habe denn Beitrag grade erst gelesen und versuche in gerade umusetzen

[LexLea]

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???

[maninweb]

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ß

[LexLea]

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

[LexLea]

@maninweb

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

Gruß