Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
828to832
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
828to832
828to832
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

daten übertragen

daten übertragen
11.12.2006 22:22:15
kirsche
hallo leute, hallo franz,
als erstes einen lieben gruss an franz. habe leider verpasst dir zu antworten, da ich die letzte woche auf lehrgang war. bitte vielmals um entschuldigung.
dein code zwecks passwortschutz habe ich eingefügt, hat auch super geklappt, danke.
nun wieder mal ein neues problem und ich hoffe auf eure unterstützung.
in tabelle 1 stehen alle meine daten. spalte A = artikelnummer, spalte AJ = Kennzeichnungsnummer. nun möchte ich in tabelle 2 alle artikel mit der Kennzeichnung 24 übertragen bekommen, angefangen bei art.nr. = spalte A bis hin zur bezeichnung = spalte AI.
kann mir da vielleicht jemand helfen?
https://www.herber.de/bbs/user/38891.xls
danke
kirsche

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

Betreff
Datum
Anwender
Anzeige
AW: daten übertragen
11.12.2006 23:17:36
P@ulchen
Hallo,
folgenden Code in das Modul der Tabelle2:


Option Explicit
Private Sub Worksheet_Activate()
    Dim Aletzte As Long, i As Long, j As Long
    Dim wks1 As Worksheet, wks2 As Worksheet
    Application.ScreenUpdating = False
    Set wks1 = Sheets("Tabelle1")
    Set wks2 = ActiveSheet
    Aletzte = IIf(IsEmpty(wks2.Range("A65536")), wks2.Range("A65536").End(xlUp).Row, 65536)
    If Aletzte > 3 Then wks2.Rows("4:" & Aletzte).Delete
    j = 4
    Aletzte = IIf(IsEmpty(wks1.Range("A65536")), wks1.Range("A65536").End(xlUp).Row, 65536)
    For i = 3 To Aletzte
        If wks1.Cells(i, 36).Value = wks2.Cells(1, 3).Value Then
            wks1.Range("A" & i & ":AI" & i).Copy wks2.Rows(j)
            j = j + 1
        End If
    Next i
    Application.ScreenUpdating = True
End Sub

Gruß aus Leipzig
P@ulchen
www.excel-werkstatt.de

Anzeige
AW: daten übertragen
11.12.2006 23:35:58
kirsche
hallo paulchen,
danke für deine schnelle hilfe, das hat super geklappt. das war genau das, was ich suchte. bei meiner recherche habe ich leider nicht das passende gefunden.
liebe grüße
kirsche

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige