Das Archiv des Excel-Forums

Wert abfrage - Zellen kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Wert abfrage - Zellen kopieren
von: Wolfgang

Geschrieben am: 19.09.2003 16:58:38


Hallo

hätte folgendes Problem:

es soll in einer Spalte nach dem wert 1 gesucht werden - ist er vorhanden - sollen verschiedene Zellen in einer Zeile auf einem neuen Blatt kopiert werden.

-in jeder Spalte sind 59 Zeilen, vobei erst ab zeile 3 gesucht werden soll
-es sind 200 Spalten...

ein Beispiel:
A B
1 TE 130 ...
2 ZE 001
3 100 1
4 101 1
5 102 0
6 103 1
7 104 0
8 105 1
9 106 1
.
.
wenn nun in Spalte B3 eine 1 ist, dann soll B1 + B2 + A3 in eine Zeile einer Neuen Tabelle kopiert werden, und so weiter bis B59

ich hoffe jemand kann mir helfen...

vorab vielen Dank

Wolfgang
Bild


Betrifft: Eigentlich kein Problem...
von: Ramses
Geschrieben am: 19.09.2003 18:39:30

Hallo,

... wenn du das etwas besser erklärst:

Willst du nur in einer Spalte suchen
oder soll der Suchbegriff in allen Spalten gesucht werden

Wenn der Wert in B43 gefunden wird soll, welche Zellen sollen dann kopiert werden ?

Wenn du in allen Spalten suchen willst, welche Zellen sollen dann kopiert werden ?

Gruss Rainer


Bild


Betrifft: AW: Eigentlich kein Problem...
von: Wolfgang
Geschrieben am: 19.09.2003 18:54:00

hallo Ramses

melde mich erst jetzt weil ich leider keine Mitteilung erhalten habe ...

also zu

Es soll in einer Spalte und zwar beginnend bei B3 bis B59 und jedesmal wenn der Wert 1 gefunden wird sollen folgende Zellen B1 und B2 sowie Ax in ein vorhandenes Tabellenblatt in die nächste freie Zeile kopiert werden

wenn in B43 der Wert gefunden wird sollen die Zellen B1,B2 und A43 kopiert werden

wenn bei B59 angekommen nächste Spalte also C3 bis C59
wenn nun in C43 der Wert gefunden wird sollen die Zellen C1,C2 und A43 kopiert werde

ich hoffe es ist verständlich...

vielen Dank für Deine Hilfe vorab...

Wolfgang


Bild


Betrifft: Dann sollte es so gehen...
von: Ramses
Geschrieben am: 19.09.2003 19:25:38

Hallo


Option Explicit

Sub Find_Value()
Dim Cr As Long, Cc As Integer, myRange As Range, myC As Range
Dim fStr As Variant, wks As String
Set myRange = Range("B3:D22") 'Bitte anpassen
wks = "Tabelle2" 'Dort wo die Werte hinkopiert werden sollen
fStr = InputBox("Bitte Suchbegriff eingeben:", "Suche starten", "a")
If IsEmpty(fStr) Or fStr = "" Then
    MsgBox ("Kein Suchbegriff erkannt. Makro wird abgebrochen")
    Exit Sub
End If
'Bildschirmaktualisierung ausschalten
'Application.ScreenUpdating = False
For Each myC In myRange
    If myC.Value = fStr Then
        Worksheets(wks).Cells(Worksheets(wks).Cells(65536, 1).End(xlUp).Row + 1, 1) = myC.Address
        Worksheets(wks).Cells(Worksheets(wks).Cells(65536, 1).End(xlUp).Row, 2) = _
            Cells(1, myC.Column).Value
        Worksheets(wks).Cells(Worksheets(wks).Cells(65536, 1).End(xlUp).Row, 3) = _
            Cells(2, myC.Column).Value
        Worksheets(wks).Cells(Worksheets(wks).Cells(65536, 1).End(xlUp).Row, 4) = _
            Cells(myC.Row, 1).Value
    End If
Next
Worksheets(wks).Activate
Worksheets(wks).UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
Columns("A:A").Delete
'Application.Screenupdating = True
End Sub 
     Code eingefügt mit Syntaxhighlighter 1.16



Gruss Rainer


Bild


Betrifft: AW: Dann sollte es so gehen...
von: Wolfgang
Geschrieben am: 19.09.2003 19:50:04

Danke für die schnelle Antwort

Set myRange = Range("B3:D22") 'Bitte anpassen
gebe ich hier den Bereich der 1.Spalte an also B3:B59 oder den Bereich B3 bis IO59

wenn ich B3:B59 nehme und starte läuft das Makro bis hier

Worksheets(wks).UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

dabei kommt 1004

es wird aber auch nichts in die neue Tabelle eingetragen...

bitte helfe mir weiter ...

Anmerkung würde es Dir helfen wenn ich Dir die Mappe schicke ??


Bild


Betrifft: AW: Dann sollte es so gehen...
von: Ramses
Geschrieben am: 19.09.2003 19:58:33

Hallo

"Set myRange = Range("B3:D22") 'Bitte anpassen
gebe ich hier den Bereich der 1.Spalte an also B3:B59 oder den Bereich B3 bis IO59"

Ich denke ich habe das klar geschrieben, ... oder habe ich nur eine Spalte angegeben :-)
natürlich den ganzen Bereich der durchsucht werden soll

"...dabei kommt 1004..."

Hast du den Namen der Tabelle angepasst, wohin das kopiert werden soll ?

wks = "Tabelle2" 'Dort wo die Werte hinkopiert werden sollen


"...es wird aber auch nichts in die neue Tabelle eingetragen..."

Das Makro habe ich getestet und es funktioniert


"...Anmerkung würde es Dir helfen wenn ich Dir die Mappe schicke ??...."

Mache ich prinzipiell nicht. Wer weiss was ich da alles kriege :-)

Hier eine Beispieldatei

https://www.herber.de/bbs/user/1092.xls


Gruss Rainer


Bild


Betrifft: AW: Dann sollte es so gehen...
von: Wolfgang
Geschrieben am: 19.09.2003 20:38:17


erstmal DANKE

wollte Dir nicht zu nahe treten finde es ja toll das Du mir hilfst...
habe nur zur Sicherheit nachgefragt...
---------------------------------------------------------------------

also auch wenn ich das angegebene Beispiel herunterlade und ausführe
bekomme ich folgende Meldung: "Fehler beim kompilieren - Variable nicht deklariert"

und im VBA-Editor ist in folgender Anweisung folgendes: xlSortNormal markiert

Worksheets(wks).UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal

was ist den los...


Bild


Betrifft: AW: Dann sollte es so gehen...
von: Ramses
Geschrieben am: 19.09.2003 20:48:16

Hallo

das mag XP-Spezifisch sein :-)
Kommentiere es einfach aus oder lösche es, dass die letzten Zeilen so aussehen

Worksheets(wks).UsedRange.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:= _
xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Columns("A:A").Delete

Gruss Rainer


Bild


Betrifft: ES Funktioniert...
von: Wolfgang
Geschrieben am: 19.09.2003 22:17:10


ja, ja habs jetzt bei meinem Orginal ausprobiert -ES KLAPPT-

es wurden 6477 zeilen erstellt - gut das Du mir geholfen hast -

DANKE


Bild


Betrifft: Merci für's Feedback :-) o.T
von: Ramses
Geschrieben am: 19.09.2003 22:23:43

...


 Bild

Excel-Beispiele zum Thema " Wert abfrage - Zellen kopieren"

Unterdrückung von Sicherheitsabfragen download Arbeitsmappe-Schließen-Abfrage abfangen download
Name der aufrufenden Schaltfläche abfragen download Abfrage der markierten Spalten download
Anzahl der einzufügenden Zeilen abfragen download Programmabbruch bei Überspeichernabfrage verhindern download
Abfrage, ob ein Menü in einer Menüleiste vorhanden ist download Web-Abfrage ohne *.iqy-Datei download
Web-Aktienkursabfrage bei YAHOO download Start- und Enddatum abfragen und markieren download
Abfrage, ob 16- oder 32-Bit-System download Abfrage von Rechenaufgaben zeitgesteuert nach dem Zufallsprizip download
Paßwortabfrage download Passwort vergeben und bei CheckBox-Aktivität abfragen download
Sicherheitsabfrage, bevor Befehl ausgeführt wird download Werte von CheckBoxes in einer UserForm abfragen download
Speichernabfrage beim Schließen der Arbeitsmappe download Mit InputBoxes Zeilennummern abfragen und Summe bilden download
Paßwortabfrage mit UserForm download Suchbegriff über InputBox abfragen und Fundzeile löschen download
Druckstart- und endzeilen über InputBox abfragen download Abfrage zum Kopierbereich von Startzelle, Zeilen- und Spaltenanzahl download
Beim Öffnen der Arbeitsmappe Passwort abfragen download Passwortabfrage mit ShortCut-Aufruf download
Suchbegriff abfragen und Fundzeile in UserForm-TextBoxes download Suchbegriff abfragen und Fundzeile markieren download
Abfrage der Auswahl aus einem Gültigkeits-Listenfeld download DNS und IP abfragen download
Abfrage vor Start- und Enddatum eines zu druckenden Bereiches download Zeit über InputBox abfragen, dividieren und zurückgeben download
Autofilterkriterium abfragen und filtern download Ergebnis einer WebAbfrage in neue Arbeitsmappe download
Webabfrage periodisch aktualisieren und Ergebnisse speichern download Webabfrage über ein Perl-Script download
Webabfrage in formatierter Tabelle download Masterlistsystem mit Passwortabfrage bei Blattauswahl download
Paßwortabfrage beim Öffnen der Arbeitsmappe download Makros in Abhängigkeit vom Zellennamen aufrufen download
Zellen auf Kommentar überprüfen download Spalten bedingt summieren und Zellen formatieren download
Text aus Textbox in Zellen aufteilen download Zellen vergleichen und markieren download
Zählen formatierter Zellen download Daten aus Textdatei gezielt in Zellen übernehmen download
Zellen verbinden und trennen download Zellen bei Minuswerten schraffieren download
Zeilen oberhalb der markierten Zellen einfügen download Drei Zellen rechts der aktiven Zelle markieren download
Zellen vom Druck ausschließen download Zellenwert als Autofilter-Kriterienwert download
Nur Zellen mit Inhalt in ComboBox listen download Verweise auf Zellen in geschlossener Arbeitsmappe erstellen download
Zellen nach Schriftfarbe summieren download Füllen aller leeren Zellen mit einem Platzhalter download
Alle Zellen mit der #BEZUG!-Fehlermeldung auswählen download Zeilen mit Zellen mit rotem Hintergrund ausblenden download
Anzahl der gelb hinterlegten Zellen ermitteln download Editieren von Zellen durch DoppelKlick verhindern download
Nach Eingabe eines Kurzbegriffes Werte in Nebenzellen eintragen download Auswahl aus Tabellenblatt-ListBox in Zellen übernehmen download
Anzahl von Zellen mit einer bestimmten Hintergrundfarbe ermitteln download Werte in Zellen mit vorgegebener Hintergrundfarbe addieren download
Prüfung, ob Parallelzellen übereinstimmen download Zellen verbinden, mehrzeiligen Text eingeben und Höhe anpasssen download
Kofpzeilenwerte angekreuzter Zellen multiplizieren download Zellen über Tabellenblatt-Schaltfläche multiplizieren download
Wert aus A1 in mehrere Zellen übernehmen download Zellen für Eintrag auswählen und UserForm-ListBox aufrufen download
Alle Zellen in Spalte A ohne Eintrag gelb hinterlegen download Nur sichtbare Zellen addieren download
Zellinhalte vor dem Verbinden der Zellen zusammenfassen download Blatt auswählen und Zellen nacheinander drucken download
Leere und Zellen mit 0 aus-/einblenden download Zugriff auf Zellen unter Verwendung eines Bereichsnamens download
Nur die sichtbaren Zellen eines AutoFilter-Bereiches einlesen download Zellen mit Hintergrundfarbe in neuer Arbeitsmappe auflisten download
Eingaben in Abhängigkeit von dritten Zellen zulassen/verhindern download Prüfung, welche Zellen nach Öffnen verändert wurden download
Arbeitsmappe nach Ausfüllen der Eingabezellen auf ReadOnly setzen download Nur sichtbare Zellen in anderes Arbeitsblatt kopieren download
Zeilenhöhe bei verbundenen Zellen anpassen download Einfügen von Zeilen vor und nach Zellen mit Fettdruck download
Bei Zelleingabe andere Zellen füllen download Dialogaufruf, wenn zwei Zellen Werte enthalten download
Gültigkeitsliste ohne Lerrzellen download Menüpunkt "Zellen einfügen..." im Kontextmenü deaktivieren download
Zellen verbinden, ohne dass Werte verlorengehen download Blätter in andere Arbeitsmappen kopieren download
Module von Mappe zu Mappe kopieren download Arbeitsblatt 40 mal kopieren download
Schriftgröße beim Kopieren verdoppeln download Beim Kopieren auch die Zeilenhöhe und Spaltenbreite übernehmen download
Tabellencode nach Kopieren des Blattes löschen download Arbeitsmappe blitzschnell kopieren download
VBE-Namen der Blattmodule beim Kopieren festlegen download Blattinhalt von einer zur anderen Arbeitsmappe kopieren download
Formel bis zur letzten Zeile der Nebenspalte kopieren download Datei kopieren, wenn noch nicht vorhanden download
Zeilenweise von Blatt zu Blatt kopieren download Erste Druckseite in eine neue Arbeitsmappe kopieren download
Durch DoppelKlick Spalte in zweites Arbeitsblatt kopieren download Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren download
Bei Eintrag in Spalte A aktuelle Zeile kopieren download Filtern und Kopieren download
Zeile mit aktiver Zelle in anderes Blatt kopieren download Zeilen in Abhängigkeit des Wertes in Spalte A kopieren download
Einen von einer Schlüsselziffer abhängigen Bereich kopieren download Vorgegebene Anzahl von Einträgen in 2. Blatt kopieren download
Über InputBox festzulegenden Bereich kopieren download Passwortgeschützte Mappe öffnen, Daten kopieren, schliessen download
Tabellenblatt kopieren und dreistellig fortlaufend numerieren download Jede zweite Zelle kopieren download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Gruppe von Optionsfeldern kopieren und Makro zuweisen download
Nicht zusammenhängenden Bereich in nächste Zeile kopieren download Wert aus UserForm-TextBox suchen und Fundstelle kopieren download
Zeile in Abhängigkeit zur Eingabe in Blätter kopieren download Werte prüfen und kopieren download
Bei Eintrag von X Zeile in andere Tabelle kopieren download Daten kopieren wenn kein Datum oder Datum > Heute download
Blattinhalte dreier Blätter in neues Blatt kopieren download Kopieren und Umbenennen eines Blattes download
Nur Zeilen mit bestimmtem Inhalt kopieren download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Bild in zweites Blatt an gleiche Position kopieren download Alle Zeilen ohne Wert in vorgegebener Spalte kopieren download
Bei Eintrag Zeile in 2. Blatt kopieren und Tabellen sortieren download Bildergruppe in anderes Blatt kopieren download
Bei Eingabe Formel in der Nebenspalte nach unten kopieren download Auswahl in andere Arbeitsmappe kopieren, speichern, schließen download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Aktive Zeile kopieren und löschen download
Datensätze, die öfter als 3 mal vorkommen, kopieren download Den jeweils darüberliegenden Wert in Leerzellen kopieren download
Alle Zeilen mit einem Suchbegriff in nächstes Blatt kopieren download Dateien listen und Blätter in neue Arbeitsmappe kopieren download