Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

suchen und kopieren

suchen und kopieren
07.10.2002 10:16:42
andre06
Hallo guten Morgen!
kann mir jemand einen Tip geben,
ich habe eine Tabelle mit aktuellen Projekten. In Spalte "K" kann man den Projektstatus mit ja oder nein auswählen. Nun möchte ich ,je nach dem welche Auswahl getroffen wurde "Ja" oder "Nein" ,die jeweilige Zeile löschen und in das jeweilige "nicht erteilt" oder "erteilt" Tabellenblatt eintragen.

mfG Andre

17
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: suchen und kopieren
07.10.2002 10:24:06
Ralf Sögel
Willst du die Zeile oder nur den Inhalt löschen?
Re: suchen und kopieren
07.10.2002 10:27:14
andre06
nur den Inhalt und dieser soll in die nächste freie Zeile in das Tabellenblatt eingefügt werden!

mfG Andre

Re: suchen und kopieren
07.10.2002 10:40:10
Ralf Sögel
Option Explicit
Sub übertragen()
Dim Z As Long, lZ As Long
lZ = [k65536].End(xlUp).Row
For Z = 1 To lZ
If UCase(Cells(Z, 11)) = "JA" Then
Sheets("erteilt").[a65536].End(xlUp).Offset(1, 0) = Cells(Z, 11)
Else
Sheets("nicht erteilt").[a65536].End(xlUp).Offset(1, 0) = Cells(Z, 11)
End If
Cells(Z, 11).ClearContents
Next
End Sub
Re: suchen und kopieren
07.10.2002 10:53:07
andre06
funktioniert nicht bekomme Fehlermeldung "kann Teil einer verbundenen Zelle nicht ändern" Cells(Z, 11).ClearContents
Anzeige
Re: suchen und kopieren
07.10.2002 10:58:39
Ralf Sögel
Davon hast du nichts erwähnt, dass da verbundene Zellen vorhanden sind. Verbundenen Zellen sind der natürliche Feind der VBA- Programmierung, deshalb blende ich mich da jetzt aus.
Re: suchen und kopieren
07.10.2002 11:02:37
andre06
Sorry,
Die verbundenen Zellen Sind nur Teil der Überschrift! die Daten beginnen erst ab Zeile 4.

mfG André

Re: suchen und kopieren
07.10.2002 11:06:59
Boris
Hallo André,

dann lass die For-Next-Schleife erst ab 4 beginnen:

For Z = 4 to IZ
usw.

Gruß Boris

Re: suchen und kopieren
07.10.2002 11:11:48
andre06
Hi,Danke es wird aber nur eine Zelle z.B. K4 übertragen und nicht die ganze Zeile
Re: suchen und kopieren
07.10.2002 11:31:25
Ralf Sögel
Option Explicit
Sub übertragen()
Dim Z As Long, lZ As Long
lZ = [k65536].End(xlUp).Row
For Z = 4 To lZ
If UCase(Cells(Z, 11)) = "JA" Then
Rows(Z).Copy Sheets("erteilt").[a65536].End(xlUp).Offset(1, 0)
Else
Rows(Z).Copy Sheets("nicht erteilt").[a65536].End(xlUp).Offset(1, 0)
End If
Cells(Z, 11).ClearContents
Next
End Sub
Anzeige
Re: suchen und kopieren
07.10.2002 11:37:43
andre06
Sorry wenn ich nerve ,
aber jetzt wird Der Zellinhalt im Orginal nicht entfernt und wie starte ich das Makro sobald eine Auswahl erfolgt?

mfG Andre

Re: suchen und kopieren
07.10.2002 12:32:47
Ralf Sögel
Hä, kann ich nicht nachvollziehen. Der Code muss in Tabelle1 ausgeführt werden. ansonsten muss anders referenziert werden.
Automatisch bei Auswahl oder Änderung? SelectionChange oder Change- Ereignis.
Re: suchen und kopieren
07.10.2002 12:33:00
Ralf Sögel
Hä, kann ich nicht nachvollziehen. Der Code muss in Tabelle1 ausgeführt werden. ansonsten muss anders referenziert werden.
Automatisch bei Auswahl oder Änderung? SelectionChange oder Change- Ereignis.
Re: suchen und kopieren
07.10.2002 12:38:25
andre06
Die Tabellenblätter haben unterschiedliche Namen z.B."Richter"
und das Makro soll bei Auswahl ausgeführt werden!

mfG André

Anzeige
Re: suchen und kopieren
07.10.2002 12:40:09
Ralf Sögel
Musst halt die Namen im Code ändern, Aufruf siehe leztes posting.
Re: suchen und kopieren
07.10.2002 12:43:58
andre06
sorry ,ich Anfänger und wo?
Re: suchen und kopieren
07.10.2002 14:12:03
Ralf Sögel
Du wirst doch wohl erkenne, wo im Code ein Blattname steht?
Ich muss jetzt weg, sorry.
Re: suchen und kopieren
07.10.2002 15:12:37
andre06
OK, das funktioniert aber es wird nur die aktuelle Spalte "11" kopiert und nicht die ganze Zeile! Was muß ich da noch ändern?

mfG André

303 Forumthreads zu ähnlichen Themen

String suchen und kopieren
Daniel

Hallo,
ich bin ein VBA Neuling und der Makroaufzeichner bringt mich nicht weiter, da dieser immer selectiert und aktiviert.
Ich brauche ein etwas allgemeineren Code.
Ok was ich habe sind folgende Inputdaten:
.............A......B.........C.............D
1
2............
12.08.2008 14:55:00
Thread-ID: 1001221
9 Beiträge
Anzeige
Zeile kopieren wenn wert in Zelle
Andreas

hallo zusammen
in der recherche habe ich diesen code gefunden. da ich jedoch alle zeilen bei welchen in der zelle der spalte h ein "x" steht in ein anderes tabellenblatt kopieren möchte muss ich den code anpassen. nun weiss ich leider nicht was ich verändern muss. wäre super, wenn mir das j...
07.09.2008 20:32:00
Thread-ID: 1008007
3 Beiträge
Zeile suchen und löschen bzw kopieren
Henner

Hallo VBAler,
ich möchte in einer Tabelle in der Spalte A einen Wert bzw. einen Text suchen, wenn der Wert gefunden wird, soll die komplette Zeile gelöscht werden. Wird der Wert nicht gefunden, soll eine MsgBox erscheinen. Dann brauche ich den Code nochmal, in dem allerdings nicht die Zeile...
10.09.2008 16:56:00
Thread-ID: 1008851
5 Beiträge
Anzeige
Texte aus verschiedenen Registerblättern kopieren
zehetner

Nochmal meine Bitte um Hilfe - ich komm nicht weiter:
Wie kann ich - automatisiert, da viele Registerblätter - die Textinhalte einer bestimmten Zelle, die in jedem Registerblatt gleich ist - in eine neue Tabelle untereinander kopieren.
Vielen Dank nochmals
22.09.2008 05:54:07
Thread-ID: 1011369
2 Beiträge
Text (Datum) aus Zeile mit Zeilenbruch auslesen
Iro

Hallo,
ih habe folgendes Problem: ich muss aus einem vorgegebenen Sheet einen bestimmten Zinssatz zu einem bestimmten (Jahr / Monat) auslesen.
1. Problem: das vorgegebene, gesuchte Datum hat das Format TT.MM.JJJJ, das andere Datum, mit dem ich es vergleichen muss wird mit "Monat Jahr"....
01.10.2008 23:00:06
Thread-ID: 1013778
4 Beiträge
Text aus einer Zelle in ein anderes Tabellenblatt
grigolet

Hallo,
ich erstelle gerade eine Arbeitsmappe in der auf verschiedenen Tabellenblättern die gleichen Namen erscheinen sollen (aus dem Blatt 'Verhandlungsergebnis' sollen die Personendaten der Beteiligten in ein erstelltes Vertragsformular übernommen werden). Ich habe das z.B. mit = gelöst. J...
09.10.2008 11:24:26
Thread-ID: 1015295
2 Beiträge
Filtern, gefilterte Daten benutzen, Suchen und Aus
Merle


Hallo alle zusammen,
ich habe ein mittelschweres Problem. Und zwar habe ich hier ein Beispiel:
https://www.herber.de/bbs/user/55986.xls
In 'Tabelle1' sind ganz viele verschiedene Waren (C17:57) hinterlegt. Ich möchte nun, wenn ich eine dieser Waren rausfilter z.B H025, dass da...
13.10.2008 15:48:00
Thread-ID: 1016087
3 Beiträge
Daten aus Sheet suchen und in Zelle schreiben
Robert

Hallo Excel Profis!
Ich stehe mal wieder als VBA Laie vor einem riesen Berg.
Ich habe auf "Sheet 2" eine Liste mit Quartalsdaten.
Ich suche eine Möglichkeit, wie Excel nun in diesem Sheet nach den jeweils passenden Daten eines
Quartals sucht und diese dann auf "Sheet 1" überträg...
20.11.2008 12:36:00
Thread-ID: 1026379
9 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
8
3
2
4
1
1
3
1
2
8
2
3
15
22
5
7
6
8
2
1
3
1
4
2
5