|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Excel Kopieren und Finden in 2. Tabelle einfügen Schleife |
19.12.2016 09:32:49 |
Üstek |
|
|
|
19.12.2016 16:33:49 |
Mackie |
|
|
|
20.12.2016 07:53:32 |
Üstek |
|
|
Von:
Üstek |
Datum:
19.12.2016 09:32:49 |
Views:
1463 |
Rating:
|
Antwort:
|
Thema:
Excel Kopieren und Finden in 2. Tabelle einfügen Schleife |
|
Guten Tag liebe Programmierer,
ich habe bisher leider nur grobe Kenntnisse was das Programmieren in VBA angeht.
Ich habe bisher herumprobiert jedoch nur halbwegs mit Erfolg. Deshalb bin ich dankbar für jeden Lösungsansatz.
Ausgangssituation:
Ich habe eine Excel Datei mit drei Tabellen.
Tabelle 1 beinhaltet eine riesige Liste mit Datensätzen.
Tabellen 2 und 3 ist leer.
So und die Aufabe:
Das Programm soll in Tabelle 1 nach Zeilen suchen welche das bestimmte wort 'excel' beinhaltet.
Jede gefundene Zeile soll in Tabelle 2 eingefügt werden.
Dies ist mit folgendem Code erledigt:
************************
Sub FindenUndKopieren01()
Dim rng As Range ' variablen definition
Dim loDeinWert As String
Dim sFirstadress As String
loDeinWert = "excel" ' gesuchtes Wort
Set rng = Worksheets("Tabelle1").Range("A1:A189").find(loDeinWert) ' Range eingabe
If rng Is Nothing Then
MsgBox "Wort " & loDeinWert & " nicht gefunden!" ' Falls es nicht gefunden wird
Else
sFirstadress = rng.Address ' Range Addressierung
Do
rng.EntireRow.Copy ' Kopieren von Inhalt
'PROBLEM: Beim Ausführen wird die komplette Zelle überschrieben
'Also werden die in den nächsten Spalten stehenden Werte gelöscht
Worksheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp) _
.Offset(1, 0).PasteSpecial Paste:=xlPasteAll ' Einfuegen in die zweite Tabelle
Columns(1).EntireColumn.AutoFit
Set rng = Worksheets("Tabelle1").Range("A:B").FindNext(rng)
Loop While Not rng Is Nothing And rng.Address <> sFirstadress ' Nichtgleich
End If
End Sub
************************************
nun der zweite Teil der Aufgabe besteht darin, nur die nächsten 4 Zeichen zu kopieren,
was nach dem wort 'excel' kommt und Tabelle 2 in Spalte C zu kopieren.
Das will einfach mit dem Vorherigen Code nicht klappen. Ein weiteres Problem ist das immer
eine ganze Zeile kopiert und eingefügt wird, das macht die Sache noch schwieriger.
Vielen Dank im Vorraus!! |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
Excel Kopieren und Finden in 2. Tabelle einfügen Schleife |
19.12.2016 09:32:49 |
Üstek |
|
|
|
19.12.2016 16:33:49 |
Mackie |
|
|
|
20.12.2016 07:53:32 |
Üstek |
|
|