Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
820to824
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
820to824
820to824
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

makro

makro
15.11.2006 13:51:08
achim
Hallo excel freunde
das makro funzt für text super (von rudi maintaire).
nun möchte das auch für zahlen einsetzen , dass geht aber nicht.
wer kann das makro anpassen?

Sub tt()
Dim vntOrte
Dim i As Integer
With Sheets("Grunddaten")
vntOrte = .Range(.Cells(2, 6), .Cells(2, 6).End(xlDown))
End With
For i = 1 To UBound(vntOrte, 1)
With Sheets("Ergebnisse")
If WorksheetFunction.CountIf(.Range(.Cells(2, 1), .Cells(2, 1).End(xlDown)), vntOrte(i, 1)) = 0 Then
.Cells(65536, 1).End(xlUp).Offset(1, 0) = vntOrte(i, 1)
End If
End With
Next i
End Sub

danke achim h.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: makro
15.11.2006 14:00:44
Rudi
Hallo,
sollte gehen! Was klappt nicht?
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
danke klappt war mein fehler
15.11.2006 14:16:47
achim
Hallo Rudi
danke für die rückmeldung
war mein fehler. es klappt nun alles.Sorry
danke achim h.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige