Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
18.04.2024 08:16:13
Dynamische Positionsnummerierung
18.04.2024 08:15:33
Seitwärts scrollen - Fenster fixiert
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
640to644
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
640to644
640to644
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wenn bestimmte Anzahl, dann kopieren

Wenn bestimmte Anzahl, dann kopieren
26.07.2005 14:46:21
Josef
Guten Tag zusammen,
ich möchte, sobald in Tabelle2 zum Beispiel in Zeile A10:H10, in H10 mehr als 12 Zahlen oder Buchstaben stehen, sollen die Werte der ganzen Zeile automatisch in die Tabelle1 ab Zeile A10 kopiert werden. Nach dem übertragen sollen die Werte in Tabelle2 (A10:H10) gelöscht werden. Es stehen keine Formeln in Tabelle2. Der ges. Bereich ist A10:H100 in beiden TB.
Kann mir dabei bitte jemand helfen?
Vielen Dank schon mal
Gruß Josef

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wenn bestimmte Anzahl, dann kopieren
26.07.2005 14:49:58
MichaV
Hi,
an die gleiche Stelle in Tabelle1 kopiert oder ans Ende von Tabelle 1 angefügt?
Gruss- Micha
AW: Wenn bestimmte Anzahl, dann kopieren
26.07.2005 15:30:20
Josef
Hallo Micha,
die kopierten Zeilen, sollen in Tabelle1 ab der Zeile A10, in die jeweils nächste freie Zeile kopiert werden.
Gruß Josef
AW: Wenn bestimmte Anzahl, dann kopieren
26.07.2005 23:40:00
MichaV
Hallo Josef,
so okay?
Code gehört ins Tabelle2-Modul.


      
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iZeile As Long
'wenn Eingabe nicht in Zellen h10 bis h100, dann raus
If Intersect(Target, Range("h10:h100")) Is Nothing Then Exit Sub
'wenn Eingabe nicht mehr als 12 Zeichen dann raus
If Not Len(Intersect(Target, Range("h10:h100"))) > 12 Then Exit Sub
With Sheets("Tabelle1")
  'nächste freie Zeile in Tabelle1 ab Zeile 100 aufwärts in Spalte H suchen
  If .Range("h100") <> "" Then Exit Sub     'Raus, Zeile 100 beschrieben
                                            '("Der ges. Bereich ist nxx:n100 in beiden TB")
  iZeile = .Range("h100").End(xlUp).Row + 1 'letzte leere Zelle über Zelle H100
  If iZeile < 10 Then iZeile = 10           '("Der ges. Bereich ist n10:nxx in beiden TB")
  
  'Kopieren
  Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).Copy .Range(.Cells(iZeile, 1), .Cells(iZeile, 8))
  'Löschen
  Range(Cells(Target.Row, 1), Cells(Target.Row, 8)).ClearContents
End With
End Sub 


Gruß- Micha
PS: Rückmeldung wäre nett.
Anzeige
AW: Wenn bestimmte Anzahl, dann kopieren
27.07.2005 16:12:42
Josef
Hallo Micha,
entschuldige bitte das ich jetzt erst antworte, aber ich bin erst vor einer Stunde
wieder hier im Büro angekommen.
Micha, ich hatte vergessen Dir mitzuteilen, dass im Modul der Tabelle2 schon das unten stehende Makro vorhanden ist.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a10:a100")) Is Nothing Or Target = "" Then Exit Sub
Cells(Target.Row, 9) = "601000-"
Cells(Target.Row, 9).Select
Application.SendKeys ("{F2}")
End Sub

Diese beiden Makros, meckern natürlich heftig, z.B. mit Laufzeitfehler 13 u.a. und arbeiten demzufolge beide nicht mehr.
Micha, vieleicht kannst Du mit Deinen Zauberhänden die beiden Makros zum arbeiten bringen.
Vielen Dank schon mal
Gruß Josef
Anzeige
Problem gelöst!
28.07.2005 13:23:16
Josef
Hallo Micha,
habe Dein Makro etwas angepasst und nun läuft es.
Danke nochmal für Deine Arbeit und Deine Geduld.
Gruß Josef
AW: Problem gelöst!
28.07.2005 13:27:02
MichaV
Hallo,
aaach Josef, tut mir leid! Hab Dich ganz vergessen.
Hatte gestern abend eine plötzliche Müdigkeitsattacke und bin mal ohne Excel ins Bett :Þ
Na fein, daß es nun läuft. Ich denke, Du hast ein Application.EnableEvents=False eingebaut.
Gruss- Micha
AW: Problem gelöst!
28.07.2005 14:06:39
Josef
Hallo Micha,
genau dieses, (Application.EnableEvents=False) habe ich mir innerhalb von vier Stunden zusammen gebastelt!!
Anklage wegen unterlassener Hilfeleistung, habe ich nicht gestellt.
Danke Dir nochmal
Gruß aus Köln
Josef
Anzeige

333 Forumthreads zu ähnlichen Themen

Zeilen Kopieren mit Formeln u. Formaten
Lemmi

Hallo zusammen,
ich möchte einen Block (5Zeilen) am Ende einer Tabelle einfügen!
Diese Zeilen sollen mit ihren Formaten unf Formel Kopiert und am Ende der Leiste eingefügt werden!
Die Formeln sind in den Roten Zellen.
Die Zellen sonst sind bis auf Spalte A und B ohne Inhalt!
11.08.2008 14:11:35
Thread-ID: 1000856
5 Beiträge
Anzeige
wenn > Spalte I, dann neue Zeile
Dennis

Hallo Leute,
ich benötige einmal Hilfe eines Experten, da ich noch in den Anfängen stecke.
Ich habe folgendes Problem:
Ich habe eine Liste mit Datensätzen (jeder Datensatz steht für eine Person). Die Datensätze sind unterschiedlich lang. Grds. sind die Datensätze von Spalte A - Spal...
04.09.2008 16:41:00
Thread-ID: 1007458
8 Beiträge
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
Anzeige
Werte aus PRN Datei einlesen über 65563 Zeilen
Andre´

Hallo alle zusammen,
Ich lese aus einer PRN-Datei die Werte ins Excel ein wie folgt:
Option Explicit
Sub Daten_einlesen() Dim iFree As Integer, strText As String, arrTmp, arrDaten() Dim lngCounter As Long, lngStart As Long, lngEnde As Long ReDim arrDaten(1 To 11, 1 To 1) iFree = Fr...
04.11.2008 08:39:00
Thread-ID: 1021464
12 Beiträge
Wenn Formel mit Spalte
Maris

Hi zusammen,
ist das möglich, dass ich eine Wenn-Formel auf eine Spalte und eine Zelle in der Zeile beziehe? Bsp.:
Tabelle A B C Ergebnis ERM VOLL OHNE 1 x ERM 2 x...
05.11.2008 16:30:00
Thread-ID: 1021984
6 Beiträge
Zeilen kopieren wenn wert in Zelle
Andreas

hallo zusammen
finde für meine herausforderung nichts passendes in der recherche. :-(
ich habe eine tabelle1 mit diversen Einträgen. die Spalten AC, AD, AE enthalten jeweils ein Datum (ist jedoch nicht in jeder Zeile der Fall)
Nun möchte ich folgende Schritte automatisieren
Erst...
24.11.2008 17:08:00
Thread-ID: 1027397
3 Beiträge
Wenn Spalte D übereinstimmt, dann Inhalt kopieren
Wolfgang

Hallo,
in einer Mappe befinden sich zwei Tabellenblätter -Basis und Basis1-, in Spalte D steht die Kundennummer. Wie kann ich erreichen, dass ein Abgleich zu weiteren Tabellen -Tabelle1-4- (es können 4, aber auch nur 1 Tabellenblatt vorhanden sein) erfolgt und wenn die Kundennummer aus Tabe...
30.11.2008 20:33:51
Thread-ID: 1029110
6 Beiträge
wenn zelle gelb, dann ganze zeile loeschen
maxx_1985

Hi zusammen
wie kann man excel das folgende sagen;
wenn in spalte A irgendwo eine gelbe zelle vorkommt, dann loesche mir die ganze ZEILE.
gelb sind naemlich die zwischensummen, die ich raus haben moechte.
danke euch vielmals
gruss
denis
10.12.2008 16:19:09
Thread-ID: 1031735
8 Beiträge
Anzeige

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
4
7
7
2
3
11
5
2
5
7
2
7
12
2
3
5
9
3
2
8
1
6
4
2
12