VERKETTEN über VBA

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Hi Dirk,
statt VERKETTEN kann man auch einfach & zwischen die Teile setzen.
Die Formate in den Spalten A:D sind beliebig, die Werte dort müssen Zahlen sein.
Hier zunächst zwei kürzere Formelvarianten (Spalten F und G, die Formate sind wie bei dir):

	A	B	C	D	E	F	G
1	Nr. 1	Nr. 2	Nr. 3	Nr. 4	VBA	Ergebnis	oder
2	1	1	0	0	01.01.00.00	01.01.00.00	01.01.00.00
3	1	2	1	0	01.02.01.00	01.02.01.00	01.02.01.00
4	2	2	1	1	02.02.01.01	02.02.01.01	02.02.01.01
5	3	3		3		03.03.00.03	03.03.00.03

Formeln der Tabelle

Zelle	Formel
F2	=1*(TEXT(A2;"00")&TEXT(B2;"00")&TEXT(C2;"00")&TEXT(D2;"00"))
G2	=100(100(100*A2+B2)+C2)+D2

Spalte E wurde mit VBA gefüllt. E5 ist leer, weil A5:D5 nicht vollständig eingegeben ist.
Hier der Code: Option Explicit Sub myVerkette() Dim zz As Long For zz = 2 To Cells(Rows.Count, 1).End(xlUp).Row If Application.Count(Cells(zz, 1).Resize(, 4)) = 4 Then Cells(zz, 5) = 100 * (100 * (100 * Cells(zz, 1) + _ Cells(zz, 2)) + Cells(zz, 3)) + Cells(zz, 4) Else Cells(zz, 5).ClearContents End If Next zz End Sub Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim rngB As Range, zz As Long Set rngB = Intersect(Target, Cells(2, 1).Resize(Rows.Count - 1, 4)) If rngB Is Nothing Then Exit Sub For zz = Application.Max(2, rngB.Row) To rngB.Row + rngB.Rows.Count - 1 If Application.Count(Cells(zz, 1).Resize(, 4)) = 4 Then Cells(zz, 5) = 100 * (100 * (100 * Cells(zz, 1) + _ Cells(zz, 2)) + Cells(zz, 3)) + Cells(zz, 4) Else Cells(zz, 5).ClearContents End If Next zz End Sub

Hi Dirk,
das Zahlenformat jeweils für einzelne Zellen festzulegen, bläht die Dateigröße unnötig auf.
Was spricht dagegen, der Spalte E das Format einmalig per Hand zu verpassen?
Mit Cells(zz, 5).ClearContents bleibt das Format erhalten.
Wenn schon per Code, würde ich auch in VBA der ganzen Spalte das Format geben.
Oder sollen in Spalte E noch Zahlen in Zellen mit anderen Formaten stehen?
Per Makroaufzeichnung kannst du leicht herausbekommen, wie die richtige Syntax ist:


Sub Makro1()
' Makro1 Makro
' Makro am 18.08.2010 von Erich aufgezeichnet
Selection.NumberFormat = "00"".""00"".""00"".""00"
End Sub

Obwohl ich das für unnötig und eher schädlich halte, hier der Code,
der bei jedem Ausfüllen in Spalte E die Spalte formatiert:


Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngB As Range, zz As Long, bolAend As Boolean
Set rngB = Intersect(Target, Cells(2, 1).Resize(Rows.Count - 1, 4))
If rngB Is Nothing Then Exit Sub
For zz = Application.Max(2, rngB.Row) To rngB.Row + rngB.Rows.Count - 1
If Application.Count(Cells(zz, 1).Resize(, 4)) = 4 Then
Cells(zz, 5) = 100 * (100 * (100 * Cells(zz, 1) + _
Cells(zz, 2)) + Cells(zz, 3)) + Cells(zz, 4)
bolAend = True
Else
Cells(zz, 5).ClearContents
End If
Next zz
If bolAend Then Columns(5).NumberFormat = "00"".""00"".""00"".""00"
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Beliebteste Forumthreads (12 Monate)

	A	B	C	D	E
1	Nr. 1	Nr. 2	Nr. 3	Nr. 4	Ergebnis
2	01	.01	.00	.00	01.01.00.00
3	01	.02	.01	.00	01.02.01.00
4	02	.02	.01	.01	02.02.01.01

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread