Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
19.04.2024 08:41:23
Zwei Makros in ein Arbeitsblatt - zweite wird nicht ausführt
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
712to716
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
712to716
712to716
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Komplexe Aufgabe zum Verschieben von Zeilen

Komplexe Aufgabe zum Verschieben von Zeilen
06.01.2006 09:36:40
Zeilen
Hallo !
Ich weiss nicht so recht wo ich anfangen soll. Ich habe zwei Arbeitsblätter. Auf dem einen Blatt trage ich in 20 Spalten diverse Daten ein. Ich moechte nun in einer Spalte eine bedingte Schaltfläche einfügen. Quasi, wenn A3&B3&G3 ="irgendwas" sind, dann blende mir eine Schaltfläche in N3 ein, welche es mir ermoeglicht, bei Knopfdruck gewisse Zellen dieser Zeile (z.B. E3, G3 und H3) in Arbeitsblatt 2 einzufügen und zwar dort in die erste freie Zeile von oben.
Optimal waere dann noch nach Betätigung der Schaltfläche diese wieder auszublenden und das Feld mit dem aktuellen Datum einzusetzen.
Ich habe keinerlei Ahnung von Skripten und Makros und hoffe, daß Ihr vielleicht eine Idee habt, wie man so etwas realisieren kann.
Abschließend haette ich noch den Wunsch, das 2. Arbeitsblatt so zu schuetzen, dass ich manuell keine Zeilen dort einfügen kann, sondern nur den Inhalt gewisser Spalten editieren kann.
Schoenes Wochenende,
Peter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Komplexe Aufgabe zum Verschieben von Zeilen
06.01.2006 10:44:22
Zeilen
Hallo,
ohne Button. Wird bei Doppelklick in N ausgeführt, wenn Aund B und C nichtleer sind.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iRow As Long
If Target.Column = 14 Then
iRow = Target.Row
If Cells(iRow, 1) <> "" And Cells(iRow, 2) <> "" And Cells(iRow, 3) <> "" Then
Union(Cells(iRow, 5), Cells(iRow, 7), Cells(iRow, 8)).Copy Sheets(2).Range("A65536").End(xlUp).Offset(1, 0)
Cells(iRow, 14) = Date
Cells(iRow, 14).NumberFormat = "DD.MM.YYYY"
Cancel = True
End If
End If
End Sub

zu 2: siehe Blattschutz
Gruß
Geist ist geil!
Anzeige
AW: Komplexe Aufgabe zum Verschieben von Zeilen
06.01.2006 11:22:56
Zeilen
Super, vielen Dank das funktioniert prima.
Gibt es auch die Moeglichkeit, anstatt die Werte nebeneinander in Baltt zwei zu kopieren, dies auch in bestimmte Felder zu kopieren, also was auf Blatt 1 in Spalte E war soll nun in B, was in B war in D oder aehnlich. So wie ich die Formel verstanden habe (als absoluter Laie), werden wie von mir gewunescht die entsprechenden Zellen ausgelesen und dann in Blatt zwei von a-c eingefuegt, ich haette sie jetzt noch gern verteilt, z.B. G-C-I oder so...
Vielen Dank,
Peter
AW: Komplexe Aufgabe zum Verschieben von Zeilen
06.01.2006 11:34:15
Zeilen
Hallo,
für dein Beispiel:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim iRow As Long, iRow2 As Long
If Target.Column = 14 Then
iRow = Target.Row
If Cells(iRow, 1) <> "" And Cells(iRow, 2) <> "" And Cells(iRow, 3) <> "" Then
iRow2 = Sheets(2).Cells(65536, 1).End(xlUp).Row + 1
With Sheets(2)
Cells(iRow, 5).Copy .Cells(iRow2, 2)
Cells(iRow, 2).Copy .Cells(iRow2, 4)
End With
Cells(iRow, 14) = Date
Cells(iRow, 14).NumberFormat = "DD.MM.YYYY"
Cancel = True
End If
End If
End Sub

Gruß
Geist ist geil!
Anzeige

143 Forumthreads zu ähnlichen Themen

formatierte Zelle automatisch nach unten schieben
oblivion

Hallo, ich habe eine Frage zu Zellen.
Ich habe sagen wir in L2-L14 Namen stehen. Die Zellen habe ich mit einem Rahmen formatiert. Jetzt kann es aber passieren, dass ich in L15 die Liste weiterführen muss, da ein neuer Name dazugekommen ist. Gibt es eine einfache Möglichkeit, das, wenn ich i...
20.08.2008 17:36:09
Thread-ID: 1003263
5 Beiträge
Anzeige
makro Zeile nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
02.12.2008 16:08:24
Thread-ID: 1029545
5 Beiträge
Zeile automatisch nach unten verschieben
donald

Hallo,
ich hätte gern ein Makro für folgendes Problem: Ich habe eine tabelle, und wenn ich in eine Spalte, hier H, "Absage" eintrage, soll mir Excel die ganze Zeile nach unten verschieben, z.B. in Zeile 50. Bei einem anderen Wort, "Auftrag", soll mir die ganze Zeile auch verschoben werden,...
03.12.2008 08:43:00
Thread-ID: 1029673
5 Beiträge
Anzeige
Leerzeile zählen-nach unten
robert

hi,
kann man-siehe datei- leere zeilen nach unten zählen?
z.B. A6 bis A10 ist leer-sind 5 leerzeilen
in B5 soll 5 stehen
gruß
robert
https://www.herber.de/bbs/user/60378.xls
17.03.2009 09:26:21
Thread-ID: 1061001
3 Beiträge
Werte in einer Zeile nach links verschieben
Sebastian

hallo forumsbesucher,
da sich meine excel kenntnisse leider sehr in grenzen halten, hoffe ich hier auf eure hilfe.
ich habe in einer excel mappe bestimmte zahlen in viele zellen geschrieben, die sich alle in einer zeile befinden. nun muss ich die ganzen zahlen in den jeweiligen zellen u...
02.06.2009 11:57:03
Thread-ID: 1078584
3 Beiträge
Zeilen nach oben verschieben
Josef_T

Hallo zusammen,
habe wieder ein Problem, dass ich nicht gelöst bekomme und deshalb Hilfe von Experten
benötige.
Mein Prob, habe ich hier näher beschrieben: https://www.herber.de/bbs/user/63496.xls
Danke
Gruß Josef
28.07.2009 19:13:39
Thread-ID: 1092043
9 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:13:37
Thread-ID: 1097497
19 Beiträge
Markierte Bereich eine Zeile nach unten verschieb.
Nibio

Hallo Profis,
jetzt weiß ich nicht wie ich per makro, eine markierte bereich (z.B A1: EH1) eine Zeile nach unten verschiebe. Ich hoffe es gibt eine Lösung sonst weiß ich nicht mehr weiter.
Gruß
Nibio
20.08.2009 18:14:06
Thread-ID: 1097498
2 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
2
4
4
2
2
2
8
18
1
4
2
2
2
5
2
1
1
4
2
2
2
4
3
5