Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
600to604
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
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

if....else...end if.....Irgendwo stimmt was nicht

if....else...end if.....Irgendwo stimmt was nicht
25.04.2005 12:05:39
Peter
Hallo liebe Helfer,
bei nachstehendem Code wird immer das "else"-Ereignis ausgeführt, lasse ich es weg, dann wird die Abfrage ausgeführt und er schreibt das Gewünschte, allerdings wird es dann im anderen Fall natürlich nicht mehr korrigiert. Wer kann da mal bitte hilfreich eingreifen?
CommandButton1_click
For n = 10 To 40
With Sheets("IntHauskalkulation")
If .Range("C" & n).Value = "Baugrubenaushub für den Keller" Then
Sheets("Gesamtaufstellung").Range("H13").Value = Sheets("IntHauskalkulation").Range("G" & n).Value
Sheets("Gesamtaufstellung").Range("C13").Value = "Erdarbeiten (im Hauspreis enthalten)"
Else
Sheets("Gesamtaufstellung").Range("H13").Value = Sheets("Eigenleistung").Range("G31").Value
Sheets("Gesamtaufstellung").Range("C13").Value = "Erdarbeiten (lt.Formular Eigenleistung)"
End If
End With
Next n
End Sub
Vielen Dank
Peter S.

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: if....else...end if.....Irgendwo stimmt was nicht
25.04.2005 12:12:40
u_
Hallo,
das sieht soweit ok aus. möglicherweise stimmen die Texte nicht überein, z.B. Leerzeichen am Ende.
Gruß
Texte sind korrekt.....was is dann falsch?
25.04.2005 12:23:05
Peter
Habe die Texte überprüft....sie sind korrekt
AW: Texte sind korrekt.....was is dann falsch?
25.04.2005 12:27:18
Hajo_Zi
Hallo Peter,
es hat keiner aus dem Forum neben Dir gesessen als Du das ghetestet hast! Vermute ich mal. Lade mal eine Datei hoch.
Bitte keine Mail, Probleme sollten im Forum gelöst werden.
Microsoft MVP für Excel
Das Forum lebt auch von den Rückmeldungen.
Betriebssystem XP Home SP2 und Excel Version 2003 SP1.



"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Anzeige
Hier is die Datei....Danke für Eure Mühe
25.04.2005 13:05:49
Peter
Hallo Hajo und alle anderen,
freut mich, dass Ihr mich bei meinem Prob unterstützen wollt. Hier ist die Datei:
https://www.herber.de/bbs/user/21663.xls
Viele Grüße
Peter S.
AW: Hier is die Datei....Danke für Eure Mühe
25.04.2005 13:14:16
Hajo_Zi
Hallo Peter,
Da Du den Text immer in die gleichen Zellen schreibst (H13;C13) bekommst Du nur einen anderen Text wenn in Tabelle "IntHauskalkulation" in Zelle C40 der Text "Baugrubenaushub für den Keller" steht.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Anzeige
AW: Hier is die Datei....Danke für Eure Mühe
25.04.2005 14:00:00
Peter
Hallo Hajo,
zunächst mal Danke für Deine Antwort, jedoch is mein Anliegen etwas Anderes:
Wenn im Bereich C10:C40 in der IntHauskalkulation die Bedingung erfüllt ist, soll sich der Text in die Gesamtaufstellung schreiben; und wenn ich die else-Bedingung weglasse, dann tut er das auch.
Kannst Du mir sagen wie ich die Else-Bedingung formulieren müsste (oder steht sie nur an der falschen Stelle?), damit sie auch wirklich als "else" funktioniert
Viele Grüße
Peter S.
AW: Hier is die Datei....Danke für Eure Mühe
25.04.2005 14:14:32
Hajo_Zi
Hallo Peter,
der Else Zweig geht er wird 29 mal durchlauf weilö nur in eine Zelle "Baugrubenaushub für den Keller" steht.
Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Anzeige
Hajo....ich denke wir reden aneinander vorbei
25.04.2005 14:28:45
Peter
Hallo Hajo,
ja natürlich Du hast Recht, er durchläuft das Ganze 29 mal; jedoch mit einem nicht beabsichtigten Ergebnis...
die else Bedingung soll ja nur dann greifen, wenn im Bereich C10:C40 nicht in einer der Zeilen die Bedingung erfüllt ist!
Kannst Du mir diesbezüglich weiterhelfen?
Danke
Peter S.
AW: Hajo....ich denke wir reden aneinander vorbei
25.04.2005 14:38:57
Hajo_Zi
Hallo Peter,
eine klarte Beschreibung ist schon die halbe Lösung. So hast Du es noch nicht beschrieben.
Option Explicit

Private Sub CommandButton1_Click()
Dim N As Byte
Dim BoWert As Boolean
For N = 10 To 40
With Sheets("IntHauskalkulation")
If .Range("C" & N).Value = "Baugrubenaushub für den Keller" Or .Range("C" & N).Value = "Erdabtrag für die Gründungssohle" Then
BoWert = True
Exit For
End If
End With
Next N
If BoWert = True Then
Sheets("Gesamtaufstellung").Range("H13").Value = Sheets("IntHauskalkulation").Range("G" & N).Value
Sheets("Gesamtaufstellung").Range("C13").Value = "Erdarbeiten (im Hauspreis enthalten)"
Else
Sheets("Gesamtaufstellung").Range("H13").Value = Sheets("Eigenleistung").Range("G31").Value
Sheets("Gesamtaufstellung").Range("C13").Value = "Erdarbeiten (lt.Formular Eigenleistung)"
End If
End Sub

Gruß Hajo
Das Forum lebt auch von den Rückmeldungen.

"Wer Rechtschreibfehler findet, darf sie behalten!" Dies gilt auch für Bert.
Anzeige
Hajo....perfekt.....mit Text
25.04.2005 14:46:34
Peter
Hallo Hajo,
bitte entschuldige, dass ich den Sachverhalt ungenügend geschildert habe; jetzt ist es perfekt.
Mit meinen bescheidenen Mitteln ausgedrückt heisst dies: sobald die Bedingung das erste Mal erfüllt ist, wird die Schleife abgebrochen; läuft die Schleife bis zum Ende durch, wird die else-Bedingung verwendet.
Vielen Dank für Deine Hilfe
Peter S.

304 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
Kann jemend ein VBA Kurs empfehlen
TomTom

Hi,
ich soll von meiner Firma aus eine VBA (Excel) Kurs besuchen, so 3-4 Tage. Kann jemand ein Institut empfehlen, das solche qualifizierte Kurse anbietet ?
Danke Tom
10.10.2008 11:51:00
Thread-ID: 1015544
6 Beiträge
Werte in verschiedenen Subs verwenden
Urs

Liebe Alle
Ich wähle eine Zelle aus und speichere die gesamte Selection in einerObject-Variable (Rechtsklick auf Zelle, Start eines Makros aus dem kontextsensitiven Menue).
Dann gehe ich auf ein anderes Sheet (innerhalb des gleichen Workbooks) und wähle eine Zelle darin an. (Rechtsklic...
30.10.2008 12:53:41
Thread-ID: 1020565
3 Beiträge
Anzeige
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
VBA: String+TAB an inaktives Windowsfenster senden
Melanie

Hallo allerseits,
ich moechte aus Excel heraus mit VBA code einen String (z.b "Hallo") + TAB (oder ENTER) an ein 'fremdes' WindowsapplicationFenster schicken (keine Officeanwendung), wobei das Fensterhandle (oder auch das entsprechende TextFeldHandle bekannt sind).
Allerdings soll die...
09.12.2008 08:37:52
Thread-ID: 1031241
9 Beiträge
esc Endlosschleife beenden
Michael

Hallo!
Benötige eine Schleife die die ganze Zeit im Hintergrund läuft. Bei ESC soll sie abgebrochen werden.
Mein Bescheidener Versuch!
Private Declare Function GetAsyncKeyState Lib "user32" _
(ByVal vKey As Long) As Integer
Sub Schleife()
Do
DoEvents
If (GetAsync...
22.01.2009 19:46:00
Thread-ID: 1042718
8 Beiträge
Kurze Variablendeklaration in VBA?
Gunnar

Hi Leute,
gibt es in VBA keine andere Möglichkeit, Variable zu deklarieren außer
Dim abc As Integer, abd As Integer abe As Integer
usw.? Brauch über 100 Variable, das ist mühselig.
Typenkennzeichen dürfen übrigens nicht verwendet werden, falls das wichtig ist.
Grüße Gunnar...
28.01.2009 18:36:11
Thread-ID: 1044672
5 Beiträge
Variablendeklaration über Sub hinaus
bruno

hallo
Meine Variable möche ich auch in den untersub abfragen.
Wenn ich sie im ersten sub definiere mit "Private easy As String" gibt es eine Fehlermeldung "Ungültiges Attribut in Sub oder Fuktion". Wie muss ich es definieren, damit ich es auch abfragen kann?
danke
de Bruno
17.04.2009 11:44:38
Thread-ID: 1069290
4 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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