Office: Per Button eingestellte Daten speichern in einer Liste

Hi,

hoffe ihr könnt mir helfen beim programmieren eines Speicherbuttons. Was er machen soll weiss ich aber leider kenne ich die Befehle nicht.

Gruss

 

Hallo!

Warum versiehst du nicht die ganzen roten Zellen mit einem DropDown (über Datenüberprüfung)?
Das wäre dann
- direkter im Handling
- fehlerunanfälliger
- VBA-frei

Du bräuchtest zum einen keine Extra-Zellen, -DropDowns, -Buttons und zum anderen wäre eine Änderung mit einem einzigen Eingriff zu erledigen, anstatt wie jetzt erst zwei DropDowns und dann noch einen Button bedienen zu müssen.

 

Hi,
das ist völlig richtig. So hatte ich das vorher auch und für mich war es auch ok. Aber die ganze Mappe ist eigentlich wesentlich grösser als die Download-Datei. Wollte das übersichtlicher und verständlicher machen für User die sich mit Excel nicht gut auskennen sonst schleichen sich da andere Fehler ein. Wollte das auch mit Passwort machen damit nicht alle User zugriff auf alle Blätter haben. Wenn 50 Leute die Mappe benutzten, die fast Null Plan von Excel haben, dann kann ich mich auf ein Chaos einstellen und das wollte ich damit umgehen.

Gruss

 

nicht möglich?
Ich suche schon die ganze Zeit nach einer Lösung aber irgendwie...finde ich sie nicht...

 

Hallo!

Natürlich ist das möglich:

Code:

Sub TomTom()
Dim Maschine, Werkzeug, Zeile
    Maschine = Range("M7").Offset(Range("M12") - 1, 0)
    Werkzeug = Range("O15").Offset(Range("M15") - 1, 0)
    For Zeile = 37 To 9999
        If Cells(Zeile, 1) = Maschine Then
            Cells(Zeile, 4) = Werkzeug
            Exit For
        End If
    Next Zeile
End Sub

 

wow,
sehr schön. Genau richtig :-)
Ein bissel verstehe ich wohl, wenn ich mir den Code anschaue.
Kannst du mir mal bitte genauer erklären was du da gemacht hast, damit ich auch den Rest verstehe?
Kann ich den Code auch in einer Userform einsetzen?
Was muss ich einfügen damit er den verweiss auf einem anderen Tabellenblatt ausführt weil die Tabelle normalerweise nicht auf der Seite liegt.

Gruss und besten Dank :-)

 

Hallo!

Ich war kurz weg, daher wirst du in der Zwischenzeit sicher schon auf die meisten deiner Fragen eine Antwort in der VBA-Hilfe von Excel gefunden haben.
Um eine Zelle auf einem speziellen Blatt anzusprechen:
Sheets("Blattname").Range("M7")

 

Danke,
gleich mal testen. Ich hab noch reichlich Fragen :-)
Das dauert wohl noch ein paar Wochen bis ich fertig bin. Ich hoffe Du hast noch ein paar Nerven über für mich :-)

 

irgendwie läuft das leider nicht.
Kannst du das mal in den Code einfügen bitte:

Dim Maschine, Werkzeug, Zeile
Maschine = Range("M7").Offset(Range("M12") - 1, 0)
Werkzeug = Range("O15").Offset(Range("M15") - 1, 0)
For Zeile = 37 To 9999
If Cells(Zeile, 1) = Maschine Then
Cells(Zeile, 4) = Werkzeug
Exit For
End If
Next Zeile

 

Hallo!

Tja, ohne deinen Aufbau zu kennen, wird auch das Einbauen schwierig...
Aber eigentlich brauchst du nur alle Range- und Cells-Anweisungen, die auf einem anderen Blatt liegen, wie oben gezeigt um den Blattnamen erweitern.