MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 11.04.2019, 14:04   #1
Homer_
Neuer Benutzer
Neuer Benutzer
Standard VBA - Wert suchen, bestimmten Bereich kopieren und einfügen

Hallo zusammen,

ich habe schon in einem anderen Thread gepostet. Da dieser aber als erledigt markiert ist, probiere ich es noch mal so.

https://www.ms-office-forum.net/foru...d.php?t=357944

Ich würde gerne in dem Blatt "Daten", in der ersten Zeile einen Wert suchen, den Bereich darunter kopieren und im Blatt "Übersicht einfügen".

Der zu suchende Wert steht im Blatt "Übersicht" in der Zelle "F2".

Ich habe es schon mit dem Code aus dem verlinkten Thread versucht. Dieser kopiert aber bis zur letzten Zeile.

Im Anhang habe ich eine ganz einfache Beispieldatei angehängt.

Vielen Dank im Voraus für die Hilfe und einen schönen Nachmittag
Angehängte Dateien
Dateityp: xlsx Beispiel1.xlsx (8,8 KB, 8x aufgerufen)
Homer_ ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.04.2019, 14:37   #2
Werner.M
MOF User
MOF User
Standard

Hallo,

der Unterschied zwischen Zeile und Spalte ist dir bekannt?
Welchen Wert willst du in der ersten Zeile suchen? In deiner Beispielmappe hast du nur einen Wert in Zeile 1.
Meinst du hier suchen in der ersten Spalte?

Weitere Frage: Was hast du denn erwartet? Dass der Code aus dem anderen Beitrag das tut was du willst, obwohl dein Tabellenaufbau so gar nichts mit dem Tabellenaufbau im anderen Beitrag zu tun hat.

Gruß Werner
Werner.M ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.04.2019, 15:34   #3
Homer_
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Werner,

vielen Dank für deine Antwort.

Bin noch ziemlich neu in diesem Bereich. Ich habe das Datenblatt der Beispielmappe erweitert. Ich möchte im Blatt "Übersicht" einen Begriff eingeben (Zelle F2).

Nun soll im Blatt "Daten", nur in ersten Zeile nach dem eingegebenen Begriff gesucht werden. Darufhin ein definierter Bereich kopiert und eingefügt werden. Der Bereich ist immer gleich groß. Aufbau der Daten ist immer gleich. Eine Verbundene Zelle mit dem zu suchenden Begriff, darunter zwei Spalten mit Werten die kopiert werden sollen.

Ein Beispiel. Es soll nach dem Begriff "Wasser" gesucht werden. Bei einem Treffer, kopiere den Bereich (in diesem Falle) A2:B7 und füge im Blatt "Übersicht" in B3 ein.
Angehängte Dateien
Dateityp: xlsx Beispiel1 (1).xlsx (10,6 KB, 1x aufgerufen)
Homer_ ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.04.2019, 17:32   #4
Werner.M
MOF User
MOF User
Standard

Hallo,

teste mal:
PHP-Code:

Option Explicit

Sub Schaltfläche1_Klicken
()
Dim raFund As RangeAs LongloLetzte As Long
Dim strSuch 
As String

Application
.ScreenUpdating False

strSuch 
Worksheets("Übersicht").Range("F2")

If 
Not strSuch vbNullString Then
    Worksheets
("Übersicht").Range("B3:C8").ClearContents
    With Worksheets
("Daten")
        
loLetzte = .Cells(.Rows.Count1).End(xlUp).Row
        Set raFund 
= .Cells.Find(what:=strSuchLookIn:=xlValueslookat:=xlWhole)
        If 
Not raFund Is Nothing Then
            
For raFund.Row 1 To loLetzte 1
                
If .Cells(iraFund.Column 1) = "" Then
                    
.Range(.Cells(raFund.Row 1raFund.Column), .Cells(1raFund.Column 1)).Copy
                    Worksheets
("Übersicht").Range("B3").PasteSpecial Paste:=xlPasteValues
                    Application
.CutCopyMode False
                    
Exit For
                
End If
            
Next i
        
Else
            
MsgBox "nicht gefunden"
        
End If
    
End With
End 
If
End Sub 
Gruß Werner
Werner.M ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 11.04.2019, 18:58   #5
Homer_
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo Werner,

besten Dank für den Code. Hab getestet und funktioniert wunderbar

Vielen Dank

Nun werde ich mir den Code Stück für Stück angucken um den genau zu verstehen um ihn ggf. zu erweitern (falls mehr Spalten hinzukommen sollten).
Homer_ ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2019, 20:22   #6
Homer_
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo,

Ich bräuchte noch mal Rat.

Ist es möglich nur in verbundenen Zellen zu suchen?

Das iProblem welches ab und an auftritt, ist das in den Spalten unter dem Suchbegriff, dieser nochmals vorkommt.
Homer_ ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 00:21 Uhr.



Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.