Drehfeld in Excel programmieren

Würde gerne ein Drehfeld in Excel programmieren ich finde im Internet immer diese Codes.

Private Sub SpinButton1_SpinDown()
Range("A1") = Range("A1") - 0.1
End Sub

Private Sub SpinButton1_SpinUp()
Range("A1") = Range("A1") + 0.1
End Sub

Aber wie gebe den Code ein? Wenn ich auf Code anzeigen kommt dann kommt etwas mit SpinButton_Change und es macht wohl wenig Sinn das dort einzugeben. Und einzeln kann ich die Felder nicht aussuchen.

Kann mir jemand helfen? Gruß

2 Antworten

Vom Fragesteller als hilfreich ausgezeichnet

puba07

Nutzer, der sehr aktiv auf gutefrage ist

im Thema Microsoft Excel

22.07.2011, 10:33

Das ist VBA-Code und wird im Visual Basic-Editor eingegeben:

platziere das Drehfeld auf Deinem Tabellenblatt
Rechtsklick auf das Drehfeld und "Code anzeigen" auswählen
lösche den Text "Private Sub SpinButton1_Change()" und "End Sub"
füge den Code aus Deiner Frage ein

Wenn nun in A1 eine Zahl steht, dann wird auf jeden Drehfeld-Klick 0,1 addiert oder subtrahiert.

Oubyi, UserMod Light

Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer

Microsoft Excel

22.07.2011, 14:50

Du machst das genau richtig.
Das vorgegebene:
Private Sub SpinButton1_Change()

End Sub
kannst Du einfach ignorieren oder auch löschen.
Dann Deinen Code einfügen.
Fertig.
(Evtl. musst Du dann noch den Entwurfsmodus durch einen einfachen Klick ausschalten.)

Woher ich das weiß:Berufserfahrung – IT-Administrator (i.R.)

Ähnliche Fragen

Excel Vba in schleife?

ich möchte diese formel in einer schleife ,aslo das es mehrere zellen ausrechnet nicht nur A1 und B1

Sub test()

Worksheets("Tabelle1").Range("C1") = IIf((IsEmpty(Range("A1")) + IsEmpty(Range("B1"))) <> 0, "", (Range("A1") - Range("B1") + 1))

End Sub

...zur Frage

Excel vba formel falsch,Was?

Sub test()
  Worksheets("Tabelle1").Range("A1") = worksheetfunction.iif(or(isempty(Range(A1)),isempty(Range(B2)),""(Range(A1-B2+1))
End Sub

...zur Frage

Excel Vba Typen Unverträglich?

Sub test()

For i = 1 To 10

Worksheets("Tabelle1").Range("C1:C10") = IIf((IsEmpty(Range("A1:A10")) + IsEmpty(Range("B1:B10"))) <> 0, "Not Calculable", (Range("A1:A10") - Range("B1:B10") + 1))

End Sub

...zur Frage

VBA-Code für Excel erweitern?

Hallo,

folgender Sachverhalt: In meiner Excel-Datei habe ich in Zelle A10 ein Datum stehen. In der Regel ist es der 01. Januar(Abweichungen möglich). In den Zellen B10-J10 stehen Daten. Nach betätigen der Enter-Taste soll in die Zelle A11 gesprungen werden. Dazu habe ich folgenden Code in einer Beispielmappe im Netz gefunden:

Sub EnterOnOff(Optional bolOn As Boolean)

If bolOn Then

Application.OnKey "{ENTER}", "NaechsteZeileEinblenden" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~", "NaechsteZeileEinblenden" 'EINGABETASTE

Else

Application.OnKey "{ENTER}" 'EINGABETASTE (Zehnertastatur)

Application.OnKey "~" 'EINGABETASTE

End If

End Sub

Private Sub NaechsteZeileEinblenden()

With ActiveCell.Offset(1).EntireRow

.Hidden = False

.Cells(1).Activate

End With

End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

With Target.Cells(1)

EnterOnOff .Column = 10 And .Row > 9

End With

End Sub

Das funktioniert auch soweit. Nun möchte ich gerne, das Excel mir nach betätigen der Enter-Taste das nächste Datum in Zelle A11. Entsprechendes gilt natürlich fortlaufend.

Hat jemand ne Idee oder gar ne Lösung für mich?

Gruß Chris

...zur Frage

Excel - Zelleninhalte löschen, wenn in anderer Zelle "ein Wert" steht

Hallo liebes Forum,

ich habe ein kleines Problem bei einer kleinen Datenbank und hoffe das ihr mir weiterhelfen könnt.

Zum Problem: Ich habe in Zelle A1 eine Auswahlliste, bei der ich a,b oder c auswählen kann.

habe ich a ausgewählt, soll nichts passieren.
wähle ich jedoch b oder c aus, sollen im Zellbereich C4:F14 die Werte gelöscht werden

Dazu habe ich folgenden Code programmiert:

Private Sub Worksheet_TEST(ByVal Target As Range)
If Not Intersect(Target, Range("A1")) Is Nothing Then
        Select Case CInt(Range("A1"))
        Case b
            Range("C4:F14").Select
            Selection.ClearContents
        Case c
            Range("C4:F14").Select
            Selection.ClearContents
        End Select
    End If
End Sub

Ändere ich nun die Auswahl, passiert jedoch nichts, die Einträgen werden nicht gelöscht. Wo liegt der Fehler?

Danke für Eure Hilfe

Gruß diece

...zur Frage

Wie setze ich das richtig in VBA um?

Hallo,

ich habe folgenden Code in Excel VBA. Leider komme ich nicht weiter.

Ich suche einen Wert der Zelle E1 in Spalte A1.

Ist der Wert aus E1 vorhanden, soll ein Sub geöffnet werden.

Ist dieser Wert nicht vorhanden, soll eine MsgBox geöffnet werden und nach dem Schließen der Box die UserForm1.

Aktuell macht der Code folgendes: Egal ob der Wert vorhanden ist oder nicht, es wird die MsgBox geöffnet und der Code wird auch bei richtiger Zahl nicht ausgeführt.

Ich würde mich freuen, wenn mir einer helfen kann bei meiner Spielerei. Danke.

Sub suche()
Dim zelle As Range


For Each zelle In Sheets("Tabelle1").Range("A1:A1000").Cells
    If zelle.Value = Sheets("Tabelle1").Range("E1") Then
    'Sheets("Tabelle1").Activate
    zelle.Activate
    Call create
    Exit For
    Else

    MsgBox "Nr. ist nicht vorhanden!", vbExclamation
    UserForm1.Show
    Exit Sub
    End If
    'Call create
    Next
End Sub

...zur Frage

Beim ändern einer bestimmten Zelle Makro erneut ausführen?

Hallo,

ich habe folgendes Anliegen: Ich möchte in Excel mit VBA etwas machen. Hier einmal der Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("j10")) Is Nothing Then
    Select Case Range("j10").Value
        Case "manuell"
            Range("s7:u7").ClearContents
        Case "Anfang & Ende"
            Range("s7").Value = Worksheets("PEPStauchung").Range("d2").Value
    End Select
End If
End Sub

Ich möchte, dass, wenn ich in Zelle S6 einen Wert ändere, das ganze erneut durchgeführt wird.

Wie binde ich das ein? Vielen Dank!!!

Syrena

...zur Frage

Excel VBA UserForm schließt sich unabsichtlich?

Hallo,

ich habe in einer UserForm eine Button

Private Sub CommandButton1_Click()


Tabelle2.Range("A1") = "1"


End Sub

Wenn ich diesen Button drücke, schließt sich auch die UserForm.
Schreibe ich etwas unter:

 Tabelle2.Range("A1") = "1"

wird dieses nicht mehr ausgeführt.
Warum schließt sich die UserForm?

Zu aller Verwirrung schließt sich die UF nicht immer (wäre ja auch zu einfach...) wenn ich den Wert in A1 lösche und dann die UF öffne, den Button drücke, schließt sich die UserForm "meistens" nicht, trägt aber die "1" ein.

Wenn ich die UF wieder öffne und den Button drücke, während die "1" schon in A1 steht, schließt sich die UF jedesmal...

Öffnen tu ich die UF ebenfalls mit einem Button von einem Tabellenblatt

Private Sub CommandButton1_Click()
  UserForm1.Show
End Sub

Mein eigentliches Ziel:

Ich wollte lediglich die Spalte A in Tabelle2 clearen um dann aus einer ListBox die Werte in Spalte A einzutragen...nur schloss sich die UF jedesmal und teilweise wurde nicht mal Spalte A leer gemacht.

Wieso schließt sich die UserForm und wie kann ich es beheben?

...zur Frage

Excel: Verbessertes Logging mit VBA Makro?

Hallo Zusammen

ich verwende im Moment ein kurzes Makro, um Änderungen in einem Tabellenblatt zu loggen.

Es registriert aber nur einzelne Änderungen, nicht multi-selektion oder Löschen von Spalten. Kann ich das mit separaten Privaten Subs übernehmen?

Und kann ich aufnehmen, was die Target- und "PreVal"-Adresse war (Offset 4+5)

Code:

Dim PreVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
PreVal = Target.Value
 
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
  
    On Error GoTo 0
    
    If Target.Value <> PreVal Then
        With Sheets(2).Cells(Rows.Count, 1).End(xlUp)
            .Offset(1, 0) = Now
            .Offset(1, 1) = PreVal
            .Offset(1, 2) = Target.Value
            .Offset(1, 3) = Environ("Username")
        End With
    End If
 
End Sub

...zur Frage

Excel Arbeitsmappe separat speichern mit VBA?

Hallo,

habe bei meiner Exceldatei 10 Arbeitsmappen und ich möchte eine Arbeitsmappe davon separat als Datei abspeichern sodass ich unten nur mehr eine Arbeitsmappe stehen habe.

Habe mir hierfür einen einen Knopf erstellt und mit VBA den Knopf programmiert. Wenn ich ihn drücke, dann habe ich es bereits geschafft, dass die Mappe sich als PDF exportiert aber als Excel ist nicht möglich. Hier ist mein Code:

Sub EXCEL_erstellen()

Dim DateiName As String

DateiName = Range("AB3") & Range("AB2")

Range("A1:T61").ExportAsFixedFormat Type:=xlTypeXPS, Filename:=DateiName, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

End Sub

...zur Frage

Exel VBA? wert automatisch löschen?

Folgenden Code habe ich..

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$E$5" Then

Range("G5").Value = Range("G5").Value + Target.Value

End If

End Sub

Wie bekomme ich es hin, das sich nach eingabe von E5 der wert automatisch wieder löscht?

danke schon mal

...zur Frage

Excel VBA: Zu ausgeblendeten Tabellenblättern springen?

Hallo Community,

ich habe ein kleines VBA-Problem in Excel.

Zur Situation: Ich habe eine Mappe mit mehreren Tabellenblättern. Diese Blätter werden mir in einem Dropdownmenü angezeigt. Mithilfe eines Commandbutton springe ich dann auf das zuvor im Dropdown gewählte Tabellenblatt:

Hier der Code vom Commandbutton:

Private Sub CommandButton1_Click()

    ThisWorkbook.Sheets(Range("D7").Value).Select

End Sub

Dieses Code funktioniert allerdings nur, solange ich die Blätter auch unten in der Mappe anzeige.

Nun zu meiner Frage: Wie müsste der Code aussehen, wenn ich die Tabellenblätter ausblende?

...zur Frage

Excel VBA Userform: Textbox abhängig von Combobox machen?

Hallo,ich bin aktuell an einem Excel Projekt, in dem ich per VBA eine Userform erstellen möchte. Nun komme ich an folgender Prozedur nicht weiter.Ausgangssituation: Ich habe eine Userform mit Combobox (Combobox1) und Textbox (Textbox1) erstellt. Ich möchte nun, dass sobald in der Combobox ein bestimmter Wert ausgewählt wird, in der Textbox ebenso ein bestimmter Wert erscheint, der nur auf den einen Wert der Combobox passt. Die Combobox funktioniert einwandfrei, die Textbox macht nur nicht was sie soll. Bitte um Hilfe.Hier mein aktueller Code:

Private Sub UserForm_Initialize()

Me.ComboBox1.AddItem Range("A2")

Me.ComboBox1.AddItem Range("A3")

Me.ComboBox1.AddItem Range("A4")

Me.ComboBox1.AddItem Range("A5")

Me.ComboBox1.AddItem Range("A6")

If ComboBox1.Value = Range("A2") Then

TextBox1.Text = "5"

End If

End Sub

...zur Frage

EXCEL Tab. Inhalte mit Outlook senden?

Guten Morgen, ich hab mal eine Frage zu einem VBA.

Mein Code sendet zwar die E-Mail, nimmt aber den Dateiinhalt nicht mit. Kann mir da jemand helfen? Gruß

Hier mein Code: Public Sub Änderungen_Click()


    sMailtext = "Aktueller Änderungsumfang / Raum für weitere Informationen:  "
    
    With CreateObject("Outlook.Application").CreateItem(0)
        .GetInspector
            .Subject = "Änderungen"
                .Body = sMailtext & .Body
                        .Importance = 1
                    .To = "###########@t-online.de"
                    '   .Display
        With .GetInspector.WordEditor.Application.Selection
             ThisWorkbook.Worksheets("Info").Range("A1").CurrentRegion.Copy
                 .Start = Len(sMailtext)
                     .End = Len(sMailtext)
                         '   .Paste
                End With
                    
                    .Send


            End With
    End
End Sub

...zur Frage

Was möchtest Du wissen?

Deine Frage stellen