15. september 2009 - 11:28Der er
11 kommentarer og 1 løsning
En celle til indtastning, resultat i flere
Hej Experter
Jeg har en opgave med at lave et regneark hvor jeg ved at indtaste en værdi i Eks. celle A2 og trykker enter, skal have værdien over i celle B4. Curseren skal blive i A2 klar til næste indtastning. Næste indtsatning skal så skrives i næste celle "B5".
Ok, jeg fik hvis ikke forklaret det godt nok, My bad ;o)
Meningen er at man skal indtaste i samme celle, men alle indtastede værdier skal skrives i en kolonne ved siden af. Således at man gemme de indtastede værdier i kolonnen, men ikke i indtastningscellen.
Indtastningen sker ved at man taster en værdi, trykker enter og indtaster en ny værdi i samme felt, som så skal gemmen cellen under den senest indtastede værdi.
Koden anbringes i relevante ark (Højreklik - Vis programkode)
Const tastecelle = "$A$2" Const resultatKolonne = "B" Const resultatRække1 = 4 Dim antal As Integer Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = tastecelle And Target.Value <> "" Then Range(resultatKolonne & FindFørsteResultatRække) = Target.Value Range(tastecelle).Select ActiveCell.ClearContents End If End Sub Private Function FindFørsteResultatRække() As String Dim række As Long For række = resultatRække1 To 65000 If Range(resultatKolonne & CStr(række)) = "" Then FindFørsteResultatRække = række Exit Function End If Next række End Function
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.