Søg
Avatar billede kgndksv Juniormester
12. december 2007 - 00:03 Der er 4 kommentarer og
1 løsning

kopier fra et felt til en anden i en løkke med x antal celler

Jeg har denne kode som skal løbe nedover x antal rækker/kolloner, så jeg skal have lavet en løkke der kan gøre arbejdet for mig:

If Range("D2") = "" Then
Efternavn = Right(Range("C2"), Len(Range("C2")) - InStrRev(Range("C2"), " "))
Range("D2").Value = Efternavn

Fornavne = Left(Range("C2"), InStrRev(Range("C2"), " ") - InStr(Range("C2"), "-1"))
Range("C2").Value = Fornavne
End If

Jeg har denne kode der fortæller mig hvor mange rækker der er:

antalraekker = Range(.Offset(1, 0), .Offset(1, 0).End(xlDown)).Rows.Count

altså jeg vil mene at jeg ikke skal bruge "C2" og "D2"??
Avatar billede kabbak Professor
12. december 2007 - 08:20 #1
Et forslag:

'antalraekker = Range(.Offset(1, 0), .Offset(1, 0).End(xlDown)).Rows.Count
    antalraekker = Range("C65536").End(xlUp).Row
    For I = 2 To antalraekker
        If Cells(I, "D") = "" Then
            Efternavn = Right(Cells(I, "C"), Len(Cells(I, "C")) - InStrRev(Cells(I, "C"), " "))
            Range("D2").Value = Efternavn

            Fornavne = Left(Cells(I, "C"), InStrRev(Cells(I, "C"), " ") - InStr(Cells(I, "C"), "-1"))
          Cells(I, "C") = Fornavne
        End If
    Next
Avatar billede kabbak Professor
12. december 2007 - 08:21 #2
'antalraekker = Range(.Offset(1, 0), .Offset(1, 0).End(xlDown)).Rows.Count
    antalraekker = Range("C65536").End(xlUp).Row
    For I = 2 To antalraekker
        If Cells(I, "D") = "" Then
            Efternavn = Right(Cells(I, "C"), Len(Cells(I, "C")) - InStrRev(Cells(I, "C"), " "))
            Cells(I, "D") = Efternavn

            Fornavne = Left(Cells(I, "C"), InStrRev(Cells(I, "C"), " ") - InStr(Cells(I, "C"), "-1"))
          Cells(I, "C") = Fornavne
        End If
    Next


Der var en smutter ;-))
Avatar billede kabbak Professor
13. december 2007 - 08:05 #3
et svar ;-))
Avatar billede kgndksv Juniormester
13. december 2007 - 08:59 #4
takker igen igen...
Avatar billede kgndksv Juniormester
13. december 2007 - 09:40 #5
Jeg har endnu et spørgsmål...

http://www.eksperten.dk/spm/810253
Avatar billede Ny bruger Nybegynder

Din løsning...

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.

Loading billede Opret Preview
Kategori
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 11:08 Forskel mellem klokkeslet start aften slut næste morgen Af krasmussen i Excel
23/0715:10 WINDOWS KOMPABILITET Af snestrup2000 i Windows
22/0720:19 DVB T2 tuner med optagefunktion Af ErikHg i Andet hardware
20/0716:00 Fildeling mellem 2 windows 11 systemer Af knudg i Windows
20/0714:16 Smartwatch med faldalarm og sos Af hkv i Fitness & Smartwatches
White papers
Flere white papers »