Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Wert nach Auswahl von JA oder Nein in einem Auswahlfeld

Forumthread: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld

Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 10:21:29
Frank1965
Ich habe in Excel in meinem Arbeitsblatt in der Zelle G7 ein Auswahlfeld mit den Antworten Ja oder Nein. Wenn dort Ja ausgewählt wurde folgen weitere Berechnungen und das daraus Berechnete Ergebnis welches in der Zelle T7 steht soll dann in ein anderes Blatt mit dem Namen Berechnungen in die Zelle C4 geschrieben werden. Wenn in G7 die Antwort Nein ist soll das Ergebnis in das gleiche Blatt in Zelle C8 geschrieben werden.
Mein Problem ist das es immer mehr Zeilen gibt mit wachsender Kalkulation, nachdem ich die Zeile G
Ausgefüllt habe wird automatisch eine neue Zeile eingefügt, dann H…dies läuft immer so weiter bis ich mit der Kalkulation fertig bin.
Ich weiß nicht wie ich Excel mitteilen kann da alle dann auch neu entstandenen Zeilen mit einbezogen werden müssen. Über jede Hilfe bin ich sehr dankbar.
Anzeige
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 11:16:47
daniel
Hi
was machst du denn bisher?
hast du ein Marko, dass das macht?
Zeig mal den Code.

wenn Werte immer unten angefügt werden sollen, macht man das in der Regel so, man geht zur untersten Zelle auf dem Blatt und springt von dort nach oben (entspricht der Tastenkombi ENDE + Pfeilhoch) und geht wieder eine Zeile nach unten. 

If range("G7").value = "ja" then

    Sheets("Berechnung").Cells(Rows.Count, 3).End(xlup).Offset(1, 0).value = Range("T7").value

end if


Gruß Daniel
Anzeige
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 11:25:17
Frank1965
Hallo,
bis jetzt habe ich nur diesen Code um eine neuie Spalte einzufügen, das mit dem JA und NEIN Feld ist neu





Sub NeueZeileEinfügen(nachZeile As Long)
Dim ws As Worksheet
Set ws = ThisWorkbook.Sheets("Kalkulation") ' Ersetzen Sie "Sheet1" durch den Namen Ihres Arbeitsblatts

With ws
.Rows(nachZeile + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
.Rows(nachZeile).Copy
.Rows(nachZeile + 1).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
.Rows(nachZeile + 1).PasteSpecial Paste:=xlPasteFormats
.Cells(nachZeile + 1, 1).Select
Application.CutCopyMode = False
End With
End Sub






Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

Dim lastRow As Long

On Error GoTo fin

If Sh.Name > "Kalkulation" Then Exit Sub

If Not Intersect(Target, Sh.Range("A:A")) Is Nothing Then
Application.EnableEvents = False
lastRow = Target.Row
If lastRow >= 7 Then ' Beginne ab Zeile 7
Call NeueZeileEinfügen(lastRow)
End If

End If
fin:
Application.EnableEvents = True

End Sub


Anzeige
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 11:38:20
Frank1965
Ich habe vergessen zu erwähnen das das Kopieren der Zeile funktioniert, allerdings hätte ich gerne das nur die Formatierung und die Formeln mit in die neue Zeile übernommen werden. Momentan ist es so das auch eingetragene Werte in den Zellen mit kopiert werden. Gibt es dafür auch eine Möglichkeit ?
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 12:02:12
GerdL
Moin Frank
Option Explicit 

Sub NeueZeileEinfügen(nachZeile As Long)



Dim ws As Worksheet, c As Range

Const nachZeile = 1

Set ws = ThisWorkbook.Sheets("Kalkulation") ' Ersetzen Sie "Sheet1" durch den Namen Ihres Arbeitsblatts

With ws

.Rows(nachZeile + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

.Rows(nachZeile).Copy

.Rows(nachZeile + 1).PasteSpecial Paste:=xlPasteFormats

For Each c In Rows(nachZeile).SpecialCells(xlCellTypeFormulas).Cells

    c.Offset(1, 0).Formula = c.Formula

Next

.Cells(nachZeile + 1, 1).Select

Application.CutCopyMode = False

End With



End Sub

Gruß Gerd
Anzeige
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 12:57:50
Frank1965
Hallo Gerd,

Const nachZeile = 1 Hier bekomme ich eine Fehlermeldung
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 13:26:27
GerdL
Upps,

diese Codezeile blieb vom Testen drin. Lösche sie bitte raus.

Gruß Gerd
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 12:06:56
Copi
Grade etwas Muse gehabt. Mach es doch mit einer Wenn-Funktion. Ja und Nein sind Drop-Down-Menues.

https://www.herber.de/bbs/user/170087.xlsx
Anzeige
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 12:56:41
Frank1965
Hallo Copi, vielen Dank....es funktioniert für eine Zeile, hier T7. Das aber im laufe der Kalkulation noch T8,T9,T10...usw dazukommen brüchte ich dies für jede neue Zeile. Aus allen JA Werten soll danach die Summe gebildet werden, ebenfalls bei den NEIN Werten
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 15:05:23
Copi
Hi Frank,

lieb gemeinter Tipp: ich würde am besten eine anonymisierte Datei hochladen, wo du nur die wichtigsten Dinge drin hast. Texte und so kann man umschreiben, aber dann hat man ein besseres Bild was du brauchst. Du kannst ja auch hinschreiben, wo was hin soll :) ist vermutlich kürzer als 10 Mal hier zu schreiben :)
Anzeige
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 15:40:02
Frank1965
Hallo Copi, vielen lieben Dank für deine Unterstützung, aber die Datei kann ich nicht veröffentlichen, auch nicht anonymisiert, das wäre ein Kündigungsgrund. Ich versuche noch einiges, vielleicht komme ich noch einmal auf dich zurück wenn alles nicht mehr Hilft und ich aufgebe. Trotzdem Danke noch einmal
Anzeige
AW: Wert nach Auswahl von JA oder Nein in einem Auswahlfeld
11.06.2024 16:22:32
Copi
Hi Frank,

das kannst du auch von deinen Privaten PC machen, wer hindert dich daran, ein Excel-File ohne Daten und nur mit Zahlen hoch zu laden ;) Das habe ich auch schon öfters gemacht.

BEste Grüße

Copi

Forumthreads zu verwandten Themen

Aufruf von Makros mit Abfrage (JA oder NEIN) ?
Makros

Hallo Leute,
wenn ich ein Makro starte, würde ich gerne eine Abfrage (MsgBox) einschalten, wo ich gefragt werde, ob die weitere Makros (siehe Beispiel) tatsächlich ausgeführt werden sollen. Geht das überhaupt?
Beispiel:
Sub Makro1() Dim rng As Range For Each rng In Range("A1:A" &a...
18.09.2008 18:59:00
Thread-ID: 1010835
3 Beiträge
Ja-Nein Abfrage per VBA beantworten
rogger777

Hallo,
ich habe eine Sammelmappe in der von Mehreren Daten gesammt werden. Bevor die Datei geschlossen wird habe ich ich mit Hilfe von "workbook_BeforeClose" eine Abfrage eingebaut, die den jeweiligen Bearbeiter fragt, ob er das aktuelle Datum für den von ihm bearbeiteten Datensatz eingetra...
10.11.2008 15:16:00
Thread-ID: 1023218
6 Beiträge
Msgbox : JA / NEIN auf Englisch
TomTom

Hi,
ich habe auf meiner Userform eine MsgBox:
a = MsgBox("geht das auch auf Englisch ?", vbYesNo, "Frage")
If a = vbYes Then ....
Wenn die ausgeführt wird,stehen auf den Buttons Ja und Nein. Kann man das auch auf Englisch ausgeben (Yes/No) ?
Gruss
Tom
28.11.2008 09:36:00
Thread-ID: 1028583
3 Beiträge
Anzeige
Filterauswahl mit VBA
Gerhard

Hallo!
Bitte um Hilfe bei folgender Frage: Kann ich die Filterauswahl mit VBA so gestalten dass alle Werte ab der Größe 1 gefiltert werden. Wenn es möglich ist, wie müßte der Code lauten?
Selection.AutoFilter Field:=11, Criteria1:=""
Danke in Voraus
Gerhard F.
17.02.2009 19:18:00
Thread-ID: 1051598
3 Beiträge
Anzeige
Mehrfachauswahl mittels VBA
Lorenz

Hallo Excelprofis.
Untenstehendes Makro wird nicht ausgeführt (entspricht wahrscheinlich der Excelfunktion von Werte einfügen., wo eine Mehrfachmarkierung nicht zulässig ist?). Wie sollte der Code lauten, daß er funktioniert?
NR = Target.Row
With ActiveSheet
With .Union(.Cells(N...
10.01.2010 20:15:58
Thread-ID: 1128737
7 Beiträge
Blätter auswählen mit VBA klappt nicht
Elmar

Hallo, Ihr Weisen, Klugen und Schlauen...
Ich habe 5 Blätter SAZ1, SAZ2, ... SAZ5 und 5 Blätter GA1, GA2, ... GA5 und noch einige weitere Blätter
Die sind je nach Kunde unterschiedlich mit Daten gefüllt, z.B. einmal SAZ1 Und GA1
mal SAZ1 2 3 und GA1 2 ...
Hier im Makro werden SA...
12.07.2010 22:00:15
Thread-ID: 1166703
5 Beiträge
MsgBox mit ja/nein
Karsten

Hallo,
Bei diesem Code kann ich momentan nur mit ok bestätigen. Kann mir bitte jemand die Variante fürs Abbrechen codieren?
Danke für eure Hilfe
Gruß
Karsten
ActiveCell > 0 Then
MsgBox "Stunde Löschen?"
05.10.2010 09:06:57
Thread-ID: 1180692
6 Beiträge
Anzeige
Zelle gefüllt mit ja und nein
Joachim

Hallo,
bisher hab ich in einer Matrixformel eine Spalte nach dem Wert "ja" durchsucht. In diser Spalte kommt nur "ja" oder "nein" vor. Ich will aber nun nicht Spaltenbereich="ja", sondern als Zellbezug, also Spaltenbereich=F1. In F1 steht dann "ja" drin. Klappt wunderbar.
Was schreib ic...
15.03.2012 15:55:15
Thread-ID: 1255117
3 Beiträge
Anzeige
MsgBox: Abfrage ob Druckbereich ja nein
Bernd

Hallo zusammen,
nachfolgenden Code habe ich gerade mit Recorder aufgezeichnet.
Allerding soll nicht immer alles gedruckt werden sondern, einmal mit Tabelle "KfW" und Tabelle "Tilgungsplan Kfw" einmal ohne. Nun habe ich versucht eine Abfrage (an den mit Kreuzen dargestellten Code) mit Ms...
16.07.2013 11:30:36
Thread-ID: 1322686
7 Beiträge
Menüauswahl mit VBA erzeugen?
Thomas

Moin,
ich habe eine kleine Frage - ich bastel gerade an einem Tool, was verschiedene Operationen zur Bearbeitung zur Verfügung stellt.
Dabei klappen die ersten schon richtig gut, nun müsste ich aber dem User beim Start des Tools irgendwie die Möglichkeit bieten, die entsprechende Operat...
18.09.2013 08:59:30
Thread-ID: 1331274
6 Beiträge
Einmal Nein genügt mit MsgBox
Heinz

Hallo Leute
Ich habe eine UF,mittels Text & ComboBoxen trage ich Werte in verschiedene Sheets für verschiedene Tagen ein.
Funktioniert auch tadellos,Nur wenn die Abfrage kommt
If MsgBox("Wollen Sie den Auftrag wirklich überschreiben.", vbYesNo + vbQuestion, "Überschreiben ?") =...
02.04.2014 18:38:03
Thread-ID: 1355927
9 Beiträge
Tabelle mit Ja/Nein für mehrere Zeile
A. Oeschger
Guten Abend ich habe eine Frage:
ich habe eine Tabelle mit ca. 100 Zeilen mit Teilsummen. Nun möchte ich Ja/Nein-Optionen einfügen. Dh. ich habe diverse Zeilen mit Nein-Optionen. Wenn ich diese Optionen nun nicht möchte, dann möchte ich dass der jeweiligen Betrag bei der Summe nicht dazugezählt...
02.08.2014 21:50:08
Thread-ID: 1373774
5 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige