Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 12:08:58
Mittelwertwenn - ich kapiere es nicht :-(
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
708to712
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
708to712
708to712
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen verschieben in ein anderes Tabellenblatt

Zeilen verschieben in ein anderes Tabellenblatt
16.12.2005 09:03:41
Gregor
Hallo,
ich möchte das eine Zeile verschoben wird,
wenn ich in der Zelle "Bezahlt am" unter Verbindlichkeiten
einen Eintrag vornehme, soll die komplette Zeile
in die Tabelle "Bezahlt" verschoben werden, als neue Zeile
https://www.herber.de/bbs/user/29350.xls
welche Lösung gibt es dafür ?
Gregor

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen verschieben in ein anderes Tabellenblatt
16.12.2005 11:05:50
Harald
Hi gregor,
vielleicht so.
Der Code kommt ins Blattmodul von Blatt Verbindlichkeiten.
(Rechte Maustaste auf Register "Verbindlichkeiten" und den Code ins rechte Fenster kopieren

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim RaBereich As Range, SBereich As Range
On Error GoTo ende
If Target.Row < 2 Or Target.Count > 1 Or Target.Column <> 9 Then Exit Sub
If Target.Value = "" Then Exit Sub
Set RaBereich = Range("I2:I500")
Application.EnableEvents = False
If Not Intersect(Target, RaBereich) Is Nothing Then
x = Target.Row
Rows(x).Cut
i = Sheets("Bezahlt").Cells(Rows.Count, 1).End(xlUp).Row
If i = 1 Then
i = 2
Else
i = i + 1
End If
Sheets("Bezahlt").Rows(i).Insert Shift:=xlDown
End If
ende:
Application.EnableEvents = True
Set RaBereich = Nothing
End Sub

Gruss Harald
Anzeige
AW: Zeilen verschieben in ein anderes Tabellenblatt
16.12.2005 11:28:43
Gregor
Danke,
das geht fast,
es bleibt eine lehre Zeile übrig im Arbeitsblatt Verbindlichkeiten,
lässt sich das verhindern ?
Gregor
Passe
16.12.2005 12:22:40
Harald
Hi Gregor,
habs an einer neuen Mappe getestet und der Code läuft dort wunschgemäß.
Nur in deiner Mustermappe bleibt diese Zeile übrig und
ich hab keine Ahnung warum.
Sorry
Gruss Harald
AW: Zeilen verschieben in ein anderes Tabellenblat
17.12.2005 22:11:42
Reinhard
Hi Gregor,
ich kann es grad nicht ganz nachvollziehen über was genau ihr redet.
Ich habe deine Datei und dadrin im Codemodul von "verbindlichkeiten" den Code der gepostet wurde.
Ich klicke die UF weg und gebe dann in Spalte Buchungstag was ein?
Kannst du mal eine neue Datei anlegen wo du in Tabelle1 zeigst wie es vor dem Eintrag des datums aussieht, in Blatt2 wie anch dem Eintrag und in Blatt3 wie es aussehen sollte, danke.
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
Anzeige

309 Forumthreads zu ähnlichen Themen

Nur bestimmten Zellbereich kopieren u. exportieren
Bernd

Hallo Freaks,
ich habe diesen Code für das Exportieren bestimmter Tabellenblätter aus dem Forum-Archiv.
Wer wäre bitte so nett und würde den Code dahingehend anpassen, dass nur die Zellen A1:P36 des Sheets "Export" kopiert werden?
Wenn es nicht zu unverschämt ist, wäre ich an nachs...
17.03.2009 16:11:25
Thread-ID: 1061150
2 Beiträge
Anzeige
Formel komplett aus anderem Blatt übernehmen
martin

Hallo.
In verschiedenen Arbeitsbättern befinden sich exakt die selben Rechnungen, jeweils mit unterschiedlichen Werten.
In einem Master-Blatt möchte ich gerne die Zeilen und Spaltenbeschriftungen, sowie die zu verwenden formeln definieren.
Könnt Ihr mir Tipps geben, wo ich dazu was...
18.06.2009 14:56:18
Thread-ID: 1082618
2 Beiträge
Zeilen in anderes Arbeitsblatt kopieren
Alex

Hallo @ all
ich habe folgendes Problem:
Tabelle 1 enthält eine Vielzahl von Daten. Diese will ich nun filtern und die jeweilige Zeile, die in N "TGA" enthält in Tabelle 2 kopieren.
Ich weiß, dass das Ganze mit wenn(summe... funktioniert, aber vermute, man muss hier feste Zahlen ange...
06.07.2009 11:29:58
Thread-ID: 1086570
7 Beiträge
Anzeige
Kopieren in andere Tabelle
liese

Hallo Forumfreunde!
Bitte um Hilfe zu folgendem Problem:
Bei Doppelklick im Bereich H10:H15 in Tabelle1 (z.B. H7) soll der Zellinhalt nach Tabelle2
in Zelle D5 kopiert werden und der Inhalt zwei Zellen neben dem Doppelklick (J7)
ebenfalls nach Tabelle2 in K10 kopiert werden.
...
19.08.2009 13:20:01
Thread-ID: 1097094
10 Beiträge
Combobox soll nur bestimmte Zeilen zeigen
Jörg-HH

Guten Abend zusammen
habe in einem Thread mit Franz neulich viel über Listboxen gelernt und wollte das nun auf ein ähnliches Problem mit einer Combobox übertragen - aber da hapert es noch etwas ;-)) Ich hab versucht, einiges von dem Code, den Franz mir gesendet hat, zu verwenden
In dies...
23.09.2009 20:23:50
Thread-ID: 1105056
30 Beiträge
Nur bis zu einem Bestimmten Zeichen kopieren
Excellent

Hallo,
ich habe z.B. in einer Zelle in Excel diesen Dateipfad stehen: C:\Ordner1\UnterordnerXY\Ordner0815
Nun möchte ich, wenn ich auf einen Button drücke nur noch folgendes in der Zelle stehen haben:
C:\Ordner1\UnterordnerXY\
Es könnte auch sein, dass der Pfad lediglich so auss...
24.09.2009 11:29:13
Thread-ID: 1105207
8 Beiträge
Spalten H & I in ein neues Tabellenblatt kopieren
Henning

Hallo zusammen,
wie man schon an meinem Level erkenne kann, bin ich ein Anfänger was VBA angeht.
Nun zu meinem Problem.
Ich habe ein Tabellenblatt mit dem Namen "Stammdaten" in diesem fängt
ab der 18 Zeile in den Spalten H und I folgende Tabelle an. Es folgen noch weitere Spalt...
23.11.2009 22:01:03
Thread-ID: 1119606
7 Beiträge
variables kopieren in ein anderes Tabellenblatt | Herbers Excel-Forum
Space
Hallo Community
Ich suche einen VBA Code um folgendes Problem mittels Button zu lösen:
ich würde gerne aus einem Tabellenblatt "Tabelle1" von Zeile 14 bis Spalte Q bis zum letzen vorhandenen Eintrag alles koperen und das ganze in das Tabellenblatt "Tabelle2" einfügen. In "Tabelle2" soll es...
15.01.2010 12:12:20
Thread-ID: 1130211
5 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
1
4
1
6
1
9
29
7
6
4
2
7
2
6
8
9
4
3
5
8
2
2
1
2
4