Macro um duplikate,leere Zeilen zu entfernen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function kkesh(rngIn As Range, Optional strSep As String) Dim rngC As Range, objOut As Object Set objOut = CreateObject("scripting.dictionary") If strSep = "" Then strSep = " " For Each rngC In rngIn If Len(rngC) Then objOut(rngC.Value) = 0 Next kkesh = Join(objOut.keys, strSep) End Function

Hi
wenn du die Funktion in jedem Workbook öffnen können willst, musst du den Makrocode entweder in einem AddIn hinterlegen (bitte mal danach im Internet für weitere Informationen suchen)
oder du hinterlegst den Code in einer Datei, welche im Autostartordner liegt und beim Starten von Excel automatisch geöffnet wird (z.B. die Personl.xlsb)
in diesem Fall musst du aber dem Funktionsnamen den Dateinamen voranstellen, damit Excel weiß, wo der Code liegt:
=Personl.xlsb!kkesh(...)
Wenn du nicht genau weißt, wie du es schreiben musst, kannst du die Funktion auch über den Funktionsassistenten einfügen und hier die Gruppe "Benutzerdefinert" auswählen.
zu beachten ist, dass eine Datei, die so eine Funktion verwendet, nicht ohne weiteres an andere Personen weiter gegeben werden kann.
Diese müssten dann sich ebenfalls dein AddIn installieren oder den Code in ihre Personl.xlsb kopieren.
Gruß Daniel

Public Sub Zahlen_in_Zelle() Dim loLetzte As Long With Worksheets("Tabelle9") .Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlNo loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("B1").FormulaLocal = "=TEXTVERKETTEN("";"";WAHR;A1:A" & loLetzte & ")" .Range("B1").Value = .Range("B1").Value End With End Sub

Public Sub Zahlen_in_Zelle() Dim loLetzte As Long With ActiveSheet .Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlNo loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row .Range("B1").FormulaLocal = "=TEXTVERKETTEN("";"";WAHR;A1:A" & loLetzte & ")" .Range("B1").Value = .Range("B1").Value End With End Sub

Hallo,
folgendes Makro fragt nach der Zelle und speichert das Ergebnis in diese:

Public Sub Zahlen_in_Zelle()
Dim loLetzte As Long, strZiel As String
strZiel = InputBox("In welcher Zelle soll das Ergebnis ausgegeben werden?", "Zahlen in Zelle", " _
B1")
If strZiel = "" Then Exit Sub
With ActiveSheet
.Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
.Range(strZiel).FormulaLocal = "=TEXTVERKETTEN("";"";WAHR;A1:A" & loLetzte & ")"
.Range(strZiel).Value = .Range(strZiel).Value
End With
End Sub

Man kann es vielleicht aber auch ohne Abfrage machen. Nachstehendes Makro fügt das Ergebnis in der aktiven Zelle ein. Einfach die Zelle anklicken und das Makro starten:

Public Sub Zahlen_in_Zelle()
Dim loLetzte As Long
With ActiveSheet
.Columns("A:A").RemoveDuplicates Columns:=1, Header:=xlNo
loLetzte = .Cells(.Rows.Count, 1).End(xlUp).Row
Selection.FormulaLocal = "=TEXTVERKETTEN("";"";WAHR;A1:A" & loLetzte & ")"
Selection.Value = Selection.Value
End With
End Sub

Gruß
Robert

Beliebteste Forumthreads (12 Monate)

Macro um duplikate,leere Zeilen zu entfernen

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Macro um duplikate,leere Zeilen zu entfernen

16 Beiträge zum Forumthread Beiträge zu diesem Forumthread

305 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

16
Beiträge zum Forumthread

Beiträge zu diesem Forumthread