Der Einsatz von Formeln in der VBA-Umgebung kann bspw. dann Sinn machen, wenn eine Zelle zeitgleich ein Eingabefeld ist sowie eine Berechnung. Wenn “Zelle A1” = “Manuelle Eingabe” Dann “Eingabefeld” Sonst “Automatische Berechnung” In diesem Excel-Tutorial Video bilden wir die Wenn-Funktion von Excel in einem Makro ab. Wenn
Sie bereits mit Formeln in Excel umgehen können und den nächsten Schritt wagen möchten, ist dieses Video eine gute Möglichkeit, um ein erstes Makro (VBA) zu schreiben. exact construct GmbH / 26. September 2014 Herbers Excel-Forum - das ArchivWenn, Dann, Sonst mit VBA | Herbers Excel-Forum
Betrifft: Wenn, Dann, Sonst
mit VBA Geschrieben am: 27.11.2011 15:16:42 Hallo zusammen, Betrifft: AW: Wenn, Dann, Sonst mit VBA Betrifft: THX Hajo,....doch soo einfach... Betrifft: AW: Wenn, Dann, Sonst mit VBA Geschrieben am: 27.11.2011 15:33:22 Sub calcIt() Dim i As Long i = 5 'Du musst in die Variable i irgendeinen Wert schreiben If ActiveSheet.Range("A46") > 0 Then Sheets("Datenbank").Cells(i, 10) = Sheets("Rechnung").Cells(68, 6) 'Netto Sheets("Datenbank").Cells(i, 11) = Sheets("Rechnung").Cells(69, 6) 'MwSt Sheets("Datenbank").Cells(i, 12) = Sheets("Rechnung").Cells(70, 6) 'Brutto Else Sheets("Datenbank").Cells(i, 10) = Sheets("Rechnung").Cells(32, 6) 'Netto Sheets("Datenbank").Cells(i, 11) = Sheets("Rechnung").Cells(34, 6) 'MwSt Sheets("Datenbank").Cells(i, 12) = Sheets("Rechnung").Cells(35, 6) 'Brutto End If End Sub
Gru� Betrifft: ebenfalls Danke Jochen... Betrifft: AW: ebenfalls Danke
Jochen... Geschrieben am: 27.11.2011 15:41:24
Excel VBA Befehle Folge 13: If Then Else VerzweigungenInhalt dieser Folge:
Den Inhalt der Folge kostenlos als PDF einsehen
Beispiel 1: Verzweigungen mit zwei OptionenSub Beispiel1() If Cells(2, 1).Value < 5 Then 'Wenn der Eintrag in Zelle A2 kleiner 5 ist 'Wenn der Eintrag in Zelle A2 nicht größer 5 ist End Sub Beispiel 2: Verzweigungen mit drei OptionenSub Beispiel2() If Cells(4, 1).Value = 4.3 Then
'Wenn der Eintrag in Zelle A4 gleich 4,3 ist ElseIf Cells(4, 1).Value < 5 Then 'Wenn der Eintrag in Zelle A4 kleiner 5 ist Else 'Wenn der Eintrag in Zelle A4 nicht größer 5 ist End If End Sub Beispiel 3: If-Then-Else-Verzweigung mit For-Schleife kombinierenSub Beispiel3() Dim i As Integer For i = 2 To 10 If Cells(i, 1).Value = 4.3 Then 'Wenn der Eintrag in Zelle A4 gleich 4,3 ist Cells(i, 2).Interior.ColorIndex = 6 ElseIf Cells(i, 1).Value < 5 Then 'Wenn der Eintrag in Zelle A4 kleiner 5 ist Cells(i, 2).Interior.ColorIndex = 4 Else 'Wenn der Eintrag in Zelle A4 nicht größer 5 ist Cells(i, 2).Interior.ColorIndex = 3 End If Next End Sub Folge 13 / 33Alle Folgen der VideoReihe auf einen BlickFolge 01 Arbeitsmappen und Tabellenblätter ansprechen, sortieren, ...Folge 02 Zellen ansprechen Folge 03 Meldeboxen, MsgBox (PopUpFenster) Folge 04 Schrifteinstellungen (Fett, Kursiv, Schriftart, Schriftfarbe, Schriftgröße, ...) Folge 05 Variablen & Datentypen in VBA Folge 06 Arrays / Datenfelder in VBA Folge 07 For Next - Schleifen in VBA Folge 08 Dynamische Arrays Folge 09 Rechenoperationen Folge 10 Vergleichsoperatoren Folge 11 Logische Operatoren Folge 12 SuchFunktion (Einträge & Begriffe in Zellen suchen) Folge 13 If Then Else - Verzweigungen in VBA Folge 14 Do While Loop - Schleifen in VBA Folge 15 Endlosschleifen verhindern Folge 16 Die SortierFunktion (sortieren, nach mehreren Kriterien) Folge 17 Select Case - Verzweigungen in VBA Folge 18 InputBox (gestalten und Eingaben verwenden) Folge 19 For Each - Schleifen in VBA Folge 20 Borders-Eigenschaften (Dynamisches Tabellendesign erstellen) Folge 21 Laufzeitfehler & Syntaxfehler - finden und beheben Folge 22 On Error GoTo - Laufzeitfehler abfangen Folge 23 Alle Farben in VBA nutzen (ColorIndex, vb Color, RGB) Folge 24 Zeichen ersetzen mit der REPLACE Funktion Folge 25 Zeichen trennen mit der SPLIT Funktion Folge 26 Zeichen verbinden mit der JOIN Funktion Folge 27 Auszug aus einer Zeichenkette - LEFT, RIGHT, MID Funktion Folge 28 Zeichenketten vergleichen mit UCase & LCase Folge 29 Arbeitsmappen Ereignisse (Open, BeforeClose, BeforeSave) Folge 30 Tabellenblatt Ereignisse (Change, BeforeDoubleClick) Folge 31 Zeilen und Spalten fixieren (FreezePanes) Folge 32 Kommentare einfügen mit VBA (AddComment) Folge 33 Zellen verbinden & Warnmeldungen ignorieren |