Clever-Forum.de

[Das Excel-Forum] Re: Namenslisten Clever Verkn�pfen

Atilla — Fri, 18 May 2012 06:45:07 +0200

Hallo,

dann ist A1 leer bei Dir.

In dem Fall w�rde ich den Bezug um eins erh�hen. Statt A3 dann A4.

[Das Excel-Forum] Re: Namenslisten Clever Verkn�pfen

WillWissen — Fri, 18 May 2012 04:29:42 +0200

Hi,

ich kann dein Problem leider nicht nachvollziehen - wie du in meinem Beispiel siehst, wird die richtige Zelle ausgeleseen.

Tabelle2

	A	B	C
1	Peter
2	Martin
3	Klaus		Klaus
4	Michi
5	Anton

verwendete Formeln
Zelle	Formel	Bereich
C3	{=WENN(ZEILE(A3)>ANZAHL2(A:A);"";INDEX(A:A;KKLEINSTE(WENN(A$1:A$1000<>"";ZEILE($1:$1000));ZEILE(A3))))}	$C$3

{} Matrixformel mit Strg+Umschalt+Enter abschlie�en

Tabellendarstellung in Foren Version 5.37

[Das Excel-Forum] Namenslisten Clever Verkn�pfen

Master T — Fri, 18 May 2012 00:38:37 +0200

Guten Abend,

habe endlich wieder Zeit f�r die L�sung der Probleme.

So ich habe das Prinzip der Formel verstanden so glaube ich, aber in der von mir genutzten Variante ist ein Fehler.

Ich Beziehe mich auf eine Zelle (A3) in der, der Ausgangswert ("Klaus") drin steht.

Die Formel in (C3) lautet: {=WENN(ZEILE(A3)>ANZAHL2(A:A);"";INDEX(A:A;KKLEINSTE(WENN(A$1:A$1000<>"";ZEILE($1:$1000));ZEILE(A3))))}

Das Ergebnis in C3 ist aber ("Michi") aus A4!

Kann mir das einer erkl�ren?

G��e von Master T

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Wolfgang_Virnich — Thu, 17 May 2012 21:43:06 +0200

Hallo Atilla

Stimmt, habe sehr viele Arrayformeln in der Mappe.

Ok, werde deine Tipps so �bernehmen,
nochmals herzlichen Dank f�r deine Hilfe.

Gru�
Wolfgang

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Atilla — Thu, 17 May 2012 21:34:18 +0200

Hallo Wolfgang,

nicht alles rausnehmen.

Diese Zeile sollte auf jeden Fall drin bleiben:
[b]
Application.EnableEvents = False[/b]

Die Bildschirm Aktualisierung ist mit dem Code unerheblich.

Das Ausschalten der Berechnung macht dann sinn, wenn Du sehr viele Formeln und insbesondere Arrayformeln einsetzt. Schaden tut es jedenfalls nicht.

Aber setz es so ein, wie ich es im zuletzt eingestellten Code gemacht habe, nach [b]On Error[/b]....aus
und unten nach [b]fehler:[/b] wieder ein

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Wolfgang_Virnich — Thu, 17 May 2012 21:28:01 +0200

Hallo Atilla

Ich habe
[code]
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.EnableEvents = False
[/code]

rausgenommen

Nun kann ich sehen das eine Zeile ausgeblendet wird, dann unten rechts in der Statuszeile die Berechnung durchgef�hrt wird, dann wieder eine Zeile ausgeblendet wird dann wieder die Berechnung ausgef�hrt wird usw.
Das Ganze dauert dann ca. 50 Sec.

Gru�
Wolfgang

[Das Excel-Forum] Re: Fehler gefunden

Atilla — Thu, 17 May 2012 21:11:09 +0200

Hallo Wolfgang,

der Code m�sste auch ohne Abschaltung der Berechnung gleich schnell sein.
Teste es mal.

Der Code arbeitet so: Erst werden alle der Bedingung entsprechenden Zeilen gesammelt und
am Ende im Ganzen ausgeblendet.

So, wie wenn Du mit gedr�ckter STRG Taste die betroffenen Zeilen anklickst und am Ende �ber Format
ausblendest.

[Das Excel-Forum] Re: Fehler gefunden

Wolfgang_Virnich — Thu, 17 May 2012 21:06:22 +0200

Hallo Atilla

Nu klappst es Super.

Am Anfang habe ich
[code]
Application.Calculation = xlCalculationManual
[/code]

und am Ende

[code]
Application.Calculation = xlCalculationAutomatic
[/code]

eingesetzt.

Nochmals vielen Dank f�r die Hilfe
Gru�
Wolfgang

[Das Excel-Forum] Re: VBA L�sung, besser so

Atilla — Thu, 17 May 2012 20:57:09 +0200

Hallo Wolfgang,

wegen des Codes hinter der Tabelle dann besser so:

[code]
Sub Zeilen_ausblenden()
Dim i As Long
Dim rngZeilen As Range
On Error GoTo fehler
Application.ScreenUpdating = False
Application.EnableEvents = False
For i = 2 To 600
If Cells(i, 11) = "kein Interesse mehr" Then
If rngZeilen Is Nothing Then
Set rngZeilen = Rows(i) '.Hidden = True
Else
Set rngZeilen = Union(rngZeilen, Rows(i))
End If
End If
Next
If Not rngZeilen Is Nothing Then
rngZeilen.EntireRow.Hidden = True
Set rngZeilen = Nothing
End If

fehler:
Application.ScreenUpdating = True
Application.EnableEvents = True
If Err Then MsgBox "Fehler: " & Err.Number & vbLf & vbLf & Err.Description
End Sub
[/code]

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Wolfgang_Virnich — Thu, 17 May 2012 20:56:21 +0200

Hallo Atilla

habe eine Datei gebastelt, aber womit kann man eine Datei hochladen?

Gru�
Wolfgang

[Das Excel-Forum] Re: Fehler gefunden

Atilla — Thu, 17 May 2012 20:53:37 +0200

Hallo Wolfgang,

ersetze die betroffene Zeile so:

rngZeilen.[color=#FF0000]EntireRow[/color].Hidden = True

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Atilla — Thu, 17 May 2012 20:46:53 +0200

Hallo Wolfgang,

wie gesagt, kann ich den Fehler nicht nachstellen.

Kannst Du eine abgespeckte Datei mal hochladen?

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Wolfgang_Virnich — Thu, 17 May 2012 20:44:21 +0200

Hallo Atilla

Tats�chlich liegt hinter dem Tabellenblatt
Private Sub Worksheet_Change(ByVal Target As Range)

Das habe ich komplett rausgenommen, trotzdem kommt die Fehlermeldung.
Am Code habe ich nichts ver�ndert.

Gru�
Wolfgang

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Atilla — Thu, 17 May 2012 20:35:26 +0200

Hallo Wolfgang,

bei mir tritt kein Fehler auf, und der Code tut das, was er tun soll.

Hast Du noch anderen Code, vielleicht ein Worksheet_Change Ereignis in der betreffenden Tabelle?
Hast Du irgend etwas am Code ver�ndert?

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Wolfgang_Virnich — Thu, 17 May 2012 19:55:57 +0200

Hallo Atilla

bei mir kommt eine Fehlermeldung?

bei:
[code]
rngZeilen.Hidden = True
[/code]

Gru�
Wolfgang

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Atilla — Thu, 17 May 2012 19:33:37 +0200

Hallo zusammen,

hier mal eine schnellere Variante:

[code]
Sub Zeilen_ausblenden()
Dim i As Long
Dim rngZeilen As Range
Application.ScreenUpdating = False
For i = 2 To 600
If Cells(i, 11) = "kein Interesse mehr" Then
If rngZeilen Is Nothing Then
Set rngZeilen = Rows(i) '.Hidden = True
Else
Set rngZeilen = Union(rngZeilen, Rows(i))
End If
End If
Next
If Not rngZeilen Is Nothing Then
rngZeilen.Hidden = True
Set rngZeilen = Nothing
End If
Application.ScreenUpdating = True
End Sub
[/code]

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Wolfgang_Virnich — Thu, 17 May 2012 18:25:08 +0200

Hallo G�nter und Ralf

Vielen Dank, geht bei mir auch so schnell wenn ich die Arbeitsmappenberechnung
auf manuell stelle.

Gru�
Wolfgang

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

RaBe — Thu, 17 May 2012 18:08:47 +0200

Hi Wolfgang,

[quote Wolfgang_Virnich]Problem, der Code l�uft seht lange bzw.
in der Statuszeile unten recht wird die �Berechnung wird durchgef�hrt ��. angezeigt und ausgeblendet,
solange ich bis ich die ESC Taste dr�cke, dann wird das Makro erst ausgef�hrt?[/quote]

also bei mir funktioniert der von Dir eingestellte Code sehr schnell.

Bei 600 gef�llte Zellen dauert es ca. 2 sek.

hier der Code zum Messen:

Option Explicit

Sub Zeilen_ausblenden()
   Dim c As Range
   Dim RaBereich As Range
   Dim tStart As Variant
   Dim tEnde As Variant
   Dim tDauer As Variant
   
   Set RaBereich = ActiveSheet.Range("K2:K600")
   
   tStart = Now()
   Range("G13") = tStart
   For Each c In RaBereich
      If c.Value = "kein Interesse mehr" Then
         c.EntireRow.Hidden = True
      End If
   Next c
   Set RaBereich = Nothing
   tEnde = Now()
   Range("G14") = tEnde
   tDauer = tEnde - tStart
   MsgBox tDauer
End Sub

[size=8]Code eingef�gt mit [url=http://vbahtml.origo.ethz.ch] VBA in HTML 2.3[/url][/size]

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Wolfgang_Virnich — Thu, 17 May 2012 18:03:10 +0200

Hallo Michael

wollte gerade posten:

Ok und Sorry

Hat mit der Arbeitsmappenberechnung, automatischen Berechnung zu tun, alles gut sonst.

__________________________

Das w�re ja eine geniale Sache wen man die automatische Berechnung w�hrend des Code ausschalten k�nnte.

Gru� Wolfgang

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Glausius — Thu, 17 May 2012 18:01:04 +0200

Hallo Wolfgang,

dann versuche es doch einmal mit dieser Schleife:

[code]
Sub Zeilen_ausblenden()
Dim i As Integer

Application.ScreenUpdating = False
For i = 600 to 2 Step -1
If Cells(i, 11) = "kein Interesse mehr" Then Rows(i).Hidden = True
Next
Application.ScreenUpdating = True
End Sub
[/code]

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Zwergel — Thu, 17 May 2012 17:56:35 +0200

Hi Wolfgang,

der Code ist ja wie geschrieben von Atilla. Vielleicht hilft es, die Aktualisierung w�hrend der Laufzeit auszuschalten

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Wolfgang_Virnich — Thu, 17 May 2012 17:44:27 +0200

Hallo Michael

Vielen Dank f�r deine Hilfe

Habe den Code entsprechend angepasst.

[code]
Sub Zeilen_ausblenden()
Dim c As Range
Dim RaBereich As Range
Set RaBereich = ActiveSheet.Range("K2:K600")
For Each c In RaBereich
If c.Value = "kein Interesse mehr" Then
c.EntireRow.Hidden = True
End If
Next c
Set RaBereich = Nothing
End Sub
[/code]

Problem, der Code l�uft seht lange bzw.
in der Statuszeile unten recht wird die �Berechnung wird durchgef�hrt ��. angezeigt und ausgeblendet,
solange ich bis ich die ESC Taste dr�cke, dann wird das Makro erst ausgef�hrt?

Gru�
Wolfgang

Gru� Wolfgang

[Das Excel-Forum] Re: VBA L�sung, Zeile ausblenden wenn

Zwergel — Thu, 17 May 2012 17:09:32 +0200

Hi Wolfgang,

schau die L�sung von Atilla an, http://clever-forum.de/read.php?11,262434,262487#msg-262487 und passe sie an deinen Bedarf an (Bereich und Suchwert)

[Das Excel-Forum] VBA L�sung, Zeile ausblenden wenn

Wolfgang_Virnich — Thu, 17 May 2012 16:45:06 +0200

Hallo

Ich suche ein Makro,

wenn in einer Zelle (Bereich K2:K800) das Wort z.B. �Text� steht soll die komplette Zeile ausgeblendet werden.

Gru�
Wolfgang Virnich

[Das Excel-Forum] Re: Hilfestellung beim Code!

Kaptn Blaubaer — Thu, 17 May 2012 13:10:50 +0200

Hall�chen zusammen,

ich habe diesen Tread zwar nur rudiment�r in Kopf, weil ich mich derzeit mit anderen Dingen rumqu�len mu�, aber
wenn das, an da� ich mich noch erinnere, halbwegs richtig ist, w�rde ich folgenderma�en vorgehen:

Ich erstelle eine Grunddatei, die s�mtliche Makros enth�lt und bearbeite darin was zu bearbeiten ist.
Erstelle aus dieser Datei heraus eine andere und kopiere den relevanten Bereich als Festwerte in die erstellte Datei
die ich dann eben auch verschicke.
Folglich bleiben meine Makros bei mir und ich brauche sie auch nicht l�schen.

[Das Excel-Forum] Re: Hilfestellung beim Code!

schauan — Thu, 17 May 2012 13:00:23 +0200

Hallo Ralf,

unter 2010 funktioniert das problemlos:

[code]
Sub test()
Cells(1, 1).Value = String(500, "A")
MsgBox Len(Cells(1, 1))
Cells(1, 1).Copy Cells(2, 1)
MsgBox Len(Cells(2, 1))
Cells(1, 1).Copy
Cells(3, 1).PasteSpecial Paste:=xlValues
MsgBox Len(Cells(3, 1))
End Sub
[/code]

Wenn Isabella sich an meine Schrittfolge h�lt, dann wird die Datei erst nach den Kopieraktionen in 97-2003 ohne Makros gespeichert, sodass das f�r die neue Datei nicht relevant sein sollte.

Die Kopieraktion geht vermutlich unter 2007 oder 2010 auch mit einer alten Datei im Kompatibilit�tsmodus.

[Das Excel-Forum] Re: Hilfestellung beim Code!

RaBe — Thu, 17 May 2012 11:06:21 +0200

Hi,

[quote schauan]Makros l�schen geht nur so.
Alternativ d�rftest Du nicht das Blatt kopieren, sondern m�sstest alles, was drin ist kopieren, im Prinzip so:
[/quote]

die Schwierigkeit ist nur, wenn in Zellen Text / Inhalt mit mehr als 255 Zeichen ist, werden nur jeweils die ersten 255 Zeichen mitkopiert.

[Das Excel-Forum] Re: Nach Zelleninhalt auslesen

aloys78 — Thu, 17 May 2012 09:11:45 +0200

Hallo Viking,

[quote]Wenn m�glich soll die Suche auch nur auf einem Monat oder einem Jahr begrenzt werden k�nnen.[/quote]
Du kannst eine InputBox benutzen, um den Zeitraum (Jahr oder Monat eines bestimmten Jahres) abzufragen.
siehe zB hier ---> [url=http://ms-excel.eu/faqs/excel-vba-texte/excel-vba-inputbox.html]Input-Box[/url]

[quote]Die Dateien sind in Jahres- und Monatsordner verteilt[/quote]
Dann ist die Ordnerstruktur mit Pfad sicherlich bekannt. Den jeweiligen Quell-Pfad mu�t du dann im Makro aufgrund der Nutzereingabe zum Zeitraum zusammenbauen.

[quote]Er soll in alle dateien in drei bestimmten Zellen nach drei bestimmten W�rter suchen [/quote]
Ich vermute mal, das sind die Zellen A7, G18 und G41
Ich h�tte das so versucht:
ActiveSheet.Cells(x, 1) = Workbooks(wbList(y)).Worksheets(strSheet).Range("A7") 'Rechnungsempf�nger
ActiveSheet.Cells(x, 2) = Workbooks(wbList(y)).Worksheets(strSheet).Range("G18") 'Rechnungsdatum
ActiveSheet.Cells(x, 3) = Workbooks(wbList(y)).Worksheets(strSheet).Range("G41") 'Rechnungsbetrag

[quote]in einer separaten Datei ausgelesen werden[/quote]
Pfad und Dateinamen sind auch schon bekannt ?

Gru�
Aloys

[Das Excel-Forum] Re: Variante mit L�schen der Zeilen

Atilla — Thu, 17 May 2012 07:02:21 +0200

Hallo Aloys,

[quote=Bei mir wird aber die 2. Zeile nicht ber�cksichtigt (12543643 Sahne).][/quote]

das geht einfach zu beheben, indem man die Schleife bis zur 2. Zeile laufen l�sst.

[code]
For i = loLetzte To [color=#FF0000]2[/color] Step -1
[/code]

[Das Excel-Forum] Re: Code kombinieren!

schauan — Thu, 17 May 2012 06:46:23 +0200

Hallo Tim,

dann mal los und bis dahin ;-)

Wie gesagt, wundere Dich nicht, wenn die letzte Eintragung im Extremfall - wenn Du nur eine "Zeile" hast - 98 Leerzeilen hat. Siehe meine letzte Frage.