Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
960to964
960to964
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Bereich zwischen 2 Worten finden und kopieren

Forumthread: Bereich zwischen 2 Worten finden und kopieren

Bereich zwischen 2 Worten finden und kopieren
17.03.2008 09:47:00
Matthias
Hallo zusammen,
habe folgendes Problem:
Habe eine Excel Tabelle mit 3 Sheets: Completed, Implemented & Active.
Auf dem "Active" Sheet sind Daten, welche jeweils durch eine Verbundene Zeile,
nach Active, Completed und Implemented geteilt sind.
Mein Problem ist, das die Daten alle auf einem Sheet stehe, aber getrennt werden
sollen. Im Prinzip müßte mann mit der Find Methode doch den Bereich zwischen
Implemented und Completed auf das Sheet "Implemented und den Bereich nach Completed
auf das Sheet "Completed" kopieren können.
Habe allerdings nur begrenzte Kenntnisse und es hapert noch an der Umsetzung.
Wäre toll wenn mir jemand helfen könnte.
Gruß
Matthias

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich zwischen 2 Worten finden und kopieren
17.03.2008 11:04:00
fcs
Hallo Mathias,
?
Auf dem "Active" Sheet sind Daten, welche jeweils durch eine Verbundene Zeile,
nach Active, Completed und Implemented geteilt sind.

? Was meinst du damit?
Lade eine Beispieldatei mit Dummy-Daten hoch, damit man den Datenaufbau erkennt und ggf. systematisch per Makro abarbeiten kann
Gruß
Franz

Anzeige
AW: Bereich zwischen 2 Worten finden und kopieren
17.03.2008 11:57:54
Matthias
Kann mir jetzt jemand helfen?

AW: Bereich zwischen 2 Worten finden und kopieren
17.03.2008 15:26:35
fcs
Hallo mathias,
hier mein Makrovorschlag
Da die verbundene Zellen die Arbeit erschweren werden diese vom Makro in Einzelzellen aufgelöst.
Gruß
Franz

Sub Aufteilen()
Dim wb As Workbook
Dim wsC As Worksheet, wsA As Worksheet, wsI As Worksheet
Dim Spalte As Long
Dim Zeile1 As Long, Zeile2 As Long, Zeile3 As Long, Zelle As Range
Set wb = ActiveWorkbook
Set wsA = wb.Worksheets("Active")
Set wsC = wb.Worksheets("Completed")
Set wsI = wb.Worksheets("Implemented")
wsA.UsedRange.MergeCells = False 'Verbundene Zellen auflösen
'Titelzeilen kopieren
wsA.Range(wsA.Rows(1), wsA.Rows(2)).Copy Destination:=wsC.Cells(1, 1)
wsA.Range(wsA.Rows(1), wsA.Rows(2)).Copy Destination:=wsI.Cells(1, 1)
Application.CutCopyMode = False
'SPaltenbreiten übertragen
For Spalte = 1 To 9
wsC.Columns(Spalte).ColumnWidth = wsA.Columns(Spalte).ColumnWidth
wsI.Columns(Spalte).ColumnWidth = wsA.Columns(Spalte).ColumnWidth
Next
'Implemented übertragen
Set Zelle = wsA.Columns(1).Find(what:="Implemented", LookIn:=xlValues, lookat:=xlPart)
If Zelle Is Nothing Then
MsgBox "Implemented nicht gefunden"
Else
Zeile1 = Zelle.Row
Set Zelle = wsA.Columns(1).Find(what:="Completed", LookIn:=xlValues, lookat:=xlPart)
If Zelle Is Nothing Then
MsgBox "Completed nicht gefunden"
Else
Zeile2 = Zelle.Row
wsA.Range(wsA.Rows(Zeile1 + 1), wsA.Rows(Zeile2 - 1)).Copy _
Destination:=wsI.Cells(3, 1)
End If
End If
'Completed übertragen
Set Zelle = wsA.Columns(1).Find(what:="Completed", LookIn:=xlValues, lookat:=xlPart)
If Zelle Is Nothing Then
MsgBox "Completed nicht gefunden"
Else
Zeile2 = Zelle.Row
Zeile3 = wsA.Columns.Cells(wsA.Rows.Count, 1).End(xlUp).Row
wsA.Range(wsA.Rows(Zeile2 + 1), wsA.Rows(Zeile3)).Copy _
Destination:=wsC.Cells(3, 1)
End If
If Zeile1 > 0 And Zeile3 > 0 Then
'Zeilen von Implemented und Completed löschen
wsA.Range(wsA.Rows(Zeile1), wsA.Rows(Zeile3)).Delete shift:=xlShiftUp
'Zeile mit Active löschen
wsA.Rows(3).Delete shift:=xlShiftUp
End If
End Sub


Anzeige

Forumthreads zu verwandten Themen

kwLuftlinie: Entfernung zwischen 2 PLZ-Gebieten
Weinert

Hallo!
kwLuftlinie ist eine Sammlung von Excel-Vorlagen. Es stellt Ihnen eine Zusatz-Funktion
LUFTLINIE zur Verfügung, mit dessen Hilfe Sie schnell Entfernungsdaten
zwischen zwei Postleitzahlgebieten (in Deutschland, Polen, Tschechien, Österreich und Schweiz)
ermitteln könne...
28.10.2008 09:32:00
Thread-ID: 1019809
5 Beiträge
kürzeste Entfernung zwischen Städten
Jenny

Hallo ihr lieben Excel-Helfer,
würde mich freuen, wenn sich einer von euch meinem Problem annimmt
https://www.herber.de/bbs/user/95938.xlsx
habe hier einen Ausschnitt aus meiner Entfernungstabelle,
suche eine Formel, die mir zu jeder Stadt in Tabelle 1 in den Spalten G-J den Na...
23.02.2015 20:24:35
Thread-ID: 1411055
16 Beiträge
GoogleMaps Hyperlink aus Schaltbox
Bulls

Hallo Zusammen,
ich hoffe mir kann Jemand helfen, ich möchte in einer Schaltbox einen Hyperlink zu Googlemaps haben.
Mein Hyperlink zieht sich die Daten aus 3 Zellen, Strasse, Plz und Ort, der Abfahrort ist ebenfalls fest definiert. Folgen Code habe ich, bekomme es aber nicht zum Laufen...
11.07.2017 00:59:53
Thread-ID: 1568384
5 Beiträge
Wo bin ich?
Jens Huthmann

Liebe Excelianer,ich habe in einem sheet verschiedene Schaltflächen (Autoform). Ich möchte, dass die jeweilige Schaltfläche beim Klicken die Zelle markiert, auf der diese Schaltfläche positioniert ist.Danke für TippsJens Huthmann
05.09.2002 10:31:45
Thread-ID: 156754
3 Beiträge
VBA: Wo bin ich?
Maikel

Hallo zusammen,klingt vielleicht blöd:
In einer VBA-Funktion, soll - ausgehend von der Zelle, die die Funktion enthält - eine Berechnung stattfinden, die Bezug nimmt auf Werte in anderen Zellen. Um diese Zellen mit relativen Positionsangaben anzusprechen (z.B. Offset), muß ich den "Standort"...
21.10.2002 14:40:44
Thread-ID: 171555
3 Beiträge
wo bin ich
Detlef Lange

Hallo alle zusammen,
wie kann ich per vba feststellen in welcher zeile sich meine jetzt grade active celle befindet? diese information brauche ich wenn ich irgendwo in einer tabelle eine zeile einfüge und dann in die eingefügte zeile, mittels vba, eine formel schreiben will.
dank im vorau...
11.03.2003 21:31:44
Thread-ID: 230745
8 Beiträge
Googlemaps in webbrowser-Steuerelement
Sebastian
Hallo zusammen,

ich wollte gerne GoogleMaps in ein Webbrowser-Steuerelement einbinden. Habe dazu folgenden Code verwendet:

Private Sub UserForm_Initialize() WebBrowser1.Navigate "https://www.google.com/maps" End Sub

Nachdem die Karte kurz korrekt angezeigt wird im W...
17.06.2023 21:55:31
Thread-ID: 1934028
8 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

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