AW: Makro in Funktion umwandeln
17.12.2007 20:55:21
ransi
HAllo Hermann
Wenn du ohne Index() klarkommen willst, musst der Funktion noch den Zeilen und Spaltenindex mitgeben.
Function TEILENINGRUPPEN(Zelle As Range, Gruppenzeichen As String, Trennzeichen As String, z As Long, s As Integer)
Dim arrGruppen() As String
Dim arrTemp1() As String
Dim arrTemp2() As String
Dim lngI As Long
Dim lngN As Long
If Zelle = "" Then Exit Function
arrGruppen = Split(Zelle.Text, Gruppenzeichen)
Redim arrTemp2(5, UBound(arrGruppen))
For lngI = LBound(arrGruppen) To UBound(arrGruppen)
arrTemp1 = Split(arrGruppen(lngI), Trennzeichen)
For lngN = LBound(arrTemp1) To UBound(arrTemp1)
arrTemp2(lngN, lngI) = arrTemp1(lngN)
Next lngN
Erase arrTemp1
Next lngI
'###################
TEILENINGRUPPEN = arrTemp2(z - 1, s - 1)
'###################
End Function
TeileInGruppen
| B | C | D | E | F | G |
10 | AA | AB | AC | AD | AE | AF |
11 | 123456 | 123456 | 123456 | 123456 | 123456 | 123456 |
12 | 1250 | 1500 | 1750 | 2000 | 2250 | 2500 |
13 | 625 | 750 | 875 | 1000 | 1125 | 1250 |
14 | | | ST52 | St52 | ST52 | ST52 |
15 | | | CC | CD | CE | BB |
Formeln der Tabelle |
Zelle | Formel | B10 | =TEILENINGRUPPEN($A$3;";";"/";ZEILE(A1); SPALTE(A1)) |
|
Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
ransi