Opgelost speelschema

[Verwijderd lid 501906]

Alleen knop [Update Schema] gebruiken hihi

Ik heb een gemaakt die waarden omdraait ‘1-0’ wordt ‘0 – 1’
en daar zit nu net het probleem ‘0 – 1’
Met spaties werkt het goed, maar daar wil ik van af!
Als ik de spaties weghaal dan krijgt de – blijkbaar een andere betekenis en komt er ineens een lijn over mijn speelschema.

kruisverwijzing ?

Wat doe ik fout ? Hoe los ik het op!


De functie staat in module 5
en wordt aangeroepen door module 2
In Cel I5 staat '1-0' In de corresponderen de Cel E10 staat V
Druk op de knop [Update Schema] en in E10 komt ‘0 – 1’ (er gebeurt meer maar dat is nu even niet interessant)

Function DraaiScore(score As String) As String
    Dim delen() As String
        ' Splits de score op het minteken
    delen = Split(score, "-")
       ' Verwijder spaties rondom de delen
    delen(0) = Trim(delen(0))
    delen(1) = Trim(delen(1))
       ' Draai de score om zonder spaties
    DraaiScore = delen(1) & "-" & delen(0)
End Function

 

[snb]

sub M_snb()
  c00="0 - 1"
 
  msgbox strreverse(replace(c00," ",""))

  msgbox mid(c00  & "-"& c00,5,len(c00)-2)

  msgbox mid(application.Text(c00,"@-@"),5,len(c00)-2)

  msgbox join(array(split(c00)(2),split(c00)(0)),"-")
End Sub

 

[Verwijderd lid 501906]

@snb
Heb je ook toelichting?
deze VBA laat toch alleen zien dat er spaties staan?

 

[snb]

Kijk nog eens goed.

 

[Verwijderd lid 501906]

Oh je hebt het aangepast
er stond eerst

Sub M_snb()
    c00 = "0 - 1"
    MsgBox Mid(c00 & "- " & c00, 5, Len(c00))
End Sub

en NU

sub M_snb()
  c00="0 - 1"
  msgbox strreverse(replace(c00," ",""))
  msgbox mid(c00  & "-"& c00,5,len(c00)-2)
  msgbox mid(application.Text(c00,"@-@"),5,len(c00)-2)
  msgbox join(array(split(c00)(2),split(c00)(0)),"-")
End Sub

Ik ben waarschijnlijk niet slim genoeg
Maar dit geeft slechts 4 berichtboxen
Gewoon naar de Cel kijken is genoeg om te zien dat er spaties staan.

Ik wil graag weten hoe ik de functie moet aanpassen / wat ik fout heb gedaan
om geen spaties te krijgen in de Cel waarnaar ik de omgekeerde uitslag stuur.

 

[snb]

dan maak je toch gewoon een UDF.

 

[Verwijderd lid 501906]

@snb
Ik heb een nog betere oplossing
voor het gebruik hoef ook niemand de werking uit te leggen

https://www.123inkt.nl/image/Kangaro_kladblok_blanco_675_x_110_mm_100_vel_K-55100_205338_m1_big.jpg

Bedankt voor al je hulp

 

[edmoor]

Wat is er niet duidelijk aan wat snb je laat zien?
Dat zijn zelfs 4 manieren waarop je je probleem kan oplossen.

 

[Verwijderd lid 501906]

@edmoor
Ik zie niet hoe een MsgBox mijn probleem verhelpt?
Of hoe ik dit zou kunnen integreren.

ook voor jou:
Ik ben waarschijnlijk niet slim genoeg
Maar dit geeft slechts 4 berichtboxen
Gewoon naar de Cel kijken is genoeg om te zien dat er spaties staan.

Maar goed
Laat ook maar

 

[edmoor]

Het gaat ook niet om de MsgBox maar om de manier om 0 - 1 te wijzigen in 1-0
Daarvan toont snb er 4.

 

[Verwijderd lid 501906]

Beste @edmoor,
die oplossingen het vervangen van een spatie heb ik natuurlijk allang geprobeerd en werken niet.
Inmiddels ben ik erachter dat het in de andere VBA zit die gebruik maakt van de functie.

ik heb sterk het idee dat snb een erg groot minderwaardigheidscomplex heeft
en dat probeert te compenseren met de manier van communiceren.
Op zijn stijl van communiceren heb ik hem al vaker aangesproken
vorige keer was #22 bij de vraag:
inhoud van bestanden filteren en in één file samenvoegen.

Maar goed het zal vast aan mij liggen
Ik hoopte hier bij te leren en draag ook bij zoveel ik kan.

 

[HSV]

Zet eens in cel A1: =A2 en in cel A2: =A1

 

[edmoor]

Beste Ruben,

Die oplossingen werken alle 4 voor het omwissel probleem dat je stelde.
Laat dan eens zien hoe je dat in je document hebt verwerkt.

 

[Verwijderd lid 501906]

Laat maar

Ik ben de boel al helemaal aan het verbouwen.
Niet voor niets staat hij al op opgelost.

 

[edmoor]

Prima.
Dan toch nog een laatste, dit werkt prima:

Function DraaiScore(score As String) As String
    DraaiScore = StrReverse(Replace(score, " ", ""))
End Function

 

[Verwijderd lid 501906]

heb ik ook geprobeerd.
Los werkt het prima,
maar niet als ik de functie aanroep met module 2
En dat staat toch echt in de vraagstelling #1
#11 Inmiddels ben ik erachter dat het in de andere VBA zit die gebruik maakt van de functie.

Maar ik dank je voor het mee denken
Er zijn nog meer mensen die hulp nodig hebben, richt je daar op
Fijne avond

 

[snb]

Alles wat je in VBA kunt bepalen/berekenen hoef je niet als formule in Excel te zetten. Dat is dubbelop.
In plaats van het plaatsen met VBA van een formule die van een VBA-funktie gebruik moet maken kun je beter meteen met VBA het resultaat van die VBA-funktie in die cel zetten.

Reduceeer de interaktie ( =lezen/schrijven van gegevens in cellen/ranges) met het werkblad tot het minimum.

 

[huijb]

Ik zou een ietsje meer respect hebben voor de helpers die je proberen te helpen met een probleem wat JIJ hebt. Zij komen geheel vrijwillig hier om het probleem wat je heb op te lossen. Dus helpers beschuldigen van een minderwaardigheidscomplex is niert de juiste benadering om hulp te krijgen.

 

[Verwijderd lid 501906]

Beste @huijb
Dat ben ik ook zeker
en ook ik probeer te helpen
Moet ik daar voorbeelden van geven?
#6 inhoud van bestanden filteren en in één file samenvoegen.
#3 #6 waardes uit rij selecteren in andere cellen
etc.


Kijk ook even naar
#22 inhoud van bestanden filteren en in één file samenvoegen.

En hier op mijn hulp vraag, heb ik tot 2 keer toe netjes aangegeven het niet te begrijpen

 

[huijb]

Zet de aap niet op mijn schouder. Ga mij.niet opgeven welke posts ik moet lezen om jou braafheid te bevestigen. Ik reageer op de misbruikmeldingen aangaande jou reactie en daar acteer ik op. Dus denigrerende opmerkingen naar andere helpers hou je achterwege.