Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
25.04.2024 21:21:16
Zellkommentar in UserForm anzeigen und bearbeiten
25.04.2024 21:13:13
Kalenderwochen addieren
25.04.2024 21:06:05
Duplikate entfernen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Übersetzung in VBA

Übersetzung in VBA
11.10.2003 01:33:58
Daniel
Hallo Profis

Könnte jemand bitte dies ich hoffe eigentlich einfache Idee in VBA übersetzen.

WENN(F13="Automatisch";A69;leer, so dass man manuell eine andere Zahl eingeben kann.)

Ich vermutte, dass wenn diese WENN Formel im VBA steht, dann geht die Formel nicht verloren wenn eine manuelle Eingabe erfolgt.

Vielen vielen vielen vielen Dank.

Daniel

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Übersetzung in VBA
11.10.2003 02:08:00
OliveR
Und wieder ich,

ich denke, das Einfachste ist es, wenn Du einfach die nächste Spate als Hilfsspalte (die B Spalte) für die manuelle Eingabe nutzt.

= WENN(F13="Automatisch";A69;B69)

Deine Fragestellung ist leider nicht ganz einfach zu verstehen. Da ich nicht weiss, ob es sich hier nur eine Zelle handelt, welches sich auf F13 bezieht oder es sich um mehrere Datensätze handelt.

Gruß
OliveR
AW: Übersetzung in VBA
11.10.2003 02:18:17
Daniel
Hi Oliver

Deine Lösung, ist so meine Notlösung. Das Kalku-Schema muss aber Idiotensicher sein, und ob ich das mit den zwei Spalten hin bekomme weiss ich noch nicht.

Also es ist ganz simpel eigentlich. Wenn F13 - ist nur eine Zelle - automatisch ist, dann soll A69 in das jeweilige Feld stehen. Wenn allerdings manuell steht, dann soll man selber eine Zahl eingeben können. Dies wird dann 12 mal wiederholt also das gleich für A70, A71, A72 ... bis Dezember halt.

Danke

Daniel
Anzeige
AW: Übersetzung in VBA
11.10.2003 02:39:09
OliveR
Hallo Daniel,

in welche Zelle(n) kommt denn die Formel hinein?

Gruß
OliveR
AW: Übersetzung in VBA
11.10.2003 02:41:55
Daniel
In Zellen F69 - F80
Danke
Daniel
AW: Übersetzung in VBA
11.10.2003 03:02:09
OliveR
Hallo Daniel,

ich hoffe der Code trifft das, was Du haben wolltest.
Bitte rechte Maustaste auf das Tabellenblatt (wo der Name des Tabellenblattes steht), Code wählen und den Code hineinkopieren.
Arbeitsweise wie folgt:

Wenn in F13 Automatisch eingegeben wird, dann belegt er alle Felder von F69 bis F80 mit den Werten von A69 bis A80.
Wenn in F 13 Manuell eingegen wird, dann leert es alle Felder und gibt Meldung aus, dass es manuell eingetragen werden muss.
Falls was anderes in F13 eingegeben wird, kommt Meldung, dass nur Automatisch oder Manuell gültig sind.
Wenn F13 leer ist, dann macht es gar nix

!! Automatisch oder Manuell muss eingegeben werden !!!

Gruß

Oliver



Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Intersect(Target, Range("F13")) Is Nothing Then Exit Sub
If Target.Value = "Automatisch" Then
For i = 69 To 80 Step 1
Cells(i, 6) = Cells(i, 1)
Next i
ElseIf Target.Value = "Manuell" Then
Range("F69:F80").ClearContents
MsgBox ("Bitte geben Sie die Werte manuell ein")
Else
msgBox ("Bitte nur Automatisch oder Manuell eingeben.")
End If
End Sub

Anzeige
AW: Übersetzung in VBA
11.10.2003 03:05:59
Daniel
Super Oliver

Genau das sollte es tun

Vielen vielen Dank!!!

Gruss

Daniel.
AW: Übersetzung in VBA
11.10.2003 03:12:19
Daniel
Hi Oliver

GENIAL - Es funktioniert wirklich!!!!

Vielen vielen Dank.

Daniel.
AW: Übersetzung in VBA
11.10.2003 03:17:07
OliveR
Hallo Daniel,

da war noch ein kleiner Bug drin..
hier noch ein kleiner Fehler ausgemerzt.

Gruß

Oliver


Private Sub Worksheet_Change(ByVal Target As Range)
Dim i%
If Intersect(Target, Range("F13")) Is Nothing Then Exit Sub
If Target.Value = "Automatisch" Then
For i = 69 To 80 Step 1
Cells(i, 6) = Cells(i, 1)
Next i
ElseIf Target.Value = "Manuell" Then
Range("F69:F80").ClearContents
MsgBox ("Bitte geben Sie die Werte manuell ein")
ElseIf Target.Value <> "" Then
MsgBox ("Automatisch oder Manuell")
Range("F13").ClearContents
Range("F13").Select
End If
End Sub

Anzeige
Danke für Rückmeldung. o.T.
11.10.2003 03:18:39
OliveR
.

299 Forumthreads zu ähnlichen Themen

Mittels VBA Zellbereich einfärben
Fred

Hallo zusammen
Ich habe da ein Problem, und zwar stehen bei mir in der Tabelle im Bereich D2 bis AD100 unterschiedliche Datums. Wenn das Datum kleiner ist als das heutige, hätte ich gerne, das sich die entsprechende Zelle Rot färbt. Ich habe das mal mit bedingter Formatierung versucht, aber...
13.08.2008 18:52:00
Thread-ID: 1001623
13 Beiträge
Anzeige
Dynamische Wertänderung in VBA
Timo

Hallo,
ich habe ein kleines Problem und möchte vorab sagen, dass ich ein wirklicher VBA Laie bin. Ich habe folgendes Makro aufgenommen (nicht selbst geschrieben, da ich das nicht kann):
Sub updatechartloanvolumetrend()
If Range("C10") = "19981998" Then
ActiveSheet.ChartObjects("...
05.09.2008 09:38:00
Thread-ID: 1007590
3 Beiträge
Formel in Zelle per VBA einfügen
Werner

Wie kann ich Statistikformeln (Mittelwert, Maximum, Minimum, Standardabweichung) per VBA in eine Zelle einfügen?
Der zu berechnende Bereich geht von "$J$1" bis "$J$n" wobei n mit ActiveCell.Row-2 zuvor berechnet wird.
Gruß Werner.
10.09.2008 14:17:46
Thread-ID: 1008801
5 Beiträge
Anzeige
Kopieren VBA anstatt einer Formellösung
Bernhard

Hallo liebe Excel-Freunde,
wer kann mir helfen, eine Aufgabenstellung, die ich zwar mit Formeln gelöst habe mit einem VBA Makro zu lösen. Wie kopiere und paste ich Werte aus einer Tabelle1 in eine Tabelle2, abhängig davon ob ein Wert in einer bestimmten Spalte ist. Das Beispiel habe ich zum...
24.09.2008 17:28:00
Thread-ID: 1012129
9 Beiträge
Code für Groß- und Kleinschreibung VBA
Urmila

Hallo,
ich habe folgenden Code (Teil vom Code)
If Cells(iRow, 1).Value = "x" Then
Hierbei erkennt Excel nur das kleine x und nicht das große X. Wie kann man das umgehen, dass Groß- und Kleinschreibung nciht geachtet werden sollen bzw beachten werden sollen?
LG
Urmila
09.10.2008 14:16:51
Thread-ID: 1015349
3 Beiträge
Mit VBA ein anderes Makro ändern
Markus

Hallo zusammen,
besteht die Möglichkeit, dass man mittels Makros ein anderes Makro bzw. den Code für Worksheet_Activate ändern kann?
Problem 1
Sub Worksheet_Activate() 'ScrollArea = "C3: Bf32" ScrollArea = "" End Sub
Es soll danach wie folgt aussehen (Änderung in Zeile 1 und...
12.10.2008 14:24:49
Thread-ID: 1015855
7 Beiträge
zählenwenn in VBA-Array
David

Hallo zusammen.
folgendes Makro:
Sub finden() Dim P(12), C(9) P(1) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "A1", "A2", "A3") ... (das packe ich später noch in eine Schleife) P(12) = Application.WorksheetFunction.Choose(Int(Rnd() * 3) + 1, "B1", "B2", "B3") C(1) = Ap...
14.10.2008 09:14:00
Thread-ID: 1016232
8 Beiträge
VBA Zellen prüfen, txt kopieren, einfügen in txt
Stevie

Hallo Zusammen,
da ich kaum Erfahrung im Bereich VBA habe hätte ich gerne mal folgendes Problem :)
Ich habe folgenden Code der Variablen in einer Textdatei ersetzt, eine neue Datei speichert und die File anschleißend mittels Batchrutine an einen Drucker schickt.
Hier der bisherige C...
06.11.2008 09:56:19
Thread-ID: 1022167
3 Beiträge

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
12
2
2
4
5
8
2
6
7
2
2
2
2
3
3
15
6
4
4
4
3
4
2
4
7