HERBERS Excel-Forum - die Beispiele

Thema: Multiplikation in Abhängigkeit einer Optionsfeldauswahl

Home

Gruppe

Dialog

Problem

In Abhängigkeit der Optionsfeldauswahl soll die Basiszahl mit dem jeweils ausgewählten Faktor multipliziert werden.

Lösung
Nur anhand der zugehörigen Beispielarbeitsmappe darstellbar.
ClassModule: Tabelle12

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   Dim sPath As String, sFile As String, sWks As String
   Dim sFormula As String, sFormulaA As String, sFormulaB As String
   If Target.Column <> 1 Then Exit Sub
   If IsEmpty(Target) Then Exit Sub
   If Not IsNumeric(Target.Value) Then Exit Sub
   If Target.Value > 20 Then Exit Sub
   sPath = ThisWorkbook.Path
   sFile = "Test1.xls"
   If Dir(sPath & "\" & sFile) = "" Then
      Beep
      MsgBox "Testdatei Test1.xls wurde nicht gefunden!"
      Exit Sub
   End If
   sWks = "048199"
   sFormula = "VLOOKUP(A" & Target.Row & ","
   sFormula = sFormula & "'" & sPath & "\[" & sFile & "]" & sWks & "'!"
   sFormulaA = sFormula & "A:C,2,0)"
   sFormulaB = sFormula & "A:C,3,0)"
   Application.EnableEvents = False
   On Error GoTo ERRORHANDLER
   Target.Offset(0, 1).Formula = "=" & sFormulaA
   Target.Offset(0, 2).Formula = "=" & sFormulaB
   With Range(Target.Offset(0, 1), Target.Offset(0, 2))
      .Value = .Value
   End With
ERRORHANDLER:
   Application.EnableEvents = True
End Sub

Beiträge aus dem Excel-Forum zu den Themen Dialog und OptionButton

xlDialogInsertHyperlink.show OptionButton zur Auswahl
Optionbutton zweimal klicken Arbeitmappen über Dialogfeld zusammen fassen
5.0 Dialog Speichern unter Dialog in Word aufrufen inkl. Pfad
Druckerdialog Dateityp im "Speichern unter"-Dialog vorgeben
Makro stoppen, wenn Excel-Dialog? xlDialogOpen anpassen
Wurde Optionbutton in Frame gewählt? Klick in definierten Rangebereich startet Dialog
xlDialogOpen bei Excel 2007 funzt nicht FileDialog inkl. Anklicken von Desktop, Eigene D.
OptionButton Gruppe Grösse Dialogfenster der InputBox
Dialogfeld unterdrücken Dialog "permanently delete sheets" unterbinden
Format-Dialog funktioniert nicht mehr OptionButton GroupName variabel festlegen
Dialog "Verknüpfung aktualisieren" Ordnerdialog und Dateidialog
Ordnerdialog und dateidialog Ordnerdialog und Dateidialog
Filedialog Herber/Beispiele/Dialoge/Checkbox/137601
Ranges mit optionbuttons verbinden? Abhängigkeit zwischen 2 Gruppen mit OptionButtons
Bilder bei Click im Dialogfeld Suchdialog über VBA aufrufen
mit Wert aus Combobox Dialog öffnen Diagramm als Grafik mit Speicherdialog exportieren
Änderung von OptionButtons nur per Passwort Dialogfenster zum kopieren
Textboxinhalt in Abhängigkeit von OptionButtons FileDialog-Objekt unter O2k
Abrage von Dialogfeldargumenten Optionbutton deaktivieren
OptionButtons in Tabelle Optionbutton aktiv bei Wert auf Textbox1
OptionButton Datei Auswählen Dialog (Application.FileDialog)
xlDialogOpen/FindFile ohne Open Optionbutton Aktiv bei Grade oder Ungrade
Dialogfeld zum pdf öffnen frage optionbutton up/down ?
Dialogfeld schließen, wenn Benutzer nichts eingibt Problem mit ApplicationDialogs
Das Dialogfeld "sortieren" aufrufen? Keine Dialogbox bei SaveAs