Live-Forum - Die aktuellen Beiträge
Datum
Titel
15.04.2024 23:32:21
Darstellung im IMAGE sehr schlecht
15.04.2024 21:08:34
PDF mit Makro erstellen mehrere Sheets
15.04.2024 18:38:39
Arbeitszeiten Vorlage ergänzen
15.04.2024 17:34:30
Fehlende Zeilen automatisch nach Zeiten ergänzen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1760to1764
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
1760to1764
1760to1764
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zelle finden, Zeile einf., Formeln kopi.

Zelle finden, Zeile einf., Formeln kopi.
03.06.2020 18:10:21
Nicolai
Liebe Community,
ich habe folgende Aufgabe die ich gerne über ein Makro lösen möchte:
1. Finde die Zelle in Spalte B in der steht "Zeile einfügen".
2. Füge über dieser Zelle eine Zeile ein. Hierbei sollen die Formatierung und die Formeln übernommen bzw. kopiert werden.
Vielen Dank vorab für eure Unterstützung.
Gruß
Nicolai

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

Betreff
Datum
Anwender
Anzeige
AW: Zelle finden, Zeile einf., Formeln kopi.
03.06.2020 20:01:03
Werner
Hallo,
so: 
Sub Schaltfläche1_Klicken()
Dim raFund As Range, strSuche As String
strSuche = "zeile einfügen"
With Worksheets("Tabelle1")
Set raFund = .Columns("B").Find(what:=strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
.Rows(raFund.Row).Copy
.Rows(raFund.Row).Insert
raFund.Offset(-1).ClearContents
End If
End With
Set raFund = Nothing
End Sub
Gruß Werner
AW: Zelle finden, Zeile einf., Formeln kopi.
03.06.2020 20:50:02
Nicolai
Hallo Werner,
vielen Dank schon mal. Der Code funktioniert einwandfrei.
Ich habe allerdings mehrere Tabellenblätter auf denen ich das Makro über eine Schaltfläche auslösen möchte. Ich möchte jedoch nicht für jedes Tabellenblatt ein separates Makro einfügen.
Ich wollte deshalb in der Zeile "With Worksheets("Tabelle1")" nicht auf Tabelle1 zugreifen sondern auf das aktive Tabellenblatt. Ich habe das zunächst laienhaft so probiert:
With ActiveWorksheet
Klappt leider nicht. Kannst du mir sagen wie ich das anpassen kann?
Vielen Dank vorab. Bist eine riesen Hilfe.
Gruß
Nicolai
Anzeige
AW: Zelle finden, Zeile einf., Formeln kopi.
03.06.2020 22:00:49
Werner
Hallo,
dann so: 
Sub Schaltfläche1_Klicken()
Dim raFund As Range, strSuche As String
strSuche = "zeile einfügen"
Set raFund = Columns("B").Find(what:=strSuche, LookIn:=xlValues, lookat:=xlWhole)
If Not raFund Is Nothing Then
Rows(raFund.Row).Copy
Rows(raFund.Row).Insert
raFund.Offset(-1).ClearContents
End If
Set raFund = Nothing
End Sub
Das With - End With muss raus und die Punkte vor Rows müssen weg (damit wird bei With - End With auf das im With angegebenen Blatt referenziert).
Gruß Werner
AW: Zelle finden, Zeile einf., Formeln kopi.
04.06.2020 14:53:05
Nicolai
Hallo Werner,
funktioniert wieder einwandfrei.
Leider ist mir bei der Umsetzung ein Problem aufgefallen das ich noch beheben muss. Für die Zeile die kopiert wird und in der "Zeile einfügen" steht habe ich eine Zeilenhöhe von 0 eingestellt damit sie nicht sichtbar ist. Die neue Zeile hat nun natürlich auch eine Höhe von 0, die Zeilenhöhe der neuen Zeile soll jedoch 15 sein.
Man kann also entweder beim Kopieren der Zeile vorgeben, dass die Zeilenhöhe nicht übernommen wird oder man spricht direkt die neue Zeile an und stellt die Zeilenhöhe auf 15.
Wenn du mir damit noch helfen könntest wäre ich dir sehr dankbar.
Freundliche Grüße
Nicolai
Anzeige
AW: Zelle finden, Zeile einf., Formeln kopi.
04.06.2020 18:16:41
Werner
Hallo,
dass das funktioniert glaube ich kaum. Bei einer Zeilenhöhe von 0 ist die Zeile ausgeblendet und Find kann in ausgeblendeten Zeilen/Zellen nicht suchen bzw. findet dann keinen Treffer. Von daher kann der Code mit dem Find in dem Fall gar nicht funktionieren.
Dann mit Worksheetfunction.Match: 
Sub Schaltfläche1_Klicken()
Dim loZeile As Long
On Error GoTo Ausgang
loZeile = WorksheetFunction.Match("Zeile einfügen", Columns("B"), 0)
Rows(loZeile).Copy
Rows(loZeile).Insert
Cells(loZeile, "B").ClearContents
Rows(loZeile).RowHeight = 15
Application.CutCopyMode = False
Ausgang:
On Error GoTo 0
End Sub
Gruß Werner
Anzeige
AW: Zelle finden, Zeile einf., Formeln kopi.
04.06.2020 19:10:00
Nicolai
Vielen Dank. Klappt perfekt.
Gerne u. Danke für die Rückmeldung. o.w.T.
04.06.2020 19:45:55
Werner

304 Forumthreads zu ähnlichen Themen

Löschen von Zeilen unter 1 Bedingung
Zeilen

Hallo,
ich habe in einer Excel Liste Produkte geführt, die den aktuellen Lagerbestand anzeigen.
Dort werden auch die Produkte aufgeführt, deren Produkte einen Lagerbestand von 0 haben.
Der Lagerbestand wird in Spalte B aufgeführt, die Produkte stehen in Spalte A. Der Datenbereich b...
08.08.2008 20:15:00
Thread-ID: 1000407
5 Beiträge
Anzeige
Formel immer nur in bestimmter Zelle
Katrin

Hallo Zusammen!
Folgendes Problem würde ich gerne lösen, weiß aber nicht wie :)
Ich habe in Spalte A in jeder Zeile Uhrzeiten stehen:
00:15:00
00:30:00
00:45:00
01:00:00
01:15:00
01:30:00
01:45:00
02:00:00
02:15:00
02:30:00
02:45:00
...
02.09.2008 10:30:00
Thread-ID: 1006672
3 Beiträge
Zeile ausblenden, wenn in einer Zelle ein bestimmt
Jakob

Hallo,
Ich habe folgendes Problem:
Ich möchte in den Tabellenblatt "Form3" die zeilen 39-50 ausblenden wenn die Zelle A37 ungleich "Pentax" und "Ciclox" ist. Der Wert der Zelle A37 kommt aus der Eingabe im Tabellenblatt "Eingabemaske" (B7).
Wie müßte der entsprechende VBA-Code ausse...
03.09.2008 17:24:21
Thread-ID: 1007176
6 Beiträge
Anzeige
Zeilen ausblenden wenn...
Andreas

Hi,
ich habe ein kleines Problem. Auf meinem Excel-Blatt sind von B4:B200 Datumswerte im Format TT.MM.JJJJ eingetragen. In der Zelle A1 gebe ich nun beispielsweise Januar ein. Ich will nun, dass alle Zeilen ausgeblendet werden, die nicht in der Spalte B ein Januar-Datum eingetragen haben. D...
04.09.2008 20:18:36
Thread-ID: 1007507
10 Beiträge
in einer Spaöte leere Zellen ausblenden
medion53

Hallo, vielleicht kann mir jemand helfen...
Ich habe eine Tabelle A, gefüllt mit Werten bzw Formeln, die Tabelle A verwende ich als Liste für Datengültigkeit. leider bekomme ich die Leerzellen nicht weg...habe gegoogelt und eine Formel gefunden.
http://www.excelformeln.de/formeln.html...
05.09.2008 10:40:00
Thread-ID: 1007607
7 Beiträge
bestimmte Zeilen per Makro ausblenden
Fritz_W

Hallo Forumsbesucher,
ich bitte die VBA-Kundigen unter euch um Hilfe.
Mit welchem Makro kann ich in einer geöffneten Tabelle alle Zeilen ausblenden, in denen in Spalte B ein Datumseintrag steht, der vor dem jeweils heutigen Tag liegt?
Vielen Dank für eure Hilfe
mfg
Fritz
05.09.2008 10:57:00
Thread-ID: 1007611
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Leere(nur Formel drin) Zellen in Diagramm
Volker

Hallo,
ich habe ein Problem und hoffe auf Eure Hilfe!
Ich habe mit Excel2007 (wahrscheinlich besteht das Problem auch in anderen Versionen) ein Diagramm erstellt. Es werden dabei 2 Datenreihen angezeigt. Soweit so gut...
Reihe 1 bildet sich aus 10 Werten, von denen der erste Teil vo...
25.09.2008 16:11:00
Thread-ID: 1012372
6 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
13
2
5
7
9
6
2
4
5
10
9
3
5
2
6
3
2
6
2
5
5
7
8
5