Herbers Excel-Forum - das 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:
Userbild
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

Excel-Beispiele zum Thema "Finden und kopieren"
Doppelte Einträge finden und löschen Schaltflächen-Id-Nummer finden und Schaltfläche einfügen
Datensätze wechselseitig bei Nichtauffinden markieren Alle Zellen mit Formeln finden
Blätter in andere Arbeitsmappen kopieren Module von Mappe zu Mappe kopieren
Arbeitsblatt 40 mal kopieren Schriftgröße beim Kopieren verdoppeln
Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen Tabellencode nach Kopieren des Blattes löschen