Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1060to1064
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
1060to1064
1060to1064
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

if then vereinfachen, aber wie?

if then vereinfachen, aber wie?
23.03.2009 19:43:56
Thomas
Hi,
ich habe folgende Befehle in einem Block die bei Click aktiviert werden.
If Range("G13").Formula = "" Then Range("E13").Formula =""
das geht dann so weiter bis wir bei
If Range("G43").Formula = "" Then Range("E43").Formula = ""
angekommen sind.
Kann man dieses Vereinfachen und wenn ja, wie?
Danke fürs lesen und eventuelle Helfen
Gruss Thomas

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

Betreff
Datum
Anwender
Anzeige
AW: if then vereinfachen, aber wie?
23.03.2009 19:48:28
Lars
Hi,

Sub t()
Dim z As Long
For z = 13 To 43
If Range("G" & CStr(z)).Formula = "" Then Range("E" & CStr(z)).Formula = ""
Next
End Sub


mfg Lars

AW: if then vereinfachen, aber wie?
23.03.2009 19:51:32
Uwe
Hi Thomas,
ich denke so:

Sub test()
Dim Zelle As Range
For Each Zelle In Range("G13:G43")
If Zelle.Formula = "" Then Zelle.Offset(0, -2).Formula = ""
Next Zelle
End Sub


Gruß
Uwe
(:o)

AW: if then vereinfachen, aber wie?
23.03.2009 20:15:04
Thomas
Hallo Lars und Uwe,
danke für die schnelle Hilfe. Ein von mir gebastelter Block wäre ja noch gegangen, aber ich bräuchte davon zwölf.
Die Syntax von Lars passt genau, bei der von Uwe haut irgendetwas nicht hin. Da wird irgendwie meiner Meinung nach der "E" Block nicht erfasst.
Danke und Gruss Thomas
Anzeige
AW: if then vereinfachen, aber wie?
23.03.2009 20:36:28
Uwe
Hi,
doch, die Spalte E wird in:
Zelle.Offset(0, -2)
durch die -2 "erfasst, die "sagt" gehe zwei Spalten nach links.
Bei mir hat's geklappt. Aber wenn Du mit Lars Code klarkommst ist ja alles Bestens (:-).
Gruß
Uwe
(:o)
AW: if then vereinfachen, aber wie?
23.03.2009 22:12:59
Thomas
Hi,
ich probier das morgen nochmal aus. möglicherweise habe ich heute einfach keine nerven mehr gehabt genau hinzuschauen ob da alle zellen gemäss vorgabe geleert werden. nu lässt mir das erstmal wieder keine ruhe. eingebaut hab ich das ding vom lars, aber ich lern ja gern da ja bekanntlicherweise viele wege nach rom führen.
gruss thomas ;-)
Anzeige
AW: Noch einfacher
24.03.2009 00:11:08
Daniel
weil ohne Schleife und in einer Zeile:

Range("G13:G43").SpecialCells(xlCellTypeBlanks).Offset(0, -2).ClearContents


sollte es vorkommen können, daß es im Bereich keine Leerzellen gibt, müsste man es so erweiteren:


On Error Resume Next
Range("G13:G43").SpecialCells(xlCellTypeBlanks).Offset(0, -2).ClearContents
On Error Goto 0


Gruß, Daniel

AW: Noch einfacher
25.03.2009 12:48:29
Thomas
Hi Daniel und Uwe,
alle drei Vorschläge funktionieren bestens. Aber welcher ist der Schnellste? ;-)
@ Uwe, hast recht gehabt. Ich hatte deinen vorschlag nur ins falsche sheet kopiert gehabt und dann verflixt gerufen. wenn alles leer ist, bleibt auch alles leer. ;-)
@ Daniel, die zu überwachende (G) spalte ist ein variabler schichtplan. die zu leerende (E) spalte ist eine vorgabe der anwesenheit. Nun hab ich schon eine form des automatischen ausfüllens + leerens bei fehlern etc. gefunden und wollte mit der if then anweisung das ausfüllen soweit erleichtern das wenn keine schicht anliegt auch keine anwesenheitsanzeige dazusein hat/braucht.
wenn das teil fertig ist, könnte man es auch mal onlinestellen zum zerpflücken. ;-)
Gruss Thomas
Anzeige

300 Forumthreads zu ähnlichen Themen

If...Then... bei verschiedenen Bedingungen?
Vic

Hallo zusammen
Ich habe folgendes Problem und weiss nicht, wie ich das über mein Marko gelöst bekomme:
In der Spalte "H" habe ich diverse Werte (zwischen 0 und X) und in der Spalte "K" ebenfalls. Nun möchte ich, dass es in der Spalte "L" eine "0" ausgibt, wenn "H" den Wert Null hat und...
13.08.2008 15:00:00
Thread-ID: 1001553
5 Beiträge
Anzeige
Dateiformat nicht erkennabar (VBA)
Richard

hallo
hab da ein vba-skript, das beim unteren der beiden Zeilen eine Fehlermeldung bringt:
CreateObject("Scripting.FileSystemObject").CopyFile "C:\Program Files\" & Dateiname_neu, "C:\Program Files\Kopie.txt", True
Workbooks.OpenText FileName:="C:\Program Files\Kopie.txt" _
02.10.2008 19:52:02
Thread-ID: 1013959
2 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
Anzeige
Command Button schützen vor VBA
Hüseyin

Hallo zusammen,
habe eine kurze Frage und hoffe ihr könnt mir weiterhelfen,
ich habe ein Exceldokument mit Commandbuttons drin. Wenn ich allerdings über VBA eine "Sortierung" oder "Komprimierung" über das Tabellenblatt laufen lasse, werden meine Buttons kleiner bzw. sehen gequetscht aus...
28.10.2008 11:21:33
Thread-ID: 1019856
3 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Zugriff auf andere Programm/Daten in/exportieren
abu

Hallo Zusammen,
ich wuerde gerne wissen ob Excel in der Lage ist aus einem anderen Programm (Prologs) Daten zu exportiern und darzustellen und umgekehrt. Desweiteren wuerde ich gerne eine Routine in Excel programmieren (besser versuchen hinzubekommen) welche ueber den InternetExplorer auf e...
09.12.2008 10:50:51
Thread-ID: 1031278
11 Beiträge
VBA Script in andere Tabellen
Jörg

Hallo,
mich würde mal interessieren, ob es möglich ist, das Script einer Tabelle öffentlich für andere Tabellen zu machen. Derzeit ist es so, wenn ich das Makro in anderen Tabellen anwende, öffnet sich erst die Tabelle in der das Makro drin steht. Kann man das umgehen?
Für Eure Hilfe vi...
14.01.2009 11:42:23
Thread-ID: 1039546
16 Beiträge
if then interiorcolor
serge

Hallo Leute
ich möchte dass wenn die angeklicke Zelle Rot ist mein Makro ablauft (es können verschiedene Zellen sein.
Ich habe es mit:
Private Sub Worksheet_selectionChange(ByVal Target As Range) If Target.Interior.ColorIndex = 3 Then "mein makro" End If End Sub
unter anderem...
21.01.2009 22:45:00
Thread-ID: 1042391
15 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
4
2
1
6
7
2
3
10
15
14
6
4
4
1
3
4
2
1
11
2
3
1
8
1
5