Autorenarchiv
Mehrzeilige Texte in MessageBox anzeigen
Nachfolgender Code gibt eine MessageBox aus, welche in der ersten Zeile "Hallo", in der zweiten Zeile "mein Name ist:" und in der dritten Zeile "Tamara" ausgibt.
& vbCrLf & bewirkt hierbei den Wechsel in die nächste Zeile, diesen Befehl mehrfach hintereinander geschaltet, ergibt entsprechend häufige Zeilenwechsel und demzufolge bei einer zweifach-Schaltung eine Leerzeile.
Sub MessageBox1() MsgBox "Hallo" & vbCrLf & "mein Name ist:" & vbCrLf & vbCrLf & "Tamara" End Sub
& vbCrLf & bewirkt hierbei den Wechsel in die nächste Zeile, diesen Befehl mehrfach hintereinander geschaltet, ergibt entsprechend häufige Zeilenwechsel und demzufolge bei einer zweifach-Schaltung eine Leerzeile.
Veröffentlicht in 
Schlagworte:
Wechsel zu bestimmten Tabellenblatt
Nachfolgender Code bewirkt den Wechsel zu einem anderen Tabellenblatt.
In Abhängigkeit des Wertes der Zelle A1 des Tabellenblattes, wird zu dem Tabellenblatt gewechselt, welches den gleichen Namen hat, wie die Zelle den Wert.
Dieser Blattwechsel funktioniert nur dann wenn die Werte, welche in A1 erfasst werden die gleichen Namen haben, wie die Tabellenblätter.
In Abhängigkeit des Wertes der Zelle A1 des Tabellenblattes, wird zu dem Tabellenblatt gewechselt, welches den gleichen Namen hat, wie die Zelle den Wert.
Dieser Blattwechsel funktioniert nur dann wenn die Werte, welche in A1 erfasst werden die gleichen Namen haben, wie die Tabellenblätter.
Application.Worksheets((Application.ActiveSheet.Range("A1").Value)).Activate
Blättern in Excelarbeitsmappe
Nachfolgender Code bewirkt den Wechsel zum nächsten Tabellenblatt
Nachfolgender Code bewirkt den Wechsel zum vorangegangenen Tabellenblatt
Application.ActiveSheet.Next.ActivateNachfolgender Code bewirkt den Wechsel zum vorangegangenen Tabellenblatt
Application.ActiveSheet.Previous.Activate
Ausblendung von Zeilen abhängig von Zellwerten
Prüfung der Zeilen 1 bis 10, wenn die Zelle in der Spalte A den Wert "A" enthält, wird die Zeile ausgeblendet.
Wenn dieser Code häufiger ausgeführt werden soll, so ist es ratsam, die zuvor ausgeblendeten Zeilen erst wieder einzublenden und danach erst eine Ausblendung anhand des Kriteriums herbeizuführen. Der ergänzte Code stellt sich dann wie folgt dar:
Sub Ausblenden() Dim i As Integer i = 0 For i = 1 To 10 If Cells(i, 1) = "A" Then Rows(i).Hidden = True End If Next i End Sub
Wenn dieser Code häufiger ausgeführt werden soll, so ist es ratsam, die zuvor ausgeblendeten Zeilen erst wieder einzublenden und danach erst eine Ausblendung anhand des Kriteriums herbeizuführen. Der ergänzte Code stellt sich dann wie folgt dar:
Sub Ausblenden() Cells.EntireRow.Hidden = False Dim i As Integer i = 0 For i = 1 To 10 If Cells(i, 1) = "A" Then Rows(i).Hidden = True End If Next i End Sub
Hintergrundfarbe einer Zelle in Abhängigkeit des Wertes einer anderen Zelle ändern
Nachfolgendes Makro prüft für die Zeilen 1 bis 10, ob der Wert der Zelle in Spalte A "1" entspricht. Wenn der Wert der Zelle "1" ist, wird die Zelle in Spalte B in der gleichen Zeile gelb gefärbt.
Sub Faerben() Dim IZelle As Integer IZelle = 0 For IZelle = 1 To 10 If Cells(IZelle, 1) = "1" Then Cells(IZelle, 2).Interior.ColorIndex = 6 End If Next End Sub
Einblenden von ausgeblendeten Zeilen in Excel
Nachfolgender Code bewirkt dass vor Code Anwendung ausgeblendete Zeilen mittels Anwendung dieses Befehls wieder eingeblendet werden
Cells.EntireRow.Hidden = False
Wingdings 1
(c) Tamara Buchwald
Webdings
(c) Tamara Buchwald