|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
 einen Wert finden und dann kopieren |
17.01.2018 11:39:57 |
Sarah |
|
|
|
17.01.2018 11:58:51 |
Gast95154 |
|
|
|
17.01.2018 13:04:49 |
Gast82927 |
|
|
|
17.01.2018 12:31:24 |
Andreas |
|
|
|
17.01.2018 12:33:41 |
Andreas |
|
|
|
17.01.2018 13:04:09 |
Gast31175 |
|
|
|
19.01.2018 14:58:41 |
Gast14574 |
|
|
Von:
Sarah |
Datum:
17.01.2018 11:39:57 |
Views:
1022 |
Rating:
|
Antwort:
|
Thema:
einen Wert finden und dann kopieren |
|
Hey ihr lieben VBAler,
folgendes Problem: Ich habe ein Tabellenblatt in dem in einer Spalte die Buchstaben M bzw. für M alternativ auch die 90 und A bzw. für A alternativ die 60 stehen. Die A's haben noch eine weitere Zahl zugeordnet, siehe so:
M 90
A 60; 120
A 60
M 90
A 60; 100
A 60
Jedem M soll nun der Wert von dem A darunter z.B. "120" zugeordnet und dahinter in eine leere Zeile kopiert werden und das für das ganze Tabellenblatt und alle M's:
M 90; ; 120
A 60; 120
Mein Code lautet wie folgt: (Das Problem ist, es passiert NICHTS)
'Sub Suchen()
'Dim M As String
'Dim i As Integer
'Dim j As Integer
'For i = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Column
' For j = 1 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
' If Cells(j, i).Value = M Then
' Selection.Offset(1, 7).Select
' Selection.Copy
' Selection.Offset(-1, 8).Select
' ActiveSheet.Paste
' End If
' Next
'Next
'End Sub
Kann wer helfen??
Liebe Grüße Sarah
|
- 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
|
einen Wert finden und dann kopieren |
17.01.2018 11:39:57 |
Sarah |
|
|
|
17.01.2018 11:58:51 |
Gast95154 |
|
|
|
17.01.2018 13:04:49 |
Gast82927 |
|
|
|
17.01.2018 12:31:24 |
Andreas |
|
|
|
17.01.2018 12:33:41 |
Andreas |
|
|
|
17.01.2018 13:04:09 |
Gast31175 |
|
|
|
19.01.2018 14:58:41 |
Gast14574 |
|
|