Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.05.2025 12:42:46
Zeilen löschen in Abhängigkeit
20.05.2025 09:37:18
Zellen-Name über alle Spalten bestimmen
20.05.2025 08:23:33
(Komplexe) PDF-Tabelle in Excel Tabelle konvertieren
19.05.2025 17:21:53
Kommentar als Kommentar in Nachbar-Zelle übertragen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
384to388
384to388
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datenbank

Forumthread: Datenbank

Datenbank
24.02.2004 09:06:39
Roger
Hallo zusammen
Habe ein klizekleines Excel-Problem.
Beschreibung:
Habe eine Datenbank z.B. Spalten A-B (A= Land, B= Kontinent)(Zellen A1, B1
Zellen: A2-B5 (A2: Deutschland, A3: Oesterreich, A4: Kenya, A5 = Schweiz)B2= Europa, B3 = Europa, B4 = Afrika, B5= Europa)
Jetzt möchte ich auf einem neuen Excel Blatt alle europäischen Staaten und alle afrikanischen Staaten, jeweils beginnend mit der Zelle A2.
Wie ist dies möglich.
Herzlichen Dank
Gruss Roger
Anzeige

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

Kategorie
Daten und Abfragen
Tags
#abfragen #filter #makro
Relevante Fragen
Anzeige
Betreff
Datum
Anwender
Anzeige
AW: Datenbank
24.02.2004 09:25:23
cunradus
unelegant über sverweis, hierfür mußt du aber den Kontinent den Ländern voranstellen - also spalten vertauschen, oder land in spalte hinter kontinent kopieren und ausblenden.
conrad
AW: Datenbank
24.02.2004 09:28:59
AndreasS
Hi,hier ein "kleines" Makro:

Sub Suche_Kopie()
On Error Resume Next
Application.ScreenUpdating = False
Wenn_Kontinent_Europa_dann_Kopie
Wenn_Kontinent_Afrika_dann_Kopie
Application.ScreenUpdating = True
End Sub



Sub Wenn_Kontinent_Europa_dann_Kopie()
Dim iRow%
Dim i$
i = "Europa"
With Worksheets("Tabelle1").Range("B:B") 'hier Bereich anpassen
Set c = .Find(i, LookIn:=xlValues)
If Not c Is Nothing Then
firstaddress = c.Address
Do
Set c = .FindNext(c)
c.EntireRow.Select
With Sheets("Tabelle2")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveCell.EntireRow.Copy Worksheets("Tabelle2").Rows(iRow)
End With
Loop While Not c Is Nothing And c.Address <> firstaddress
End If
End With
End Sub



Sub Wenn_Kontinent_Afrika_dann_Kopie()
Dim ii$
ii = "Afrika"
With Worksheets("Tabelle1").Range("B:B") 'hier Bereich anpassen
Set c1 = .Find(ii, LookIn:=xlValues)
If Not c1 Is Nothing Then
firstaddress = c1.Address
Do
Set c1 = .FindNext(c1)
c1.EntireRow.Select
With Sheets("Tabelle2")
iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveCell.EntireRow.Copy Worksheets("Tabelle2").Rows(iRow)
End With
Loop While Not c1 Is Nothing And c1.Address <> firstaddress
End If
End With
End Sub

Gruß Andreas
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige