Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
720to724
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
720to724
720to724
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

ChrisL&Betrifft: Zeilen ausblenden wenn

ChrisL&Betrifft: Zeilen ausblenden wenn
19.01.2006 15:43:31
jan
Hallo, hab mit dem superteil viel erreicht.
jedoch intergrier ich formeln in diese Liste. funktioniert garnix mehr.
....ist dieses problem substanziell oder kann man irgendwas machen
beispielsweise im muster habe ich in spalte E sechsstellige zahlen
in spalte F möchte ich von E die ersten 3 stellen übernehmen.
beim mir wärs =Links(E2;3)....ziehe ich die formel nach unten.
bricht das schöne Ausblend&Einfügtool zusammen.
Danke für Tipps im Voraus
gruss jan
https://www.herber.de/bbs/user/30193.xls

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen ausblenden wenn - Autofilter
19.01.2006 17:19:13
ChrisL
Hallo Jan
Folgende Code-Anpassung fügt die Formel automatisch in Spalte F ein (bei Eingabe/Änderung in Spalte B oder C).
Vermutlich musst du aber etwas umstellen, weil wenn du die Job-Auswahl in Spalte D machst bevor du eine Eingabe in Spalte E tätigst, ist die Zeile womöglich bereits ausgeblendet. Deshalb Jobauswahl vermutlich in der letzten oder zweitletzten Spalte.
Gruss
Chris

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Or Target.Column = 3 Then
Cells(Target.Row, 4).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="JobA,JobB"
Cells(Target.Row, 1).Formula = "=ROW()-1"
Cells(Target.Row, 6).Formula = "=LEFT(E" & Target.Row & ",3)"
End If
If Target.Column = 4 Then
Selection.AutoFilter Field:=4, Criteria1:="JobA"
End If
End Sub

Anzeige
AW: Zeilen ausblenden wenn - Autofilter
20.01.2006 15:05:52
jan
Hallo Chris, vielen dank für die Rückmeldung und Unterstützung.
Heute werd ich mich damit nicht mehr beschäftigen. Ich glaube am Montag nachmittags,
wenn alles schläft, werd ich meinen Geist in die VBA-Tiefen abtauchen lassen.
Aber nochmal, das ding ist genial, meenne excelgängster brauchen in der datenerfassung immer viel archiv & Lieblingsbeschäftigung ist ungeschlagen copy&paste, und das ding
bringts einfach....
schönes wochenende & grüsse aus hamburg
jan

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige