Thema Datum  Von Nutzer Rating
Antwort
27.06.2018 15:38:54 Maria1
NotSolved
Blau Daten zwischen zwei Sheets kopieren und einfügen
 27.06.2018 19:21:15 AlterDresdner
*****
Solved

Ansicht des Beitrags:
Von:
AlterDresdner		 Datum:
27.06.2018 19:21:15		 Views:
662		 Rating:
     
Antwort:
 Nein
Thema:
Daten zwischen zwei Sheets kopieren und einfügen

Hallo Maria,
anbei ein Code. Da Du nichts über das 'wohin' gesagt hast, wird in Spalte 1 ab Zeile 1 kopiert.

Gruß der ALteDresdner

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Kopieren()
Const Suchspalte = "U" 'Spalte, in der gesucht werden soll
Const Copyspalte = 7 'Spalte, aus der kopiert werden soll
Dim SuchText As String, erg As Variant, Zielzeile As Long
  SuchText = InputBox("zu suchender Begriff", "Suchbegriff", "") 'Eingabe Suchtext
  With ThisWorkbook.Sheets("sheet1")
    Set erg = .Range(Suchspalte & ":" & Suchspalte).Find(What:=SuchText, LookIn:=xlValues, LookAt:=xlWhole)
    If erg Is Nothing Then
      MsgBox "Suchtext " & SuchText & " nicht gefunden", vbCritical, "Begriff nicht gefunden"
    Else 'Begriff gefunden
      ThisWorkbook.Sheets("sheet2").Cells(1, 1).EntireColumn.ClearContents 'Zielbereich löschen
      Zielzeile = 1 'erste Zeile in Zielblatt
      erg = erg.Row 'Zeile des Treffers
      While Not IsEmpty(.Cells(erg, Asc(Suchspalte) - 64))
        ThisWorkbook.Sheets("sheet2").Cells(Zielzeile, 1) = .Cells(erg, Copyspalte) 'Kopieren nach Spalte A
        erg = erg + 1
        Zielzeile = Zielzeile + 1
      Wend
    End If
  End With
End Sub

 

Ihre Antwort
  • 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: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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
27.06.2018 15:38:54 Maria1
NotSolved
Blau Daten zwischen zwei Sheets kopieren und einfügen
 27.06.2018 19:21:15 AlterDresdner
*****
Solved