Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

Formel in UserForm | Herbers Excel-Forum


Betrifft: Formel in UserForm von: ABO
Geschrieben am: 18.11.2009 08:33:27

Hallo zusammen,

ich habe ein kleines Problem.
Ich benötige eine Formel in einer Text Box, welche mir die nächst Freie Nummer aus der Spalte A (Tabelle1) sucht. Wenn ich zum Test meine Formel in eine Zelle z.B. C1 eintrage funktioniert es.

Formel:
{=MIN(WENN(ZÄHLENWENN(A:A;ZEILE(1:1000)+0)=0;ZEILE(1:1000)+0;9^99))}

Trage ich nun in meiner UserForm in die TextBox meine Formel ein-

TextBox2 = FormulaArray = _
"=MIN(IF(COUNTIF(C[-2],ROW(R:R[999])+0)=0,ROW(R:R[999])+0,9^99))"

bekomme ich in der TextBox "FALSE"

Was mache ich falsch.

Ich hoffe dass mir jemand weiterhelfen kann.
Im Voraus vielen Dank
ABO

  

Betrifft: ohne Formel in UF von: Tino
Geschrieben am: 18.11.2009 09:12:58

Hallo,
versuche es mal so.

Dim meAr(), varRow
Dim A As Long

meAr = Sheets("Tabelle1").Columns(1).Value2

For A = 1 To UBound(meAr)
 varRow = Application.Match(A, meAr, 0)
 If Not IsNumeric(varRow) Then Exit For
Next A

MsgBox "nächste freie ist: '" & A & "'"
Gruß Tino


  

Betrifft: AW: ohne Formel in UF von: ABO
Geschrieben am: 18.11.2009 09:42:18

Hallo Tino

Super, Danke funktioniert 1a :-)

Gruß ABO


Beiträge aus den Excel-Beispielen zum Thema "Formel in UserForm"