Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
816to820
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

makro

makro
15.11.2006 10:54:21
achim
hallo excel freunde
wer kann mit einem makro helfen?
1.in der tabelle grunddaten stehen in F2:F500 orte ( bochum usw.)
2. in der tabelle ergebnisse sind auch orte in A2:A40
nun zur funktion:
gehe nach (Tabelle)Grunddaten und merke dir die eingetragenen orte ("F2:F500")dann gleiche in (Tabelle)Ergebnisse im Bereich A2:A40 ob diese orte auch vorhanden sind wenn nicht dann ergänze den fehlenden ort in der nächst freien zelle ab (Tabelle Ergebnisse) A2.
https://www.herber.de/bbs/user/38198.xls
danke
achim h.

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

Betreff
Datum
Anwender
Anzeige
AW: makro
15.11.2006 11:15:05
Rudi
Hallo,

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
Gruß
Rudi
Danke für deine Mühe
15.11.2006 11:25:42
achim
hallo rudi
genau was ich brauche. tausend dank
gruss
achim h.

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige