Deze browser wordt niet meer ondersteund.
Upgrade naar Microsoft Edge om te profiteren van de nieuwste functies, beveiligingsupdates en technische ondersteuning.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
Weet iemand hoe je in een macro die je maakt, met een toets die macro kunt onderbreken (om een variabele in te vullen of op een bepaalde kolom kunt gaan staan) waarna je een "enter" kunt geven en die macro weer verder loopt? Vroeger kon je dat in LOTUS bereiken door een ? (vraagteken) in de macro te plaatsen. De macro stopte dan, je vulde een variabele in of ging naar een bepaalde kolom je gaf een "enter"en de macro liep weer verder. Ik heb dat vraagteken geprobeerd maar dat werkt niet. Na het googelen op dit onderwerp zag ik ergens dat het de toets "Esc" zou zijn maar dat is het ook niet.
Ik ben benieuwd.
Hans
Een familie van Microsoft-spreadsheetsoftware met hulpmiddelen voor het analyseren, in kaart brengen en communiceren van gegevens.
Vergrendelde vraag. Deze vraag is gemigreerd vanuit de Microsoft Ondersteuning-community. U kunt met een stem aangeven of de inhoud nuttig is, maar u kunt geen opmerkingen of antwoorden toevoegen of de vraag volgen.
Dag Hans,
Bedankt voor de feedback, ben blij dat je de oplossing gevonden hebt. Je ziet, zelfs met een 76-jarige pet kan het nog altijd.
Probeer dit eens:
Bold moet je toevoegen/aanpassen.
Sub sorteervanhoognarlaag()
'
' sorteervanhoognarlaag Macro
'
' Sneltoets: Ctrl+k
'
Dim varCol As Variant
Range("A6:G15").Select
ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Clear
varCol = InputBox(prompt:="Enter the column to sort")
ActiveWorkbook.Worksheets("Blad1").Sort.SortFields.Add Key:=Range(varCol& "6:" & varCol & "15"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Blad1").Sort
.SetRange Range("A6:G15")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Leuk dat je me tot volhouden "dwingt". Het zat mij ook niet lekker en ben toch nog wel weer aan de slag gegaan. Heb gedaan wat je voorstelt. Bij het aanvullen met het 1e "bold" vraagt het programma om een kolom maar bij het 2e bold deel loopt het programma vast. Boodschap: Compileerfout bij "6:". Verwacht lijstscheidingsteken of ). Zit daar een hikje?
Hoor graag nog een keer
Hans
Hans,
Mijn voorstel zou moeten werken als je jou macro vervangt door de mijne. Of je macro aanpassen waar ik bold gebruikt heb.
De macro stopt automatisch op de Inputbox regel en wacht tot je bijvoorbeeld C of D invult en OK klikt en loopt dan verder.
Hallo JP,
Hartelijk dank voor je suggestie maar ik kom daar niet uit. Weet je, ik maak mijn macro's door een actie te beginnen, dan voer ik handelingen uit, dan stop ik de macro en test die uit. Soms kan ik, met logisch denken, ook nog wel iets in een macro toevoegen die al bestaat maar daar blijft het dan ook wel bij. Ik had gehoopt de ik een macro met één toets zou kunnen onderbreken zoals dat vroeger in LOTUS ook kon met een "?". Dat kan kennelijk, denk ik, in excel niet. Ik heb inmiddels mijn probleem opgelost door voor iedere sortering een eigen macro te maken en dat werkt goed. De programmering die jij voorstelt gaat mijn 76 jarige pet te boven. Ik wou dat ik het begreep. Ik stel voor om deze case maar te beëindigen. nogmaals heel hartelijk dank voor je begrip en je tijd en
met hartelijke groeten
Hans