| Tag Monat Jahr extrahieren | VBA Office |
Spaltenbreite
Registerkarte Start in der Gruppe -> Zellen auf -> Format ->Spaltenbreite automatisch anpassen.
Namen verwenden
http://www.frank-moehle.de/computing/literatur/VBASeminar/VBA%20Seminar%20Namen%20verwenden.htm
Namen aus Excel-Sheet in VBA verwenden
cell(x,y) hat den Namen andreas
MsgBox (Range("andreas").Value)
liefert dir den Wert der benannten Zelle
oder
MsgBox Evaluate(ThisWorkbook.Names("wert").Value)
Prüfen ob Blatt schon vorhanden
http://www.herber.de/forum/archiv/488to492/489431_Pruefen_ob_Blatt_schon_vorhanden.html
Function BlattExistiert(strTestname As String, strMappenname As String) As Boolean
Dim objMappe As Workbook
Dim objBlatt As Worksheet
BlattExistiert = False
Set objMappe = Application.Workbooks(strMappenname)
For Each objBlatt In objMappe.Worksheets
If objBlatt.name = strTestname Then
BlattExistiert = True
Exit For
End If
Next objBlatt
End Function
oder
http://www.denisreis.com/excel-vba-tabellenexistenz-pruefen/
If TabEx("Tabelle1") = True Then
MsgBox "Die Tabelle existiert"
Else
MsgBox "Die Tabelle existiert nicht"
End If
Function TabEx(strTab As String) As Boolean
Dim Blatt As Worksheet
TabEx = False
For Each Blatt In ActiveWorkbook.Worksheets
If Blatt.Name = strTab Then
TabEx = True
Exit Function
End If
Next Blatt
End Function
Tag Monat Jahr aus Datum extrahieren -> zurück
=TEXT(DATUM(;MONAT(G6);1);"MM")&"/"&JAHR(G6)
=MONAT(G6)&"/"&JAHR(G6)
=JAHR(G6) =Year(A1)
Datum um 1 Jahr erhöhen
DATUM(JAHR(A1)+1;MONAT(A1);TAG(A1))
MsgBox
https://www.akademie.de/wissen/vba-lernen-einsteiger-dialogboxen/vba-lernen-dialogboxen-msgbox
Linksammlung
http://www.denisreis.com/excel-vba-grundlagen/#grundlagen
https://www.computerwissen.de/office/excel/artikel/tabellenblaetter-ohne-rueckfrage-per-vba-loeschen.html