Thema Datum  Von Nutzer Rating
Antwort
17.01.2018 11:39:57 Sarah
NotSolved
17.01.2018 11:58:51 Gast95154
NotSolved
17.01.2018 13:04:49 Gast82927
NotSolved
17.01.2018 12:31:24 Andreas
NotSolved
Rot einen Wert finden und dann kopieren
 17.01.2018 12:33:41 Andreas
NotSolved
17.01.2018 13:04:09 Gast31175
NotSolved
19.01.2018 14:58:41 Gast14574
NotSolved

Ansicht des Beitrags:
Von:
Andreas		 Datum:
17.01.2018 12:33:41		 Views:
639		 Rating:
     
Antwort:
  Ja
Thema:
einen Wert finden und dann kopieren

Hallo Sarah,

probiere es doch mal hiermit:

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub Suchen()
Dim M As Variant
Dim i, j, ZeilenTab3 As Integer
 
 
ZeilenTab3 = ActiveWorkbook.Sheets("Tabelle3").Cells(Rows.Count, 1).End(xlUp).Row ' Zählen der beschriebenen Zeilen in Spalte A
i = 1 'Spalte A soll durchsucht werden
 
'Schleifen zum Durchsuchen der Spalte A
For j = 1 To ZeilenTab3
    
    M = Cells(j, i).Value   'Variant-Variable mit Buchstabe aktuellem Zelleninhalt vorbelegen
    
    'Abfrage, ob Variable M den Wert "90" oder "M" enthält
    If M = 90 Or M = "M" Then
        Cells(j, i + 2).Value = Cells(j + 1, i + 1).Value   'Inhalt der nachfolgenden Zeile, Spalte B in die aktuelle Zeile,Spalte C kopieren
    End If
Next
 
End Sub
   

Ich bin jetzt davon ausgegangen, dass du in Spalte A deine A's bzw. 60 und M's bzw. 90 hast.
In Spalte B hast du hinter den A's, die auf ein M folgen eine Zahl stehen
Und in Spalte C willst du in der Reihe der M's diese Zahlen einfügen.

Viel Spaß damit.

Gruß
Andreas

 

PS: Hatte noch einen Codeschnipsel vergessen zu löschen.

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
17.01.2018 11:39:57 Sarah
NotSolved
17.01.2018 11:58:51 Gast95154
NotSolved
17.01.2018 13:04:49 Gast82927
NotSolved
17.01.2018 12:31:24 Andreas
NotSolved
Rot einen Wert finden und dann kopieren
 17.01.2018 12:33:41 Andreas
NotSolved
17.01.2018 13:04:09 Gast31175
NotSolved
19.01.2018 14:58:41 Gast14574
NotSolved