Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
996to1000
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
996to1000
996to1000
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excelformel in VBA umsetzen

Excelformel in VBA umsetzen
26.07.2008 15:05:40
lasmik
hallo
ich habe folg. vba macro:

Sub Daten_loeschen()
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="c:\meine_Dateien\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close
ActiveSheet.Unprotect
Range("B10:n40").Select
Selection.ClearContents
Range("n3").Select
Selection.ClearContents
Range("B10").Select
ActiveSheet.Protect
End Sub


jetzt soll aber das macro nur ausgeführt werden wenn folg bedingung erfüllt ist:
bedingung: im bereich p10 bis p40 darf es keine leeren zellen geben
wenn es leere zellen in diesem bereich gibt soll eine messagebox darauf hinweisen ( box-text: tabelle nicht kpl. ausgefüllt)
wie kann man das realisieren?
vielen dank schon mal

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excelformel in VBA umsetzen
26.07.2008 15:15:00
ransi
HAllo
Völlig ungetestet:
Versuchs mal...

Sub Daten_loeschen()
dim zelle as range
for each zelle in range("p10:p40")
if zelle="" then
msgbox "tabelle nicht kpl. ausgefüllt"
exit sub
end if
next
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs FileName:="c:\meine_Dateien\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close
ActiveSheet.Unprotect
Range("B10:n40").Select
Selection.ClearContents
Range("n3").Select
Selection.ClearContents
Range("B10").Select
ActiveSheet.Protect
End Sub


ransi

Anzeige
AW: Excelformel in VBA umsetzen
26.07.2008 15:16:00
mpb
Hallo,

Sub Daten_loeschen()
If Application.WorksheetFunction.CountBlank(Range("P10:P40")) = 0 Then
ActiveSheet.Copy
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs Filename:="c:\meine_Dateien\" & ActiveSheet.Name & ".xls"
ActiveWorkbook.Close
ActiveSheet.Unprotect
Range("B10:N40").ClearContents
Range("N3").ClearContents
Range("B10").Select
ActiveSheet.Protect
Else
MsgBox "nicht komplett gefült"
End If
End Sub


Gruß
Martin

AW: Excelformel in VBA umsetzen
26.07.2008 15:18:16
Tino
Hallo,
so müsste es Funktionieren

If [=COUNTBLANK(P10:P40)] > 0 Then
MsgBox "Leere Zellen im Bereich!"
Exit Sub
End If
'Dein Code


Gruß Tino

Anzeige
AW: Excelformel in VBA umsetzen
26.07.2008 15:29:14
mumpel
Hallo!
Verzichte möglichst auf Select und Activate. Ein bisschen feiner sieht es so aus:
Sub Daten_loeschen()
Dim zelle As Range
For Each zelle In Range("p10:p40")
If zelle = "" Then
MsgBox "tabelle nicht kpl. ausgefüllt"
Exit Sub
End If
Next
ActiveSheet.Copy
Application.DisplayAlerts = False
With ActiveWorkbook
.SaveAs Filename:="c:\meine_Dateien\" & ActiveSheet.Name & ".xls"
.Close
End With
With ActiveSheet
.Unprotect
.Range("B10:N40,N3").ClearContents
.Range("B10").Select
.Protect
End With
Application.DisplayAlerts = True
End Sub

Code eingefügt mit VBA in HTML 1.2 ( Hilfe zum Programm)size>
Gruß, René

Anzeige
AW: Excelformel in VBA umsetzen
26.07.2008 18:00:26
lasmik
hallo
folg. fehler wird hier angezeigt:
laufzeitfehler 1004
kann teil einer verbundenen zelle nicht ändern
woher kommt das? evt. von n3? das ist eine verb. zelle.
danke lasmik

AW: Excelformel in VBA umsetzen
26.07.2008 18:27:34
mumpel
In diesem Fall musst Du auch den korrekten Zellbezug angeben, z.B: N3:N4 (Wenn N3 und N4 verbunden sind). Die korrekte Zeile lautet in diesem Fall: .Range("B10:N40,N3:N4").ClearContentscolor>

Vielen Dank an alle
28.07.2008 20:05:00
lasmik
hallo
vielen dank an euch alle. habt mir sehr geholfen.
bis wahrscheinlich bald. :-)
mfg lasmik

305 Forumthreads zu ähnlichen Themen

Mit VBA In Zelle Excelformel schreiben
Gho-Reg

Hi Leute
Ich habe hier diesen netten VBA Code geschrieben und leider wie solls auch anders sein kommt dauernd eine Fehlermeldung :)
CODE:
rowbeforeinteger = 2
Dim text As String
text = "=IF(" & epsoldcolumn & rowbeforeinteger & "=""x"";1;0)+IF(" & emailsoldco...
25.08.2008 11:08:33
Thread-ID: 1004403
6 Beiträge
Anzeige
SVerweis ??? in VBA
kirsche

hallo leute,
mal wieder brauche ich eure hilfe.
ich weiß nicht, ob ich mit dem SVerweis in VBA übehaupt richtig liege. in B1 steht mein 1. suchbegriff (25) und in A3, A5 ... A25 (immer in zweierschritten) steht mein 2. suchbegriff.
nun möchte ich in tabelle "Stammdaten" zuerst die s...
08.07.2009 23:26:22
Thread-ID: 1087239
5 Beiträge
SVerweis in VBA
Stefanglander

Hallo Forum,
ich habe folgenden Code in einer Zelle:
=WENN(C4="";"";SVERWEIS(C4;Stoffplan!$A$2:$F$100;2;FALSCH))
Mag mir jamand sagen wie und wo ich das in VBA hinterlegen kann.
Danke im Vorfelde
Stefan
05.10.2009 21:11:52
Thread-ID: 1107351
11 Beiträge
Anzeige
Formel Sverweis in VBA
Marko Albrecht

Hallo,
ich hoffe mir kann bei meinem, nachfolgend beschriebenen, Problem geholfen werden.Das Problem ist , daß in der nachstehenen Formel(Wenn, Istfehler, Sverweis) VBA ein Hochkomma in die Formel schreibt und die Formel dadurch nicht Ihre Funktion erfüllt.Die Bezugszelle der Formel Sverweis...
11.04.2002 14:27:49
Thread-ID: 112467
10 Beiträge
Formel per VBA in Zelle schreiben
einfachf

Hallo Zusammen,
ich habe folgendes Problem
Vielleicht kann mir ja jemand helfen.
Ich prüfe in welcher Zelle der letzte Wert steht mit
CellCount = Cells(65536, 23).End(xlUp).Row
Nun möchte ich in sagen wir mal Cells(CellCount, 21) die Formel eintragen
Summe aus Cells(Cel...
20.02.2010 14:24:22
Thread-ID: 1139917
7 Beiträge
Sverweis mit VBA funktionier nicht richtig
F.

Hallo zusammen
Ich möchte zu einer Ziffer, welche ab dem zweiten Blatt in A1 steht, die dazugehörige Bezeichnung aus dem ersten Blatt "Konti" (Spalte B) ziehen und diese dann im Feld B1 eintragen. Irgendwas mache ich falsch.
Sub Konten_bezeichnen() Dim i As Long For i = Sheets("Konti")...
10.03.2010 14:58:20
Thread-ID: 1144879
5 Beiträge
SVerweis in VBA umsetzen
Ines

Hallo,
ich habe mir ein Userform erstellt, da ich Daten in Bezug auf das Datum in eine Tabelle eintragen muss.
Mein Problem ist, dass die Daten nicht irgendwo automatisch eingetragen werden sollen.
Ich würde gerne
im Userform 4 Textfelder ausfüllen und das Datum angeben
D...
10.03.2010 21:36:01
Thread-ID: 1145009
9 Beiträge
Formel in VBA umsetzen
Josef


Hallo!
Wie würde bitte die untenstehende Formel in VBA umgesetzt lauten?
=RUNDEN(F11*0,2;2)
F11 wäre in diesem Fall eine TextBox in einer UserForm.
Danke
Josef
15.04.2010 07:06:19
Thread-ID: 1151875
3 Beiträge

Links zu Excel-Dialogen

MessageBox

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
5
2
4
10
13
9
6
4
8
2
1
5
4
2
2
8
3
4
6
6
5
13
1
4
6