29. marts 2006 - 15:07Der er
5 kommentarer og 1 løsning
valg af kolonner i VBA - evt. userform
Jeg sidder med en fil hvor jeg skal trække data ud, men kolonnenumrene er ukendte.
Altid - activesheet! bruger vælger (MEN HVORDAN?): - først den kolonne der indeholder datoer (koldato) - dernæst den kolonne der indeholder beløb (kolbeløb) - sidst den kolonne der indeholder beskrivelse (kolbeskr)
Open c:\test.txt For Output As #1
når disse kolonner er valgt laves ved hjælp af en løkke hvor:
bruger skal altså vælge kolonnerne - rækkefølgen er ukendt. dernæst skal kolonnerne kigges igennem (hvis dato og beløb kolonnerne er forskellige fra "" - skal den række så bruges som nævnt ovenfor - og så videre til næste række)
så det er egentlig 2 spørgsmål
1) hvordan vælger en bruger vilkårlige kolonner 2) hvordan bruges de kolonner så data fra samme række trækkes ud i en løkke
Brug af AI afslører de svagheder, virksomheder allerede har opbygget gennem års cloud-transformation, nye SaaS-løsninger og fragmenterede sikkerhedssystemer.
Sub test() Dim koldato As Range Dim kolbeløb As Range Dim kolbeskr As Range Dim vbaDato As Variant Dim vbaBeløb As Variant Dim vbaBeskr As Variant Dim x as Long 'udpeg overskrifter Set koldato = Application.InputBox("udpeg 1. celle i datokolonnen:", "Datokolonne", , , , , , 8) Set kolbeløb = Application.InputBox("udpeg 1. celle i beløbskolonnen:", "Beløbskolonne", , , , , , 8) Set kolbeskr = Application.InputBox("udpeg 1. celle i beskrivelseskolonnen:", "Beskrivelseskolonne", , , , , , 8) 'kør række 2 til 30 igennem Open "c:\test.txt" For Output As #1 For x = 2 To 30 vbaDato = koldato(x, 1) vbaBeløb = kolbeløb(x, 1) vbaBeskr = kolbeskr(x, 1) If vbaBeløb <> "" Or vbaDato <> "" Then Print #1, vbaDato & " " & vbaBeløb & " " & vbaBeskr End If Next Close #1 End Sub
bak smid et svar! Jeg kan ikke forklare hvorfor det ikke helt virker i min fil - men det finder jeg forhåbentlig ud af på et senere tidspunkt! Din fil virker i hvert fald....
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
