Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
832to836
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
832to836
832to836
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen einfügen und löschen per Makro

Zeilen einfügen und löschen per Makro
09.01.2007 08:58:10
Thomas
habe folgendes problem:
Ein Ausgabefeld z.B. A5 soll die Anzahl der Zeilen zwischen 2 "festen Zeilen" bestimmen. In diesen "festen Zeilen" die direkt unter einander stehen
z.B. A7 und A8 steht ein text. Wenn in dem Ausgabefeld z.B. die Ziffer 2 erscheint sollen zwei Zeilen zwischen A7 und A8 eingefügt werden. Siehe Beispiel:
Zeile 5 "Ausgabefeld A5" 2
Zeile 6
Zeile 7 "Text"
"Neue Zeile 8"
"Neue Zeile 9"
Zeile 10 "Text" (ursprünglich Zeile 8)
Wenn in dem Ausgabefenster eine 1 erscheint soll nur eine Zeile zwischen den Textzeilen erscheinen! Ist das möglich mit einem Makro?

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen einfügen und löschen per Makro
09.01.2007 09:11:31
Rudi
Hallo,
woher kommt der Wert in A5? Eingabe von Hand?
Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
AW: Zeilen einfügen und löschen per Makro
09.01.2007 11:19:21
Thomas
der wert in A5 wird nicht manuell eingegeben. Dieser Wert erscheint automatisch wenn man in einem Listenfenster eine bestimmte Alternative wählt!
AW: Zeilen einfügen und löschen per Makro
09.01.2007 11:41:46
Rudi
Hallo,
in den Code der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$5" Then
Application.EnableEvents = False
Range(Rows(8), Rows(8 + Range("A5").Value - 1)).Insert
Application.EnableEvents = True
End If
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Zeilen einfügen und löschen per Makro
09.01.2007 12:47:59
Thomas
Hallo Rudi!
vielen dank für deine Hilfe. Habe es ausprobiert und der Makro fügt auch Zellen ein, jedoch nur wenn ich den Wert manuell eingebe. Wenn sich der Wert durch Wahl in dem vom
mir genannten Listenfenster ändert passiert nichts. Eine anderes Problem ist dass der Makro zwar Zeilen einfügt jedoch nicht wieder reduziert, d.h. es sollen immer nur so vielen Zeilen zwischen den beiden "festen Textzeilen" liegen wie ich im Ausgabefenster
angebe.
z.B. Ziffer 2 im Ausgabefeld
Zeile 8 (Text)
eingefügte Zeile wenn im Ausgabefenster die Ziffer 2 erscheint
eingefügte Zeile wenn im Ausgabefenster die Ziffer 2 erscheint
Zeile 11 vorher "9" (Text)
dananch erscheint im Ausgabefeld die Ziffer 1. Dann müsste das so aussehen:
Zeile 8 (Text)
eingefügte Zeile
Zeile 10, vorher "11" bzw. ursprünglich 9.
Ist das zu machen?
Anzeige
AW: Zeilen einfügen und löschen per Makro
09.01.2007 14:20:36
Rudi
Hallo,

Dim blnClick As Boolean
Private Sub ListBox1_click()
Dim rng1 As Range, rng2 As Range, iRows
Const strText1 = "erster Text"
Const strText2 = "zweiter Text"
If blnClick = False Then
blnClick = True
Set rng1 = Range("A:A").Find(strText1, Range("A1"), , xlWhole, xlByRows, xlNext)
If rng1 Is Nothing Then
blnClick = False
Exit Sub
End If
Set rng2 = Range("A:A").Find(strText2, rng1, , xlWhole, xlByRows, xlNext)
If rng2 Is Nothing Then
blnClick = False
Exit Sub
End If
If rng2.Address <> rng1.Offset(1, 0).Address Then
Range(rng1.Offset(1, 0), rng2.Offset(-1, 0)).EntireRow.Delete
End If
If ListBox1 > 0 Then Range(rng2, rng1.Offset(ListBox1, 0)).EntireRow.Insert
blnClick = False
End If
End Sub

Gruß
Rudi
Eine Kuh macht Muh, viele Kühe machen Mühe
Anzeige
AW: Zeilen einfügen und löschen per Makro
09.01.2007 20:01:12
Thomas
Hallo!
Vielen Dank!
das klappt!
Gruss
Thomas

299 Forumthreads zu ähnlichen Themen

VBA Zeilen ein/ausblenden + weiters Problem
oblivion

hallo, ich hab mal wieder ein kleines und ein etwas größeres Problem
erstmal zum kleinen. wie bekomme ich es mit hilfe von einem vba hin, wenn ich ein kontrollkästchen mit einem Hacken versehe, dann bestimmte Zeilen (Sagen wir mal Zeile 20 bis 30), die ich vorher versteckt hatte, nun zum vo...
10.08.2008 00:22:06
Thread-ID: 1000558
3 Beiträge
Anzeige
Register ein- und ausblenden
HaKa

Hallo Forum
Wie lautete der VBA-Code um z.B. das Register "Tabelle3" aus-, resp. wieder einzublenden?
Gruss Heinz
14.09.2008 15:40:00
Thread-ID: 1009597
5 Beiträge
Spalten ein und ausblenden
Marion65

Hallo zusammen, ich habe hier eine ExcelTabelle welche zum Ein- und Ausblenden der Spalten kleine + bzw. - Zeichen hat. Wie kann ich diese selber erstellen? Vielen Dank, Marion. https://www.herber.de/bbs/user/55401.xls
15.09.2008 20:09:56
Thread-ID: 1009885
4 Beiträge
Anzeige
ausgeblendete Zeilen auf Blattkopie auch ausblende
Thomas

Hallo,
ich habe folgendes Problem:
Mittels VBA und der Funktion PastSpecial kopiere ich ein Tabellenblatt, welches ausgeblendete Zeilen enthält.
Zum Einfügen des zu kopierenden Inhaltes verwende ich die o.a. Funktion zwei mal:
Zielblatt.Range(Quellenblatt.UsedRange.Address).Past...
20.11.2008 09:18:00
Thread-ID: 1026312
3 Beiträge
VBA, Notiz ein- und wieder ausblenden
Burghard

Hallo ins Netz,
ich möchte mit Knopfdruck ein Textfeld (mit Inhalt, es existiert schon) oder ein Autoformat (z.B. Gefaltete Ecke) auf dem Blatt an einer bestimmten Stelle für 1 Minute plazieren und danach soll es wieder verschwinden. Also kopieren und dann automatisch die Kopie wieder lösc...
01.12.2008 09:08:18
Thread-ID: 1029158
2 Beiträge
Ausgeblendete Zeilen werden ausgedruckt
Josef

Hallo Profis,
Wenn in bestimmten Zellen eine 0 steht soll der definierte Bereich (Zeilen) ausgeblendet werden.
Das funktioniert aber nur im ersten Bereich, bei weiteren werden in der Seitenansicht nur leere Seiten angezeigt und dann auch ausgedruckt, was nicht gewünscht ist.
Zum bes...
09.12.2008 12:39:59
Thread-ID: 1031348
5 Beiträge
Zeilen und Spalten ausblenden
Andreas

Hi Leute,
Hab folgendes Problem:
Ich hab mehrere Tabellenblätter mit Tabellen, in denen in Abhängigkeit von Einträgen auf einer Übersichtsseite bestimmte Zeilen und Spalten mit einem Makro ausgeblendet werden sollen.
Hier Mein Beispiel-File:
https://www.herber.de/bbs/user/58482...
16.01.2009 15:21:22
Thread-ID: 1040598
8 Beiträge
Commandbutton ein und ausblenden
SoulOpa

Hallo und einen schönen Abend,
ich habe eine Frage! und zwar habe ich ein Commandbutton in der Userform erstellt so das der Commandbutton beim Tabellenblatt beim scrollen immer sichtbar ist. Nun würde ich gerne wenn ich die Mappe zwischendurch verlass das der Button verschwindet und wenn ic...
23.01.2009 17:50:27
Thread-ID: 1043094
5 Beiträge
Anzeige

Links zu Excel-Dialogen

ListBox

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