Thema Datum  Von Nutzer Rating
Antwort
12.08.2010 15:39:23 Falk
NotSolved
Blau Aw:Zellenabfrage und Herauskopieren
 18.08.2010 18:42:43 Severus
NotSolved
19.08.2010 09:23:29 falk44
NotSolved
20.08.2010 08:40:00 Severus
NotSolved

Ansicht des Beitrags:
Von:
Severus		 Datum:
18.08.2010 18:42:43		 Views:
918		 Rating:
     
Antwort:
  Ja
Thema:
Aw:Zellenabfrage und Herauskopieren
Ich hoffe, ich habe Dich richtig verstanden:

Sub copyandpaste()
Dim Zelle As Excel.Range
Dim WB As Excel.Workbook
Set WB = ActiveWorkbook
ActiveSheet.Range("D1:D26").Select

With ActiveSheet
For Each Zelle In Selection
If UCase(Zelle) = "NATRIUM" Then


'erste Tabellenblatt: Zeile wird herauskopiert
Zelle.EntireRow.Columns("E:IV").Select
Selection.Copy
Workbooks("übung.XLS").Activate
ActiveWorkbook.Sheets("Tabelle2").Activate
ActiveSheet.Cells(Zelle.Row, Zelle.Column + 1).Select
ActiveSheet.Paste
WB.Activate


' MsgBox ("Daten wurden herauskopiert!")

Else

' MsgBox ("Keine relavanten Daten!")

End If

Next
End With
Set WB = Nothing
End Sub

Severus

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:



  • 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
12.08.2010 15:39:23 Falk
NotSolved
Blau Aw:Zellenabfrage und Herauskopieren
 18.08.2010 18:42:43 Severus
NotSolved
19.08.2010 09:23:29 falk44
NotSolved
20.08.2010 08:40:00 Severus
NotSolved