Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


Berechnungsmakro erstellen wenn dann oder weiter suchen bei Erfolg Exit
#1
Question 
Hallo, komme mal wieder nicht weiter.
Es werden diverse Kegelspiele gespielt, unterschiedlichst berechnet.
Nun möchte ich mittels Makro verschiedene Abfragen tätigen, wenn Spiel-ID mit Suchkriterium übereinstimmt soll nur diese Berechnungszeile im Makro aktiv werden.
- mal eben skizziert
Code:
Sub berechne_SP_ID()
'wenn in der aktiven Zeile in der Zelle x der Wert y steht berechne nach Txtbox1 + Txtbox2
'wenn nicht springe weiter; wenn berechnet = Exit
'wenn in der aktiven Zeile in der Zelle x der Wert y steht berechne nach Txtbox1*100 + Txtbox2*10 + Textbox3 * 1
'wenn nicht springe weiter; wenn berechnet = Exit
'wenn in der aktiven Zeile in der Zelle x der Wert y steht berechne nach Txtbox1 + Txtbox2 * Txtbox3 - Txtbox4 / Txtbox5
'wenn nicht springe weiter; wenn berechnet = Exit
'usw.
'....
End Sub

Geht sowas?
Derweil ich mit den Formelkonstrukten an meine Grenzen stoße

P.S. - werde morgen noch kleine Tab. nachsenden

Vielen Dank vorab für eure erneute Hilfe
?mage
to top
#2
Hallo Frank,

3 mal dieselbe Zelle mit demselben Wert ?!
Das ergibt doch keinen Sinn. Huh
Wo die Berechnung eingetragen werden soll, fehlt auch.

Vielleicht ist das ja aber schon das, was Du suchst?

Code:
Sub berechne_SP_ID()
  Select Case Cells(ActiveCell.Row, 3).Value
    Case 5
      ActiveCell.Value = Txtbox1 + Txtbox2
    Case 10
      ActiveCell.Value = (Txtbox1 * 100) + (Txtbox2 * 10) + (Textbox3 * 1)
    Case 15
      ActiveCell.Value = Txtbox1 + Txtbox2 * Txtbox3 - Txtbox4 / Txtbox5
  End Select
End Sub

Gruß Uwe
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  WENN 5 Zellen ISTLEER dann... Argre 7 98 03.12.2016, 22:48
Letzter Beitrag: schauan
  WENN/DANN Bedingung möglich? stella_gen 22 203 02.12.2016, 00:01
Letzter Beitrag: stella_gen
  WENN/DANN Gesamtsumme nach Kriterien Baldi 5 80 28.11.2016, 16:53
Letzter Beitrag: Baldi
  komme nicht weiter Cirango 9 247 23.11.2016, 21:12
Letzter Beitrag: Cirango
  Wenn Zelleninhalt > 0 dann die 5 linken Zellen farbig Daniel Albert 5 81 22.11.2016, 18:48
Letzter Beitrag: Daniel Albert
  Wenn Dann Funktion in Komb. mit Bedingter Formatierung snoopy4000_0 9 90 21.11.2016, 16:19
Letzter Beitrag: snoopy4000_0
  wenn in tabelle wert in spalte dann neue spalte in neuer tabelle merzens 4 88 16.11.2016, 13:44
Letzter Beitrag: schauan
  VBA: Wenn Datei offen dann schließen mit Speicherabfrage Kash 1 63 15.11.2016, 23:24
Letzter Beitrag: AlterDresdner
  WENN ODER Verknüpfung über mehrere Bedingungen? wies1617 8 158 11.11.2016, 17:22
Letzter Beitrag: schauan
  Problem mit Exit-Ereignis einer Textbox Usedom 4 82 07.11.2016, 20:03
Letzter Beitrag: Usedom

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste