Office: Formular untereinander verknüpfen

Hi,

habe ein paar Formulare in einem Excelsheet diese gehen auch soweit gut.
Nur habe ich jetzt das Problem das noch etwas fehlt.
Bei der Auswahl im Formular von Button A und Button B und Button C
soll nun in eine Zelle der Wert X geschrieben werden
Bei der Auswahl von Button A und B und D
soll der Wert Y geschrieben werden.

Was noch eine alternative wäre, nachdem das Formular ausgefüllt ist,
schreibt es die Werte in die entsprechenden Zellen.

Nun könnte ich auch sagen wenn im Sheet 1
A5 und A8 die Werte "Sonne" und "Auto" steht
das der Wert Cabrio in Sheet 2 auf Zelle A4 geschrieben wird
Denke wäre vielleicht einfacher?

:)

 

Hi,

klingt nach Kuddelmuddel.... oder sind das keine Buttons sondern Checkboxen?
Lade mal Deine Datei hier hoch, damit man sieht wovon Du sprichst....

 

Ok vielleicht wird es so deutlicher, sorry.
Man wählt die einzelnen Punkte aus.
Jetzt sollte halt am Ende wenn z.Bsp. immer
Feld 1 angeklickt wird.
Im Extrasheet in Zelle A1
Bus 1 stehen

 

So habe ich es in den Felder hinterlegt

PHP:

         Private Sub Forward_Click()
Unload Me
Call Naechstes_Fenster
End Sub

Private Sub Back_Click()
Unload Me
Call Vorheriges_Fenster
End Sub

Private Sub FC_Bayern_Click()
Unload Me
Motortyp_Auswahl = "FC_Bayern"
Call Naechstes_Fenster
End Sub


 

Hi,

@w3/?r6öQ@3#'p = Bahnhof?

#2

Gruß
Rainer

 

So komme leider nicht dazu habe mal ein Beispiel angehängt wie ich es mir vorstelle.

cu

 

Bist wohl an einer Lösung wenig interessiert,
weil du hier eine Datei hochlädst ohne Code und Beschreibung.
Keine Formulare.

Es ist schlicht eine Unverschämtheit, was du hier anbietest!

Bzw. deine Eingaben haben mit dem Start nichts mehr zu tun.
Außerdem ist bei "Eingabe 1" usw. keine Logik zu erkennen.

Google mal nach 43!

 

Hi,

Sorry aber was soll ich den anbieten wenn ich keinen brauchbaren Code habe ;-(
Die angehängte Datei soll zeigen was ich als Ergebnis wünsche.
Die Eingaben nehme ich von Hand vor.
Mich interessiert nur den Code zum Ergebnis.

cu

 

Aus #1

aus #3
https://www.ms-office-forum.net/foru...3&d=1589208366
aus #4

in #6 ist eine Tabelle, die mit dem vorherigen gar nichts zu tun hat!!!

Das passt alles nicht zusammen!

Ja klar!
Bist nicht in der Lage zu erklären und willst nur den Code.
So macht das keinen Spass!

 

Ja was soll ich den erklären wenn ich doch gar nicht weiß wie es geht ;-/
Hier habe mal das Excel angehängt, welches ich denke zum Ziel führen kann von der Logik her.

Dieser Coder würde mir vom Aufbau her gefallen.
Denke ihr kennt euch da besser aus als ich.
Er meckert das die class nicht definiert ist oder macht dann einen Syntax Fehler.
Von der Logik her würde ich das ganze erweitern mit weiteren Wörtern.

cu

PHP:

         Sub Test()
Dim strMarks1 As String, strMarks2 As String, strSuch As String, class As String

strMarks1 = Sheets("Marks").Cells(2, 3).Value
strMarks2 = Sheets("Marks").Cells(2, 4).Value
strSuch = strMarks1 & " " & strMarks2


'Alternativ geht auch
'strSuch = Sheets("Marks").Cells(2, 3).Value & " " & Sheets("Marks").Cells(2, 4).Value

' check the marks using if and ElseIf
If strSuch = "Sonnen König" Then
class = "Frankreich"
ElseIf strSuch = "Frosch König" Then
class = "Taucher"
Else
' All other marks
class = "Fail"
End If

Sheets("Marks").Cells(2, 5).Value = class

End Sub


 

Entschuldige bitte die krasse Antwort:
Beschäftige dich mit etwas anderem!

Du bietest hier eine Datei an, die zu einem VBA-Kurs gehört.
VBA Articles - Excel Macro Mastery
Sie hat mit dem gezeigten Code wenig zu tun.
Und mit dem, was du zu Anfang und später wolltest, erst recht nicht!

Ich beende das hiermit.
Da gehe ich lieber in den Garten Unkraut rupfen.
Und du gehst auf die Ignorierliste.

Gruß
Rainer

 

Kein Problem habe jetzt endlich es zum laufen bekommen.
Es bezog sich alles auf den ersten Post, der Weg dorthin habe ich selber nicht gewusst.
Jetzt erstmal ein Bier :-)
Für alle netten Menschen hier der Code.

PHP:

         Sub Test()
Dim strMarks1 As String, strMarks2 As String, strMarks3 As String, strSuch As String, class As String

strMarks1 = Sheets("Marks").Cells(2, 2).Value
strMarks2 = Sheets("Marks").Cells(2, 3).Value
strMarks3 = Sheets("Marks").Cells(2, 4).Value
strSuch = strMarks1 & " " & strMarks2 & " " & strMarks3

'Alternativ geht auch
'strSuch = Sheets("Marks").Cells(2, 3).Value & " " & Sheets("Marks").Cells(2, 4).Value

' check the marks using if and ElseIf
If strSuch = "Snyder Sonnen König" Then
class = "Frankreich"
ElseIf strSuch = "Snyder Frosch König" Then
class = "Taucher"
Else
' All other marks
class = "Fail"

End If
Sheets("Marks").Cells(2, 5).Value = class


End Sub