Hallo jonny,

warum Makro und warum Tabelle3?

Das macht doch schon der SVERWEIS() innerhalb zweier Tabellen.

Bei genaueren Angaben poste ich Dir die Formel.

Gruß
Rainer

Hallo Rainer,

diesen Teil aber nicht

"Anschliessend nach Tabelle 2 kopieren und das ganz am ende. Was mich aber stuzig macht ob das überhaupt geht "


Gruß Hajo

Hallo Rainberg,

mein Ziel von der ganzen Sache ist einfach das ich nicht alles 2 mal eintragen möchte sondern mit hilfe von dem Makro nur noch einmal das ganze eintragen muss.
Deshalb Steht das ganze in Tabelle3.


Ich kann mal eine testdatei anlegen und es dir schicken damit du vllt weist was ich genau meine? ;)

Hallo jonny,



..... Testdatei ist gut, aber nicht mir schicken, sondern hochladen, alle wollen wissen, was Du meinst.

Gruß
Rainer

Ich hab mal eine kleine datei hochgeladen. Damit es für euch verständlicher wird was ich eigentlich möchte ;)

http://www.fileuploadx.de/519190

Hallo jonny,

und wo soll die Zeile eingefügt werden?

hier werden doch schon alle Daten übertragen oder sind es verschiedene Werte?

Zitat:
3. Danach die Zeile 5 aus Tabelle 3 kopieren

sorry die zeile soll in die Tabelle2 ganz unten

Zitat:
2. Wenn Drucker6 gefunden wurde Spalte A bis J in die Tabelle 2 kopieren
hier werden doch schon alle Daten übertragen oder sind es verschiedene Werte?


Nein das aus Tabelle1 soll dann mit den Daten aus Tabelle 3 überschrieben werden ;)
Ich wollte erstmal eins nach dem anderen machen sonst wirds vllt zu kompliziert.

Hallo
zeile aus Tabelle1 wird in Tabelle2 übertragen.
Versuch

Gruß
fedjo

Moin,

wenn ich die Datei runterladen möchte kommt nur die meldung:


Access Denied | Zugriff verweigert. (content_filter_denied)

Your request was denied because of its content categorization: "Online Storage"
Ihre Anfrage wurde verweigert. Kategorie der Seite: "Online Storage"

Kannst die Datei evt. bei einem anderen Hoster noch mal hochladen? *liebgug*

Hallo,
dann ein neuer Versuch:
http://rapidshare.com/files/201994892/Versuch.xls.html

Gruß
fedjo

Hallo fedjo ,

also das mit der Suche und kopieren klappt schon mal wunderbar hätte nicht gedacht das es überhaupt geht *beide daumen hoch*

Ein hoffentlich für dich kleines anliegen habe ich noch.... ;)

Wäre es evt möglich nachdem die Zeile in Tabelle 2 kopiert wurde, die gesuchte Zeile in Tabelle1 mit der aus Tabelle3 zu ersetzen bzw 3 spalten in diesem fall Spalte B, G und J?
Und zu guter letzt noch die Zeile aus Tabelle3 in die letzte Zeile in Tabelle2 kopieren ;)

Vielen lieben dank schon mal für deine tolle mühe.

Gruss
Johnny

Hallo Johnny,
wenn ich das alles richtig verstanden habe dann so:

Option Explicit
Sub Suchen()
Application.ScreenUpdating = False
Sheets("Tabelle1").Select
Dim c, firstAddress
Dim strSuch As String, rngBer As Range
Set rngBer = Range("A3:A" & Range("A65536").End(xlUp).Row)
With rngBer
strSuch = Sheets("Tabelle3").Range("A5").Value
If strSuch = "" Then
Exit Sub
End If
Set c = .Find(strSuch, LookIn:=xlValues)
If c Is Nothing Then
MsgBox "Eintrag nicht vorhanden"
Else
firstAddress = c.Address
Do
c.Activate
Loop While Not c Is Nothing And c.Address <> firstAddress
Sheets("Tabelle1").Range(ActiveCell.Offset(0, 0), ActiveCell.Offset(0, 9)).Copy
Sheets("Tabelle2").Select
Range("A65536").End(xlUp).Select
Cells(ActiveCell.Row + 1, ActiveCell.Column).PasteSpecial
Range("A65536").End(xlUp).Select
Application.CutCopyMode = False
Sheets("Tabelle1").Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = Sheets("Tabelle3").Range("B5").Value
Cells(ActiveCell.Row + 0, ActiveCell.Column + 6) = Sheets("Tabelle3").Range("G5").Value
Cells(ActiveCell.Row + 0, ActiveCell.Column + 9) = Sheets("Tabelle3").Range("J5").Value
Sheets("Tabelle3").Range("A5:J5").Copy
Sheets("Tabelle2").Select
Range("A65536").End(xlUp).Select
Cells(ActiveCell.Row + 2, ActiveCell.Column - 0).PasteSpecial
Application.CutCopyMode = False
Sheets("Tabelle3").Select
End If
End With
End Sub

Gruß
fedjo

Hallo fedjo,

ich bin einfach sprachlos das sowas doch geht :-)

Es ist schon fast perfekt....

statt die ganze Zeile von Tabelle1 sollen doch nur paar Spalten in Tabelle2 kopiert werden. Wo kann ich das in dem Makro genau ändern? Die Spalten sind A, B, E, F, G,H und J.

Keine ahnung wie ich dir fedjo dafür schon mal DANKEN kann :)
Echt sau starke leistung ;-)

Grüsse

Johnny

Dazu ergänzen sollte ich noch das die Kopierten Spalten von Tabelle1 in die Tabelle2 fortlaufend kopiert werden sollen.

SpalteA nach A
SpalteB nach B
SpalteE nach C
SpalteF nach D
SpalteG nach E
SpalteH nach F
SpalteJ nach G

Lg

Johnny

Hallo Johnny,
ich habe den Code noch mal nach deinen Angaben angepasst.
http://www.file-upload.net/download-1485955/Versuch1.xls.html
Gruß
fedjo

Hallo,

Irgendwas haut bei:

Option Explicit
Sub Suchen()
    Application.ScreenUpdating = False
     Sheets("Tabelle1").Select
          Dim c, firstAddress
    Dim strSuch As String, rngBer As Range
    Set rngBer = Range("A3:A" & Range("A65536").End(xlUp).Row)
    With rngBer
            strSuch = Sheets("Tabelle3").Range("A5").Value
        If strSuch = "" Then
        Exit Sub
        End If
         Set c = .Find(strSuch, LookIn:=xlValues)
        If c Is Nothing Then
            MsgBox "Eintrag nicht vorhanden"
                Exit Sub
        Else
            firstAddress = c.Address
            Do
                c.Activate
            Loop While Not c Is Nothing And c.Address <> firstAddress

Sheets("Tabelle1").Select
ActiveCell.Copy
Sheets("Tabelle2").Select
Range("A1").End(xlDown).Offset(1, 0).PasteSpecial

Sheets("Tabelle1").Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1).Copy
Sheets("Tabelle2").Select
Range("A1").End(xlDown).Offset(0, 1).PasteSpecial

Sheets("Tabelle1").Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 4).Copy
Sheets("Tabelle2").Select
Range("A1").End(xlDown).Offset(0, 2).PasteSpecial

Sheets("Tabelle1").Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 5).Copy
Sheets("Tabelle2").Select
Range("A1").End(xlDown).Offset(0, 3).PasteSpecial

Sheets("Tabelle1").Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 6).Copy
Sheets("Tabelle2").Select
Range("A1").End(xlDown).Offset(0, 4).PasteSpecial


Sheets("Tabelle1").Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 7).Copy
Sheets("Tabelle2").Select
Range("A1").End(xlDown).Offset(0, 5).PasteSpecial

Sheets("Tabelle1").Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 9).Copy
Sheets("Tabelle2").Select
Range("A1").End(xlDown).Offset(0, 6).PasteSpecial

Sheets("Tabelle1").Select
Cells(ActiveCell.Row + 0, ActiveCell.Column + 1) = Sheets("Tabelle3").Range("B5").Value
Cells(ActiveCell.Row + 0, ActiveCell.Column + 6) = Sheets("Tabelle3").Range("G5").Value
Cells(ActiveCell.Row + 0, ActiveCell.Column + 9) = Sheets("Tabelle3").Range("J5").Value

Sheets("Tabelle3").Range("A5:J5").Copy
Sheets("Tabelle2").Select
Range("A65536").End(xlUp).Select
Cells(ActiveCell.Row + 2, ActiveCell.Column - 0).PasteSpecial
Application.CutCopyMode = False
Sheets("Tabelle3").Select
 End If
 End With
End Sub

nicht so ganz hin.
Es wird aus irgendwelchen gründen auch immer die zeile aus Tabelle1 in die Tabelle2 kopiert. Auch in deiner versuchs datei kommt immer nur die zeile aus Tabelle3 in die Tabelle2.

Jemand ne Idee woran das liegt?

Lg

Johnny

Es wird aus irgendwelchen gründen auch immer die zeile aus Tabelle1 in die Tabelle2 kopiert.

Das sollte heissen das die NICHT kopiert wird :/

3fach post :-( *geb mir die EDIT funktion* ^^

ok in deiner Versuchsdatei gehts .... aber in meiner gehts irgendwie nicht. Von Tab3 wird in Tab2 kopiert aber leider nicht von Tab1 in Tab 2...

hm okay mein letzter post ^^

Es KLAPPT in meiner 2ten Tabelle waren noch paar freie Zeilen dann kann es natürlich nicht klappen.

@fedjo VIELEN DANK *daumen hoch*