|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 Zellenabfrage und Herauskopieren |
12.08.2010 15:39:23 |
Falk |
|
|
|
18.08.2010 18:42:43 |
Severus |
|
|
|
19.08.2010 09:23:29 |
falk44 |
|
|
|
20.08.2010 08:40:00 |
Severus |
|
|
Von:
Falk |
Datum:
12.08.2010 15:39:23 |
Views:
1896 |
Rating:
|
Antwort:
|
Thema:
Zellenabfrage und Herauskopieren |
Seid gegrüßt...
Ich bin Zahnmedizinstudent und sitze gerade an meiner Dr.-Arbeit und bin nicht gerade excel-bewandert...
Sub copyandpaste()
For Each Zelle In Range("D1:D26")
If (Zelle.Value) = "Natrium" Then
###Zelle.Activate###
Dim positionrow As Integer
Dim positioncolumn As Integer
positionrow = ActiveCell.Row
postitioncolumn = ActiveCell.Column
'erste Tabellenblatt: Zeile wird herauskopiert
Worksheets("Tabelle2").Cells(positionrow, postitioncolumn + 1).Copy
Workbooks("übung.XLS").Activate
Worksheets("Tabelle2").Paste Destination:=Worksheets("Tabelle2").Cells(positionrow, postitioncolumn +1)
' MsgBox ("Daten wurden herauskopiert!")
Else
' MsgBox ("Keine relavanten Daten!")
End If
Next
End Sub
Ich hoffe es ist einigermaßen ersichtlich was ich vorhabe.
Also es geht darum dass ich in der Spalte D (Bsp. D2) verschiedene Stoffe habe. Wenn dann als Stoff Natrium auftaucht soll ab Spalte E (Bsp. E2) bis zum Ende der Tabelle (Bsp. IV2) alles herauskopiert werden. und dann in eine neue Tabelle kopiert werden.
da dieses Natrium natürlich nicht nru einmal vorkommt wollte ich hlt ne reihenabfrage machen, aber irgendwie kriege ich in nicht dazu die Zellen zu aktivieren bzw. die richtigen zellen zu kopieren. Ich habe durchaus gesehen dass ich aktuell nur eine Zelle markiere, da ich mit dem rangebefehl da irgendwie nicht weiterkomme... naja ich hoffe mal ihr könnt mir helfen |
- 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
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- 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
|
Zellenabfrage und Herauskopieren |
12.08.2010 15:39:23 |
Falk |
|
|
|
18.08.2010 18:42:43 |
Severus |
|
|
|
19.08.2010 09:23:29 |
falk44 |
|
|
|
20.08.2010 08:40:00 |
Severus |
|
|