Noch nicht perfekt (Es erscheinen eine Menge Einträge unter "Königreich Dänemark"), aber für den Anfang brauchbar. Mittlerweile wurde die Liste per HAnd ergänzt

SELECT ?Staat ?StaatLabel ?Waehrung ?WaehrungLabel ?ISO WHERE {
  SERVICE wikibase:label { bd:serviceParam wikibase:language "de,en". }
  ?Staat wdt:P31 wd:Q3624078.
  FILTER NOT EXISTS { ?Staat wdt:P31 wd:Q3024240 }
  FILTER NOT EXISTS { ?Waehrung pq:P582 ?x }
  FILTER NOT EXISTS { ?Staat pq:P582 ?x }
  OPTIONAL { ?Staat wdt:P38 ?Waehrung. }
  OPTIONAL { ?Waehrung wdt:P498 ?ISO. }
}
ORDER BY ASC (?StaatLabel)