VBA.array med textvärden i excel, går det?

[Shape_sthlm]

Här vill jag lägga till en post i en lista.

 

Det som ska adderas är Namn och Nummer i resp kolumn.

 

 

Sub AddClient()

Dim wsDATA As Worksheet
Dim wbFil As Workbook
Dim rnCeller As Range
Dim vaMatris As Variant, vaInfo As Variant
Dim i As Integer

Set wbFil = ThisWorkbook
Set wsDATA = wbFil.Worksheets("DATA")

With wsDATA
   .Unprotect
   .Cells(17, 1).Resize(rowsize:=2).Rows(2).EntireRow.Resize(rowsize:=1).Insert Shift:=xlDown
   Set rnCeller = .Range("A18:B18")
End With

vaMatris = VBA.Array(1, 2)

vaInfo = Application.InputBox("Lägg till kund", "Ange kunden namn, klicka sedan OK", Default:=vaMatris, Type:=64)

For i = 1 To 2
   If vaInfo(i) = Empty Then Exit Sub
Next

With Application
     .ScreenUpdating = False
     rnCeller.Value = .Transpose(vaInfo)
     .ScreenUpdating = True
End With

With wsDATA
   .Protect
End With


End Sub

 

Mina problem då:

 

1. Första felet är att jag vill ändra rubrik/titel för de olika värdena. Första är ju ett namn, det andra ett "nummer". Som det är nu får jag ju samma för de både värdena.

 

2. Värdena som ska matas in av användaren är textvärden. Detta gillas uppenbarligen inte.

 

 

 

/M

 

 

 

Beware of a man with a spoon up his nose.

 

[Monshi]

1: Inte helt säker på att jag förstår dig rätt men definiera strängen/rubriken innan dialogen förslagsvis. Skapa en grundsträng och slå sedan ihop denna med resten

Dim myStr As String

myStr = "Min rubrik " & mittIndex

där mittIndex kan vara ett värde.

 

2: Nej, typ 64 är för en array av värden, inte text.

 

 

 

Tror faktiskt du enklast kommer runt detta genom att skapa ett formulär med exakt de fält och beskrivningar du önskar. Infoga ett UserForm, formatera det som du önskar och öppna det istället.

 

 

/T

 

Even when we know we´ll never find the answers, we have to keep on asking questions.

 

 

[inlägget ändrat 2008-12-01 13:09:30 av Monshi]