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 15.04.2019, 21:00   #1
Homer_
Neuer Benutzer
Neuer Benutzer
Standard VBA - Werte nur in verbundenen Zellen suchen

Hallo,*

Ich bräuchte noch mal Rat zu meinem bereits geschlossenen Thema.

https://www.ms-office-forum.net/foru...01&postcount=1

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

Das Problem welches ab und an auftritt, ist das in den Spalten unter dem Suchbegriff, dieser nochmals vorkommt. Das führt dazu, dass beim Kopieren und Einfügen ziemlicher Murks rauskommt.

Grüße
Homer_ ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 15.04.2019, 22:48   #2
Flotter Feger
MOF Profi
MOF Profi
Standard

Hallo,

Zitat:

Das führt dazu, dass beim Kopieren und Einfügen ziemlicher Murks rauskommt.

Wundert mich mich nicht wirklich ... verbundene Zellen sind immer murks. Die haben in einer Excel-Tabelle nichts ... aber auch gar nichts ... zu suchen.

Leider geht dann alles völlig problemlos ... natürlich auch wieder langweilig ...

__________________

VG Sabina

Wer auch weiter Hilfe erwartet, sollte sich nicht zu schade sein, ein kurzes Feedback zu geben.
War der Post für dich hilfreich, darf er von dir auch gerne positiv bewertet werden.
bei mir läuft Win 7 32-Bit - Office 2010 Pro Plus 32-Bit und Office 2016 Pro Plus 32-Bit
Flotter Feger ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2019, 03:15   #3
Luschi
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Homer_,

natürlich gehören verbundene Zellen zu Excel wie Kreuzspinnen & Schleimschnecken zur Natur; und ich mag diese Konstrukte auch, denn in Vba kann man ganz gut damit umgehen.
Aber die die Aufgabenstellung aus dem Link ist mir unklar. Du willst doch sicher nicht, daß nach verbundenen Zellen, in denen 'Tab1' steht, gesucht wird, sondern sicher die Zahlen darunter ermitteln - ODER???

Gruß von Luschi
aus klein-Paris
Luschi ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2019, 06:28   #4
Homer_
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Guten Morgen,

genau so ist es.

Ich habe noch mal ne Beispieldatei angehängt.

Es der Begriff im Blatt "Übersicht" B6, in dem Blatt "Daten" gesucht werden.

Im Datenblatt befindet sich der Begriff immer in einer verbundenen Zelle.

Wird der Begriff gefunden, sollen die Werte aus den Spalten unter der verbundenen Zelle kopiert und im Blatt "Übersicht" eingefügt werden.

Ich suche in den Daten nach Produkten. In diesem Beispiel Prdoukt1-4.

Es kann vorkommen, dass ein Produkt in einem anderen Verwendung findet.

Beispielsweise wie auch in der Beispielmappe.

Suche ich nach Produkt3 ist alles ok.

Suche ich nach Produkt1 ist murks.

Ist im Beispiel reproduzierbar.

Vielen Dank im Voraus.
Angehängte Dateien
Dateityp: xlsm Beispielmappe Wert nur in verbundenen Zellen suchen.xlsm (24,3 KB, 3x aufgerufen)
Homer_ ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2019, 06:57   #5
lupo1
MOF Koryphäe
MOF Koryphäe
Standard

Hallo Luschi,

in meinen 30 Jahren mit Excel habe ich noch nie welche verwendet.

Die wenigen Male, wo doch, befanden sie sich auf belanglosen "Ausgaben", "Formularen", "Deckblättern", "Raumplänen", ... aber NNNNNIIIIIEEEEEMMMMMAAAAALLLLLSSSSS Daten!

"Spalten unter Suchbegriff" sind automatisch Daten.

Geändert von lupo1 (16.04.2019 um 06:59 Uhr).
lupo1 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2019, 07:35   #6
Fennek11
MOF Profi
MOF Profi
Standard

Hallo,

die Mehrheitsmeinung ist sehr eindeutig, deswegen möchte ich hier das Gegeteil vertreten: Bis auf Sortieren und einige wenige anderen Fragen, kann man recht gut mit verbundenen Zellen arbeiten (und sogar Daten darin recht gut verstecken)

In VBA gibt es Abfragen auf "Range.MergeCell" und Range.MergeCellArea", die man zuerst prüfen muss.

mfg

(deine Datei habe ich nicht geöffnet)
Fennek11 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 16.04.2019, 07:39   #7
hary
MOF Guru
MOF Guru
Standard

Moin
Code:

Sub Test()
Dim rngFind As Range
Dim wksQ As Worksheet, wksZ As Worksheet
Dim firstAddress As String
  Set wksQ = Worksheets("Daten")
  Set wksZ = Worksheets("Übersicht")
    wksZ.Range("B10:G34").ClearContents
With wksQ.Cells
  Set rngFind = .Find(wksZ.Range("B6"), LookIn:=xlFormulas)
    If Not rngFind Is Nothing Then
      firstAddress = rngFind.Address
        Do
          With rngFind
            If .MergeCells Then
              .Offset(2, 0).Resize(25, .MergeArea.Columns.Count).Copy
                wksZ.Range("B10").PasteSpecial (xlValues)
              Exit Do
            End If
          End With
            Set rngFind = .FindNext(rngFind)
       Loop While rngFind.Address <> firstAddress
    End If
End With
Application.CutCopyMode = False
Set wksQ = Nothing
Set wksZ = Nothing
End Sub
gruss hary
hary ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 18.04.2019, 11:14   #8
Homer_
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo hary,

vielen lieben Dank für deine Lösung!
Funktioniert bestens.

Gruß und schöne Ostertage
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:02 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.