Microsoft Excel

Herbers Excel/VBA-Archiv

Finden und kopieren


Betrifft: Finden und kopieren von: AK
Geschrieben am: 13.09.2019 14:10:49

Hallo Zusammen,

ich hoffe auf Eure Hilfe

Ausgangspostion:



das was gelb markiert ist sollte wenn möglich automatisch in die Zelle Notizen eingetragen werden

Jetzt meine Frage geht sowas mit VBA und wenn ja wie.

Denn ich komme hier nicht wirklich weiter.

Danke für Eure Hilfe im Voraus

  

Betrifft: Warum neuer Beitrag-AK oder AKA ? von: 1712922.html
Geschrieben am: 13.09.2019 14:18:09


  

Betrifft: AW: Warum neuer Beitrag-AK oder AKA ? von: 1712924.html
Geschrieben am: 13.09.2019 14:23:33

sorry habe das K vergessen

  

Betrifft: AW: Warum neuer Beitrag-AK oder AKA ? von: 1712926.html
Geschrieben am: 13.09.2019 14:25:38

habe das A vergessen zu schreiben

  

Betrifft: AW: Finden und kopieren von: 1712957.html
Geschrieben am: 13.09.2019 15:38:13

Hallo

im Prinzip ist dir die Lösung im vorherigen Code gegeben worden, du hast den Code wahrscheinlich nicht verstanden. Hier noch mal mit Erklaerung.
Columns(3) habe ich eingesetzt, weil ich sehe das "Montage Neubau" in Spalte C steht! Sonst musst du die Suchspalte aendern. Zahl 3 ist Spalte 3="C"

Ich gehe davon aus das der/die gefundene Name/n nach oben in Zeile 2 gesetzt werden sollen.
Deshalb die Variante - Cells(z, "G").Value = Cells(Suche.Row, "F").Value
Dabei ist "G" die Zielspalte wo der Name notiert wird, und "F" die Quellspalte wo er gefunden wurde.
Sollten es andere Spalten sein kannst du den Code Aufbau jetzt sicher verstehen und selbst aendern!

mfg Piet

Sub Neubau_suchen()
   Dim Suche As Range, z As intger
   Dim ErsteSuche As String
   z = 2  '1. Zeile in Spalte Notizen
   'Suche in Spalte C nach "Montage Neubau"
   Set Suche = Columns(3).Find(what:="Montage Neubau", Loolat:=xlWhole)
   'Do Loop wenn "Montage Neubau" gefunden wurde
   If Not Suche Is Nothing Then
      ErsteSuche = Suche.Adress  'First Adressee merken!
      Do
         'Notiere alle Namen aus Spalte F in Notizen Spalte G
         Cells(z, "G").Value = Cells(Suche.Row, "F").Value
         z = z + 1   'Next Zeil für Notizen
         Set Suche = Columns(3).FindNext(Suche)
   
      Loop While Suche.Adress <> ErsteSuche
   End If
   End Sub
   

  

Betrifft: AW: Finden und kopieren von: 1713235.html
Geschrieben am: 16.09.2019 08:02:38

Hallo Zusammen,

Sub Neubau_suchen() (wird gelb markiert und eine Fehlermeldung erscheint)
                           (Fehler beim Kompilieren: Benutzerdefinierter Typ nicht definiert)

Dim Suche As Range, z As intger
Dim ErsteSuche As String
z = 2  '1. Zeile in Spalte Notizen
'Suche in Spalte C nach "Montage Neubau"
Set Suche = Columns(3).Find(what:="Montage Neubau", Loolat:=xlWhole)
'Do Loop wenn "Montage Neubau" gefunden wurde
If Not Suche Is Nothing Then
   ErsteSuche = Suche.Adress  'First Adressee merken!
   Do
      'Notiere alle Namen aus Spalte F in Notizen Spalte G
      Cells(z, "G").Value = Cells(Suche.Row, "F").Value
      z = z + 1   'Next Zeil für Notizen
      Set Suche = Columns(3).FindNext(Suche)

   Loop While Suche.Adress <> ErsteSuche
End If
End Sub

  

Betrifft: AW: Finden und kopieren von: 1713246.html
Geschrieben am: 16.09.2019 08:51:13

So den Ersten Fehler konnte ich finden, doch jetzt tut sich eine weitere Hirde auf.
Kann jemand helfen bitte.

vielen Dank AKA

Sub Neubau_suchen()
  Dim Suche As Range, z As integer
  Dim ErsteSuche As String
  z = 2  '1. Zeile in Spalte Notizen
  'Suche in Spalte C nach "Montage Neubau"
  Set Suche = Columns(3).Find(what:="Montage Neubau", Loolat:=xlWhole)( Jetzt steht dies  _
 in Rot/ Fehler beim Kompilieren: Syntaxfehler) ((Warum?? Verzweifel))
 
  'Do Loop wenn "Montage Neubau" gefunden wurde
  If Not Suche Is Nothing Then
     ErsteSuche = Suche.Adress  'First Adressee merken!
     Do
        'Notiere alle Namen aus Spalte F in Notizen Spalte G
        Cells(z, "G").Value = Cells(Suche.Row, "F").Value
        z = z + 1   'Next Zeil für Notizen
        Set Suche = Columns(3).FindNext(Suche)
  
     Loop While Suche.Adress <> ErsteSuche
  End If
  End Sub

  

Betrifft: AW: Finden und kopieren von: 1713305.html
Geschrieben am: 16.09.2019 14:09:26

Hallo AKA,

siehst du den Rechtschreibfehler nicht?

 Set Suche = Columns(3).Find(what:="Montage Neubau", Loolat:=xlWhole)

tausche das l durch k aus, dann sollte zumindest der Fehler weg sein.

Gruß Pierre
  

Betrifft: AW: Finden und kopieren von: 1713297.html
Geschrieben am: 16.09.2019 13:30:06

Hallo

Sorry das ich mich jetzt erst melde. Hatte bis jetzt kein Internet! (Kabelschaden??) Schade das sich kein Kollege den Thread angesehen hat.
Es waren nur zwei dumme Schreibfehler. Jetzt sollt es klappen. Wenn ja bitte den Thread schliessen.

mfg Piet

Sub Neubau_suchen()
  Dim Suche As Range, z As Integer
  Dim ErsteSuche As String
  z = 2  '1. Zeile in Spalte Notizen
  'suche in Spalte B nach "Montage Neubau"
  Set Suche = Columns(2).Find(What:="Montage Neubau", LookAt:=xlWhole)
  'Do Loop wenn "Montage Neubau" gefundeen wurde
  If Not Suche Is Nothing Then
     ErsteSuche = Suche.Address  'First Adressee merken!
     Do
        'Notiere alle Namen aus Spalte F in Notizen Spalte G
        Cells(z, "G").Value = Cells(Suche.Row, "F").Value
        z = z + 1   'Next Zeil für Notizen
        Set Suche = Columns(2).FindNext(Suche)
  
     Loop While Suche.Address <> ErsteSuche
  End If
  End Sub
  

  

Betrifft: AW: Finden und kopieren von: 1713389.html
Geschrieben am: 17.09.2019 07:52:58

Guten Morgen,

habe den Code angepast in Excel funktioniert er super, aber leider nicht in MS Project.

BeiDim Suche A Range, z As Interger gibt er den Fehler: Fehler beim Komilieren: Benutzerdefinierter Typ nicht definiert

  

Betrifft: AW: Finden und kopieren von: 1713438.html
Geschrieben am: 17.09.2019 11:31:38

Hallo

ersetzte bitte mal DIM Interger durch - Integer - dann sollt s klappen.

mfg Piet

Beiträge aus dem Excel-Forum zum Thema "Finden und kopieren"