Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
988to992
988to992
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wo liegt bloss der Hund begraben ?

Forumthread: Wo liegt bloss der Hund begraben ?

Wo liegt bloss der Hund begraben ?
25.06.2008 10:55:00
Ernst
Hallo Vba Profis !
Offensichtlich ist beim Upload etwas schiefgelaufen hier Noch mals der Link zu Meinem Problem !
https://www.herber.de/bbs/user/53344.zip
Lg.ERNST

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Wo liegt bloss der Hund begraben ?
25.06.2008 11:02:00
Luschi
Hallo Ernst,
zu Frage 1) mit
lz = .Cells(Rows.Count, 2).End(xlUp).Row
ermittelst Du die letzte Zeile in Spalte B, die Nummern stehen aber in Spalte; also müßte der Befehl so lauten:
lz = .Cells(Rows.Count, 1).End(xlUp).Row
Gruß von Luschi
aus klein-Paris

AW: Wo liegt bloss der Hund begraben ?
25.06.2008 11:14:56
Luschi
Hallo Ernst,
zu Frage 2) Beim Speichern löscht Du die Werte in den Zellen E2 und F2.
Dadurch wird das Ereignis 'Worksheet_Change' zweimal ausgelöst und in diesem Ereignis startest _ Du ja gerade für diese 2 Zellen das Makro 'zählen'. Deshalb schalte die Ereignis-Aktivierung vorher aus und danach wieder an (aber nicht vergessen, sonst läuft garnichts mehr!) 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
With Sheets("Auslaufmanagement")
lz = .Cells(Rows.Count, 1).End(xlUp).Row
.Range("a4:a" & lz).Interior.ColorIndex = xlNone
.Range("e4:e" & lz).Interior.ColorIndex = xlNone
.Range("i4:i" & lz).Interior.ColorIndex = xlNone
Application.EnableEvents = False
.Range("e2").ClearContents
.Range("f2").ClearContents
Application.EnableEvents = True
End With

Gruß von Luschi
aus klein-Paris

Anzeige
AW: Wo liegt bloss der Hund begraben ?
25.06.2008 11:20:14
Luschi
Hallo Ernst,
das Suchen von Werten per For-Schleife in größeren Datenbeständen ist langsam.
Besser dazu geeignet ist die Find-Methode für Range-Bereiche.
Schau mal in die Vba-Hilfe, da gibt es ein gutes Beispiel dazu.
Gruß von Luschi
aus klein-Paris

AW: Danke Funktioniert 1A
25.06.2008 11:50:34
Ernst
Hallo Luschi !
Recht herzlichen Dank durch die Änderungen Funktioniert es jetzt Wie gewünscht !
Lg.Ernst
Anzeige
;

Forumthreads zu verwandten Themen

Wo ist der Fehler?
Bernd

Einen schönen guten Morgen,
folgendes Problem habe ich:
Wie Ihr in der Tabelle sehen könnt, ist Andy auf platz 4 und Hery und Bernd auf Platz 5.
Wo ist da der Fehler in der Formel?
Tabelle2

 ABCD12PlatzNameverlorenhilfsspalte134Andy        1,30 €...
30.08.2008 07:15:00
Thread-ID: 1006008
3 Beiträge
wo ist der fehler?
stefan

Hallo,
ich habe eine spalte mit domainnamen (z.b domain.de oder domain.net). ich will daraus den wert ermitteln. wenn .de-domain, dann 1 ansonsten 1,5
habe folgende formel: =WENN(FINDEN(".de";$B2);1;1,5)
leider wirft er bei nicht .de-domains einen fehler aus und schreibt nicht 1,5 h...
09.12.2008 11:57:11
Thread-ID: 1031321
8 Beiträge
Fehlerhafte Kalenderwochenberechnung
reiner

Hallo Leute,
die mitgesandte Datei https://www.herber.de/bbs/user/58117.xlsx dient zur Erfassung von Bearbeitungszeiten unterschiedlicher Projekte.
Der jeweils erste Tag eines Monats kann in Spalte A ausgewählt werden. Die bei Anwahl des 01.02.2009 in Zelle A5 angezeigte Zirkelbezugswar...
06.01.2009 14:21:00
Thread-ID: 1037240
13 Beiträge
Anzeige
Wo liegt der Fehler im Code..?
Kathi

Halli Hallo...
Ich bins schon wieder mit einem weiteren problem:
Ich nutze den AutoFilter mit einer Passwortabfrage kombiniert.
...
ElseIf txtOK.Text = p And txtPass.Text = q Then
frmStart.Hide
For I = 3 To 19
ThisWorkbook.Sheets(I).Visible = True
ThisWorkbook.Sh...
08.01.2009 12:29:00
Thread-ID: 1037862
3 Beiträge
Fehler bei Funktion KALENDERWOCHE
Steffen

Hallo zusammen,
habe folgendes Probleme mit der Arbeitsblattfunktion KALENDERWOCHE: Trage ich in einer Zelle das Datum 23.05.10 ein und verlange in einer anderen Zelle (KALENDERWOCHE;C8;2) so sollte er eiegentlich 20 anzeigen da die Woche durch "2" am Montag beginnt und Sonntag der 23.05.20...
21.01.2009 12:05:06
Thread-ID: 1042118
2 Beiträge
Anzeige
Fehler bei Funktion KALENDERWOCHE
Steffen

Hallo zusammen,
habe folgendes Probleme mit der Arbeitsblattfunktion KALENDERWOCHE: Trage ich in einer Zelle das Datum 23.05.10 ein und verlange in einer anderen Zelle (KALENDERWOCHE;C8;2) so sollte er eiegentlich 20 anzeigen da die Woche durch "2" am Montag beginnt und Sonntag der 23.05.20...
21.01.2009 12:05:14
Thread-ID: 1042119
3 Beiträge
Wo liegt der fehler in diesem Makro ?Excel to PPT
sven

hallo ;)
ich habe hier ein Makro und finde den Fehler nicht.
ich hab in excel im sheet "Start" ein makro zugewiesen.
Dieses soll mir verschiedene Bereiche nacheinander in eine ppt Datei "demo.ppt"kopieren.
wenn ich das Makro ausführe kommt dauernd ne Fehlermeldung...also Powerpo...
17.02.2009 16:37:00
Thread-ID: 1051559
2 Beiträge
Wo liegt der fehler in diesem Makro ?Excel to PPT
sven

hallo ;)
ich habe hier ein Makro und finde den Fehler nicht.
ich hab in excel im sheet "Start" ein makro zugewiesen.
Dieses soll mir verschiedene Bereiche nacheinander in eine ppt Datei "demo.ppt"kopieren.
wenn ich das Makro ausführe kommt dauernd ne Fehlermeldung...also Powerpo...
17.02.2009 16:38:00
Thread-ID: 1051560
4 Beiträge
wo ist der fehler?
Hirschi

Sub mal4() Dim a As Integer For a = 1 To 100 If Cells(a, 1).Caption "" And Cells(a, 1).Caption Mod Cells(a, 2).Caption = 0 Then Cells(a, 3).Caption = CLng(Cells(a, 2)) / 5 * 4 Else Cells(a, 3).Caption = "" End If Next End Sub
Vielen Dank für eure Hilfe! Gruss Hirschi
27.03.2009 12:46:02
Thread-ID: 1064581
9 Beiträge
wo ist der fehler?
Emil

Hallo zusammmen
könnt ihr mir sagen wo hier der Fehler ist?
=WENN(L12="";RANG(C12;C$12:"C"$&Zeile(11+C9));"")
C$12:"C"$&Zeile(11+C9) darf man einen Bereich so formulieren?
in diesem falle müsste das dann geben den Bereich C12:C20
Gruss Emil
06.04.2009 15:14:56
Thread-ID: 1067119
6 Beiträge
wo ist der fehler?
Michel

Hallo
=SUMMENPRODUKT((A1:A1000)="Neue Formatdaten)"*((D1:D1000)="ZugriffLevel0"))
Vielen Dank für eure Hilfe!
Gruss Michel
08.05.2009 14:05:10
Thread-ID: 1073889
4 Beiträge
wo ist der Fehler?
Reto

Hallo zusammen
bekomme mit dieser Formel nur die Fehlermeldung #Wert..
=SUMMENPRODUKT((JAHR('einmalige Bestellungen'!D2:D5000)=Gesamtübersicht!A6)*1)
in D2:D5000 stehen Daten, in A6 ist 2004
wieso geht das nicht?
Vielen Dank für eure Hilfe!
Gruss Reto
15.05.2009 14:03:32
Thread-ID: 1075467
4 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige