Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Markro erweitern

Markro erweitern
03.12.2014 15:24:30
Kurt
Hallo zusammen,
anbei habe ich das Makro übers Forum erhalten, funktioniert einwandfrei.
Es werden die Namen in Spalte H ab Zeile 4 geschrieben und die Werte werden in I ab4
geschrieben.
Wie kann man dies in einer UF darstellen ?
gruß kurt w
Dim dic As Object
Dim arrNamen
Dim z As Long
Set dic = CreateObject("scripting.dictionary")
arrNamen = Range("D4:D" & Cells(Rows.Count, 2).End(xlUp).Row).Value
For z = 1 To UBound(arrNamen, 1)
dic(arrNamen(z, 1)) = dic(arrNamen(z, 1)) + 1
Next
Range("H4").Resize(dic.Count, 1).Value = WorksheetFunction.Transpose(dic.keys)
Range("I4").Resize(dic.Count, 1).Value = WorksheetFunction.Transpose(dic.Items)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Habe UF schon erstellt aber...
03.12.2014 20:22:23
kurt
Hallo zusammen,
habe UF erstellt. (Userform1)
Label 2 bis Label 13 sind die Namen und
Label 14 bis Label 25 sollen die Werte angezeigt werden.
Die Summenbildung ist Label 26
gruß kurt k

AW: Habe UF schon erstellt aber...
04.12.2014 10:44:37
ChrisL
Hi Kurt
Private Sub UserForm_Initialize()
Dim i As Byte
Dim iZeile As Long, letzteZeile As Long
' alle Werte löschen
For i = 2 To 26
Controls("Label" & i).Caption = ""
Next i
' Label abfüllen
i = 2
letzteZeile = Cells(Rows.Count, 2).End(xlUp).Row
For iZeile = 4 To letzteZeile
If WorksheetFunction.CountIf(Range(Cells(4, 4), Cells(iZeile, 4)), Cells(iZeile, 4)) = 1  _
Then
Controls("Label" & i).Caption = Cells(iZeile, 4)
Controls("Label" & i + 12).Caption = WorksheetFunction.CountIf(Columns(4), Cells(iZeile, _
4))
i = i + 1
End If
Next iZeile
' Total abfüllen
Label26.Caption = letzteZeile - 3
End Sub
https://www.herber.de/bbs/user/94187.xlsm
cu
Chris

Anzeige
Danke Chris -)
05.12.2014 13:08:36
Kurt
Hallo Chris,
mein Computer hat nicht funktioniert, deshalb jetzt.
DANKE einwandfrei !
Schönen Nikolaus...
Gruß Kurt k

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige