[Excel] Het grote Excelvragentopic #51

quote:

Op zaterdag 29 maart 2025 09:41 schreef Janneke141 het volgende:
Ik sluit niet uit dat ik deze vraag al ooit eerder gesteld heb want het probleem komt me bekend voor, maar ik kan het zo niet terugvinden.

Op basis van een dataset uit een externe bron wordt een hele simpele draaitabel gemaakt. De header op de bovenste rij bestaat uit een stuk of 30 lettercombinaties van 2 letters, die in een draaitabel automatisch alfabetisch gesorteerd worden. Alleen... tussen die codes zitten ook VR en ZO, en die worden door Excel vooraan gezet omdat ze worden aangezien voor Vrijdag en Zondag. Hoe pas ik dat aan? (en dan zo dat het ook op de goede plek blijft staan, en niet bij elke Gegevens Vernieuwen weer terugspringt)?

quote:

Op zaterdag 29 maart 2025 09:41 schreef Janneke141 het volgende:
Ik sluit niet uit dat ik deze vraag al ooit eerder gesteld heb want het probleem komt me bekend voor, maar ik kan het zo niet terugvinden.

Op basis van een dataset uit een externe bron wordt een hele simpele draaitabel gemaakt. De header op de bovenste rij bestaat uit een stuk of 30 lettercombinaties van 2 letters, die in een draaitabel automatisch alfabetisch gesorteerd worden. Alleen... tussen die codes zitten ook VR en ZO, en die worden door Excel vooraan gezet omdat ze worden aangezien voor Vrijdag en Zondag. Hoe pas ik dat aan? (en dan zo dat het ook op de goede plek blijft staan, en niet bij elke Gegevens Vernieuwen weer terugspringt)?

quote:

Op donderdag 27 februari 2025 20:36 schreef Seven. het volgende:

[..]
Copilot zegt dit op mijn vraag 'Kan je in een bestand met honderden tabellen de gerepareerde tabellen in een apart tabblad zetten?'

Sub KopieerGerepareerdeTabellen()
Dim ws As Worksheet
Dim nieuwTabblad As Worksheet
Dim rng As Range
Dim doelRij As Long

' Maak een nieuw werkblad aan voor de gerepareerde tabellen
Set nieuwTabblad = ThisWorkbook.Worksheets.Add
nieuwTabblad.Name = "GerepareerdeTabellen"

doelRij = 1

' Loop door elk werkblad in de werkmap
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "GerepareerdeTabellen" Then
' Zoek de gerepareerde tabellen
' (hier wordt aangenomen dat ze een specifieke tekst bevatten, bv. "gerepareerd")
Set rng = ws.UsedRange.Find(What:="gerepareerd", LookIn:=xlValues, LookAt:=xlPart)

If Not rng Is Nothing Then
' Kopieer de gevonden tabel naar het nieuwe tabblad
ws.UsedRange.Copy Destination:=nieuwTabblad.Cells(doelRij, 1)
doelRij = doelRij + ws.UsedRange.Rows.Count + 1 ' Volgende vrije rij
End If
End If
Next ws
End Sub

quote:

Hoe vind je table11.xml terug in je Excelbestand?
Optie 1: Excelbestand als zip openen
Maak een kopie van het Excelbestand.

Wijzig de extensie van .xlsx naar .zip.

Open dit zip-bestand.

Navigeer naar de map: xl/tables/

Zoek daar table11.xml – je kunt dit bestand openen met een teksteditor zoals Notepad++ of VS Code.

In dat XML-bestand staat een verwijzing naar:

de tabelnaam (als die is toegekend),

het werkblad waar de tabel op staat (sheetId of sheet name),

het celbereik (bijv. A1:G20).

quote:

Op maandag 7 juli 2025 09:35 schreef Nieuwschierig het volgende:
Ik heb op mijn werk een excel gamaakt waarin 2 lijsten met data uit andere programma's samengevoegd worden tot 1 leesbaar geheel.
iedereen die dat wil doen gebruikt dat bestand zonder mijn verdere tussenkomst.
Als ze hun gegevens ingekopieerd hebben drukken ze als laatste op een knopje dat een macro start om een een nieuw werkblad te openen en daar alles in de juiste layout in te plakken.
Zo heeft iedere teamleider tijdens het dagelijks overleg met het managment alle data op de zelfde manier in beeld en kunnen ze uitleggen waarom hun team de doelstellingen weer niet gehaald heeft.

Ik krijg een ding niet voor elkaar. Die macro opent een nieuwe excel en plakt de data in "Sheet1".
Maar er zijn ook teamleiders (of hun vervangers) die de Nederlandse versie gebruiken en dan heet het "Blad1"
En dan doet de macro het niet...
[ code verwijderd ]



Kan ik de code aanpassen zodat het met "Blad1" ook werkt?

quote:

Op donderdag 10 juli 2025 23:19 schreef marcb1974 het volgende:
Hier lopen ze gewoon mee in een korte test, het moet dus ook kunnen in 1 lijst. De datum zou niet uit mogen maken.

quote:

Op vrijdag 11 juli 2025 17:36 schreef SpeedyGJ het volgende:

[..]
Ik heb even een test gedaan, maar zoals je ziet wil het niet werken. Als ik Leeuwarden eruit haal en Dokkum laat staan dan wordt het wel opgeteld.

quote:

Op vrijdag 11 juli 2025 17:38 schreef marcb1974 het volgende:

[..]
Alleen zie ik het niet

quote:

Op vrijdag 11 juli 2025 17:40 schreef SpeedyGJ het volgende:

[..]
Hmm had afbeelding mee geupload, gaat denk ik niet helemaal goed zo te zien
Dan maar even zo
[ afbeelding ]

quote:

Op vrijdag 11 juli 2025 17:42 schreef marcb1974 het volgende:

[..]
Ah zo, nu snap ik hem
Dacht dat je, bij 2 nrs 1, gewoon een extra regel aanmaakte.

Even kijken of dit ook op te lossen is.

quote:

Op vrijdag 11 juli 2025 18:06 schreef SpeedyGJ het volgende:

[..]
Bedankt voor jou inzet! Zou mooi zijn als dit op te lossen is gezien ik dit jaar ook aantal keer 3 tot 4 plaatsen heb

quote:

Op vrijdag 11 juli 2025 18:29 schreef marcb1974 het volgende:

[..]
Hij is niet simpel.
Ik zou gaan voor 2 rijen als je 2 nrs 1 hebt.
Dus

01.01.2025 Leeuwarden
01.01.2025 Dokkum
02.01.2025 x
03.01.2025 y

Dan loopt het wel simpel en in 1 formule mee

quote:

Op vrijdag 11 juli 2025 19:22 schreef Tegan het volgende:
=AANTAL.ALS('Gemeten gegevens'!C2:C366;"*"&A7&"*")

Misschien werkt dit?

quote:

Op vrijdag 11 juli 2025 19:45 schreef Tegan het volgende:
Wel een nadeel dat Alphen aan den Rijn ook meetelt bij Alphen hiermee.

quote:

Op donderdag 30 oktober 2025 21:51 schreef marcb1974 het volgende:
Ik heb een lijst met 20 producten.

Nu wil ik aan de producten willekeurig een waarde tussen 1 en 20 toekennen. Waarbij iedere waarde maar 1 keer voor mag komen. Volgens mij kon dit, maar ik heb geen idee meer hoe.
Weet iemand dat toevallig?

quote:

Op donderdag 30 oktober 2025 22:00 schreef cosmosis het volgende:

[..]
=SORTBY(A2:A21, RANDARRAY(20))