Als je alle cellen selecteert kun je de functie Tekst naar kolommen toepassen. Hierbij kun je kiezen of je een vaste breedte aanhoudt, of een scheidingsteken (bv. een spatie).quote:Op dinsdag 9 november 2010 14:44 schreef Cue_ het volgende:
Hoe scheid ik ze dan? Want de lengtes van de verschillende velden is ook niet gelijk (2-5-2010 of 12-12-2010.. zelfde met de tijd)
Of moet ik dat dan ook eerst gelijktrekken?
(ben niet heel erg thuis in de functies hiervoor
Zet er even bij hoe Dan kan iemand anders het ookquote:Op vrijdag 12 november 2010 10:24 schreef Cue_ het volgende:
@ deetch.. is aangevraagd in FB topic.
Ik heb zelf nog een vraagje met betrekking tot VBA.
Ik gebruik nu die functie van Texttocolumns (zie eerdere posts) om mijn datum-tijd veld te splitsen.
Nu wil ik dus ergens in de vba aangeven dat ik alleen die eerste kolom (datum) wil plakken in het oorspronkelijke veld, maar dat hij de tijd (2e kolom die hij dan maakt) moet weggooien.
Als ik de functie gewoon in excel gebruik kan ik dat aangeven en dan gaat het goed, maar hij neemt dat niet mee in de vba van de macro (als ik hem opneem).
Weet iemand hier de syntax hiervoor?
edit: Met wat proberen is het gelukt
Het staat erbij.. alleen heb ik nu weer problemen met dezelfde functie, maar dan met een ander veld. Die doet ie dan weer niet zoals ik wil Stom gedoe!quote:Op vrijdag 12 november 2010 11:29 schreef sanger het volgende:
Zet er even bij hoe Dan kan iemand anders het ook
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 | Sub invullen() Sheets("lijst").Select Dim cf As Range, s1 As Worksheet, s2 As Worksheet, p As Long Dim firstfound As String Set s1 = Worksheets("lijst") Set s2 = Worksheets("Master") Application.ScreenUpdating = False p = 2 q = 1 Do While Not IsEmpty(s2.Cells(p, 2)) Set cf = s1.Columns.Find(s2.Cells(p, 2), SearchOrder:=xlByRows) If Not cf Is Nothing Then firstfound = cf.Address Do cf.Offset(0, 1) = s2.Cells(p, 3) Set cf = s1.Columns.FindNext(cf) cf.Offset(2, 1) = s2.Cells(p, 4) Set cf = s1.Columns.FindNext(cf) cf.Offset(3, 1) = s2.Cells(p, 5) Set cf = s1.Columns.FindNext(cf) cf.Offset(4, 1) = s2.Cells(p, 6) Set cf = s1.Columns.FindNext(cf) cf.Offset(5, 1) = s2.Cells(p, 7) Set cf = s1.Columns.FindNext(cf) cf.Offset(6, 1) = s2.Cells(p, 8) Set cf = s1.Columns.FindNext(cf) cf.Offset(7, 1) = s2.Cells(p, 9) Set cf = s1.Columns.FindNext(cf) cf.Offset(8, 1) = s2.Cells(p, 10) Set cf = s1.Columns.FindNext(cf) cf.Offset(9, 1) = s2.Cells(p, 11) Set cf = s1.Columns.FindNext(cf) cf.Offset(10, 1) = s2.Cells(p, 12) Set cf = s1.Columns.FindNext(cf) cf.Offset(11, 1) = s2.Cells(p, 13) Set cf = s1.Columns.FindNext(cf) cf.Offset(12, 1) = s2.Cells(p, 14) Set cf = s1.Columns.FindNext(cf) cf.Offset(13, 1) = s2.Cells(p, 15) Set cf = s1.Columns.FindNext(cf) cf.Offset(14, 1) = s2.Cells(p, 16) Set cf = s1.Columns.FindNext(cf) cf.Offset(15, 1) = s2.Cells(p, 17) Set cf = s1.Columns.FindNext(cf) cf.Offset(2, 8) = s2.Cells(p, 18) Set cf = s1.Columns.FindNext(cf) cf.Offset(4, 8) = s2.Cells(p, 19) Set cf = s1.Columns.FindNext(cf) cf.Offset(6, 8) = s2.Cells(p, 20) Set cf = s1.Columns.FindNext(cf) cf.Offset(8, 8) = s2.Cells(p, 21) Loop While Not cf Is Nothing And cf.Address <> firstfound End If p = p + 1 Loop Application.ScreenUpdating = True End Sub |
Niemand??quote:Op dinsdag 9 november 2010 19:36 schreef Hare het volgende:
Ik loop tegen het volgende probleem aan in excel (2007, nl versie).
Als ik een formule doortrek wil ik dat excel hierbij elke keer 2 kolommen overslaat.
Als je bijvoorbeeld de hele simpele formule:
'=A1' doortrekt, dan moet in de volgende cel '=D1' en de cel daarnaast '=G1' komen.
Excel trekt echter standaard gewoon de letters volgens het alfabet door.
Is hier een oplossing voor?
cf.Offset(0, 1) = s2.Cells(p, 3).Valuequote:Op zaterdag 13 november 2010 22:20 schreef Bill_E het volgende:
hallo excel vrienden..
Ik heb een VBA script wat ik al een tijd succesvol gebruikt, heb het eens gevonden en aangepast. Het verplaatst data van een snel in te vullen "master blad" naar een mooie overzichtelijke lijst.
In de master lijst staat een reverentie naam, laten we deze even "naam1" noemen
In de overzichtelijke lijst staat diezelfde naam geschreven, zodat de data juist gekopieerd wordt.
De zelfde naam was tot nu to gewoon een ingetypte naam. Script werkt prima..
Nu wil ik graag geen ingevulde referentie naam.. Maar een verwijzing.. In de cel staat dan dus niet meer "naam1" maar "=A1" .
Het scriptje werkt niet meer.. Ik snap ook wel dat hij de data vergelijkt, dus hij ziet niet de verwijzing staan maar gewoon "=A1" . Dit komt niet overeen dus de gegevens worden niet overgenomen...
Iemand een idee hoe kan ik dit oplossen?
Zie iets simpels zal het wel zijn ja straks even proberen... Je wil niet weten hoe lang ik erop gegoogeld heb al..quote:Op dinsdag 16 november 2010 10:43 schreef DaFan het volgende:
[..]
cf.Offset(0, 1) = s2.Cells(p, 3).Value
?
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |