Zellinhalt an bestimmten Ort kopieren

Bild

Betrifft: Zellinhalt an bestimmten Ort kopieren
von: Erich
Geschrieben am: 15.04.2005 09:47:03
Hallo Excelspezialisten
Ich möchte von der Mappe 'Aufgebot', wenn in Zelle B2 "Anlass4"(wird durch Kombinationsfeld eingegeben) steht, die Namen in Zellen B5:B15 nach Mappe 'Bericht', unter Ueberschrift "Anlass4" kopieren.
Und dies durch einen Button.
Wenn in 'Aufgebot'B2 "Anlass2" steht, dann nach 'Bericht' unter die Ueberschrift "Anlass2". Die Namen die kopiert werden, ändern je nach Anlass.
Konnte leider kein Beispiel hochladen, vielleicht hat aber trotzdem jemand eine Lösung für mich.
Besten Dank im Voraus
Erich

Bild

Betrifft: AW: Zellinhalt an bestimmten Ort kopieren
von: Fritz
Geschrieben am: 15.04.2005 10:10:29
Hi Erich,
Handelt sich bei "Aufgebot","Bericht" wirklich um Arbeitsmappen oder Tabellenblätter innerhalb einer Arbeitsmappe?
Sollen die jeweiligen Daten überschrieben oder angefügt werden?

Fritz
Bild

Betrifft: AW: Zellinhalt an bestimmten Ort kopieren
von: Erich
Geschrieben am: 15.04.2005 10:30:42
Hallo Fritz
Sorry, natürlich sind es Tabellenblätter innerhalb einer Arbeitsmappe und die Zellen sollten überschrieben werden.
Besten Dank für Deine Aufmerksamkeit und Bemühung
Erich
Bild

Betrifft: AW: Zellinhalt an bestimmten Ort kopieren
von: Fritz
Geschrieben am: 15.04.2005 11:02:17
Hi Erich,
anbei mal eine Variante. Teste sie mal durch.
https://www.herber.de/bbs/user/21186.xls
Fritz
Bild

Betrifft: Funktioniert einwandfrei!
von: Erich
Geschrieben am: 15.04.2005 11:17:48
Genau so habe ich's mir vorgestellt!
Danke nochmals!
Erich
Bild

Betrifft: AW: Funktioniert einwandfrei!
von: Steffen
Geschrieben am: 15.04.2005 16:36:39

ich bräuchte das selbe nur das es nicht überschrieben werden darf sondern angehängt werden soll hat jemand dafür eine Lösung ?
Danke und Gruß
STeffen
Bild

Betrifft: AW: Funktioniert einwandfrei!
von: WernerB.
Geschrieben am: 16.04.2005 09:24:46
Hallo Steffen,
wie gefällt Dir mein Vorschlag auf Basis des Codes in der hier hochgeladenen Datei von Fritz?

Sub UebertragenNamen()
Dim ws1 As Worksheet, ws2 As Worksheet, _
    an As String, _
    laR1 As Long, laR2 As Long, laR3 As Long, _
    s As Integer, sp As Integer, z1 As Integer
    Set ws1 = Worksheets("Aufgebot")
    Set ws2 = Worksheets("Bericht")
    z1 = 5
    If ws1.Range("B2").Text <> "" Then
      an = "Anlass" & ws1.Range("B2").Text
      For sp = 1 To 7
        If an = ws2.Cells(2, sp).Text Then
          laR1 = ws1.Cells(Rows.Count, 2).End(xlUp).Row
          laR2 = ws2.Cells(Rows.Count, sp).End(xlUp).Row
          laR3 = laR2 + laR1 - 4
          With ws2
            .Range(.Cells(laR2 + 1, sp), .Cells(laR3, sp)).Value = _
              ws1.Range(ws1.Cells(5, 2), ws1.Cells(laR1, 2)).Value
          End With
          Exit For
        End If
      Next sp
    End If
End Sub

Viel Erfolg wünscht
WernerB.
P.S.: Dieses Forum lebt auch von den Rückmeldungen der Fragesteller an die Antworter !
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Zellinhalt an bestimmten Ort kopieren"