Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 17:41:19
Link erstellen mit Formel oder VBA?
23.04.2024 17:00:22
Summe und Ausgabe
23.04.2024 16:27:34
Excel Starthinweis - Arbeitsmappenleistung überprüfen ...
23.04.2024 16:15:16
Mittels VBA vordefinierte Kommentare in Zellen einfügen?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1392to1396
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
1392to1396
1392to1396
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen analog zu Spalten einfügen

Zeilen analog zu Spalten einfügen
02.12.2014 10:54:29
Gast
Hallo zusammen,
ich möchte, dass wenn ich eine Spalte in meine erste Arbeitsmappe einfüge, Excel eine Zeile in eine andere einfügt. Das ganze dann um 2 verschoben, sprich z.B. Spalte vor Spalte E einfügen in Arbeitsmappe 1, heißt Zeile vor Zeile 3 einfügen in Arbeitsmappe 2.

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
ich glaube nicht das das geht
02.12.2014 10:59:40
Matthias
Hallo
Das Einfügen einer Spalte löst kein Ereignis aus welches man dann benutzen könnte, ein Makro zu starten.
mE müsstest Du das Makro selbst starten(z.B. über ein Button).
Gruß Matthias

AW: ich glaube nicht das das geht
02.12.2014 11:16:37
Gast
OK Danke, hab ich mir schon fast gedacht. Kann man evtl. eine Eingabe in die neue Spalte als Ausgangsereignis nutzen, um dann die Zeile zu erstellen? Am besten sollte auch noch die Eingabe in die neue Zeile kopiert werden aber das ist das kleinste Problem.
Danke und Gruß

AW: ich glaube nicht das das geht
02.12.2014 11:25:26
Gast
Oder kann jmd so gütig sein und mir ein VBA für das Szenario erstellen das ich mit Tastencombo auf einem markierten feld auslösen kann? Makroaufnahme funktioniert leider nicht.
Danke

Anzeige
AW: ich glaube nicht das das geht
02.12.2014 11:33:35
Rudi
Hallo,
vom Prinzip her so: 
Sub SpalteZeileRein()
If ActiveCell.Column > 2 Then
ActiveCell.EntireColumn.Insert
Workbooks("Mappe2").Sheets(1).Rows(ActiveCell.Column - 2).Insert
End If
End Sub

Gruß
Rudi

AW: ich glaube nicht das das geht
02.12.2014 14:14:12
Gast
danke, nur die auswahl der Zeilen stimmt noch nicht, da ist noch ein Fehler drin. Ich hab das so gemacht. Ich weiss es ist nicht gerade gut, aber der Rest funktioniert. Wo ist mein Fehler? 
ActiveCell.Columns("A:A").EntireColumn.Select
Selection.Insert Shift:=xlToRight
Sheets("Jahresprognose").Select
Rows(ActiveCell.Columns("Stücklistenübersicht")-2).Select    
Selection.Insert Shift:=xlDown
End Sub

Danke Gruß

Anzeige
AW: ich glaube nicht das das geht
02.12.2014 16:04:17
Rudi
Hallo,
wenn du in Spalte A einfügst, kannst du keine Zeile in 1-2=-1 einfügen!
Wahrscheinlich meinst du so: 
  If ActiveCell.Column > 2 Then
ActiveCell.EntireColumn.Insert Shift:=xlToRight
Sheets("Jahresprognose").Sheets("Stücklistenübersicht").Rows(ActiveCell.Row - 2).Insert Shift: _
=xlDown
End If
Gruß
Rudi

Das stimmt nicht, Matti, es wird IMMER ...
02.12.2014 15:12:19
Luc:-?
…das Wsh_Change-Ereignis ausgelöst!
Gruß, Luc :-?

Thx ... ok, erfolgreich getestet ;-) owT
02.12.2014 16:23:41
Matthias

AW: funktoniert nicht
02.12.2014 17:28:49
Gast
Dein Code funktioniert leider nicht. Passt aber schon ich hab ne andre Lösung gefunden. Trotzdem danke das hier so schnell Anworten kommen.

Anzeige
Ich hab Dir keinen Code gepostet ...
02.12.2014 18:25:45
Matthias
Hallo
Dein Code funktioniert leider nicht
Ich hab Dir keinen Code gepostet.
Gruß Matthias

Eine automatische 1:1-Erzeugung einer ...
02.12.2014 19:15:00
Luc:-?
…EinfügeZeile in Blatt2 analog zur EinfügeSpalte in Blatt1 wäre mit folgender EreignisProzedur möglich, Gast (ohne Namen?): 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Const naRelBlatt$ = "Tabelle2"
Dim relZeile As Range, relBlatt As Worksheet
If Target.Columns.Count = 1 And Target.Rows.Count >= Me.UsedRange.Rows.Count Then
Set relBlatt = Worksheets(naRelBlatt)
With relBlatt
.Activate
Set relZeile = .Rows(Target.Column)
With relZeile.EntireRow
.Select: .Insert Shift:=xlDown
End With
End With
Me.Activate
End If
Set relZeile = Nothing: Set relBlatt = Nothing
End Sub
Gruß, Luc :-?
Besser informiert mit …
Anzeige

303 Forumthreads zu ähnlichen Themen

Maximum aus Zeile,ausgeblendete Spalte nicht berüc
HermannZ

Hi;
wie kann ich mit VBA in einer Zeile das Maximum ermitteln,aber ausgeblendete Spalten nicht berücksichtigen.
Mit einer Formel z.B könnte man das so machen.
 CEFGH1246  2     3     4     5&n...
13.08.2008 19:42:43
Thread-ID: 1001641
4 Beiträge
Anzeige
Zeilen einfärben abhängig von Zellwerten
Zellwerten

Hi Leute
Da ich nicht weiß, wie ich nach meinem Problem suchen kann, beschreibe ich es einfach mal kurz. Vielleicht kann mir ja jemand helfen.
Ich habe ein Excel-File, das xSpalten hat und xZeilen.
In einer Spalte (in meinem Fall Spalte F) stehen die verschiedenen Auftragsnummern, a...
18.08.2008 16:57:26
Thread-ID: 1002687
6 Beiträge
Jede 2te Zeile in eine Spalte kopieren
Eddie

Guten Morgen @ all
Ich habe mal wieder ein kleines problem :-)
Ich würde gerne Daten, die alle in einer Spalte sind auteilen.... dazu soll entweder der 1,3,5,7.... oder 2,4,6,8 ... Wert immer in die danebenliegende Spalte kopiert werden
IST:
Hallo
Hello
Gut
Good
...
20.08.2008 07:52:00
Thread-ID: 1003065
6 Beiträge
Anzeige
Zeilenhöhe und Spaltenbreite in cm - Makro anlegen
Sandra

Wie lege ich ein Makro an - für oben genannte Funktion?
DANKE!!!
02.09.2008 13:53:00
Thread-ID: 1006781
9 Beiträge
Spalten als Zeilen ziehen
Timo

Hallo,
ich habe ein relativ simples problem und hoffe, es auch möglichst simpel beschreiben zu können:
In einer Spalte (Sagen wir Spalte A) habe ich untereinander verschiedenen Werte stehen.
Jetzt möchte ich gern auf einem anderen Tabellenblatt genau diese Werte in eine Zeile sch...
03.09.2008 11:43:00
Thread-ID: 1007060
5 Beiträge
Letzter Eintrag von Zeile in Spalte A übernehmen
Zeile

Guten Tag
Ich suche nach einer Formel, die mir den letzten eingetragenen Wert (Wert aus hinterster Spalte) von verschiedenen Zeilen jeweils in die gleiche Zeile in Spalte A einträgt.
Hat mir jemanden einen Tipp?
Danke, Peter
03.09.2008 12:58:17
Thread-ID: 1007081
3 Beiträge
wie Spalten in einem Arbeitsblatt zu Zeilen zusamm
Michael

Moin erstmal,
folgendes Problem als mittelmäßiger Anwender.
Ich habe mehrere identische Arbeitsblätter wo ich jeweils untereinander (eine Spalte) mehrer Werte habe. G1-G10.
Diese Werte möchte ich in einem Arbeitsblatt zusammenfassen , allerdings nun in einer Zeile. A1-J1.
Wi...
04.09.2008 19:48:05
Thread-ID: 1007497
4 Beiträge
Änderung Zeilen und Spaltenbezug
lass

Hallo, ich habe folgendes Problem.
Ist
(Zeile2/Spalte A2): Auftrag xyz; (Zeile2/Spalte B2):Mitarbeiter 1; (Zeile2/Spalte C2)= Mitarbeiter 2
(Zeile3/Spalte A3): Auftrag xyz; (Zeile3/Spalte B3):Mitarbeiter 3; (Zeile3/Spalte C3)= Mitarbeiter 4
(Zeile4/Spalte A...
15.09.2008 08:29:55
Thread-ID: 1009654
17 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
3
3
5
5
10
8
4
2
3
16
3
6
2
6
16
6
3
11
1
3
2
3
2
4
2