wer hat ein script oder gibt tipp, wie in in einer Mappe mit 12 Monatsregistern (01 ... 12) jeweils immer den Monatsersten in Zelle A2 schreibe. Inputbox liefert das Jahr, die ich habe. Tipp wäre prima. Danke!
Gruß
Horst
Sub t()
Dim wks As Worksheet
Dim intYear As Integer
intYear = Application.InputBox("Bitte geben Sie ein Jahr ein", "MONAT", Type:=1)
If Not IsNumeric(intYear) Or intYear = 0 Then Exit Sub
For Each wks In ThisWorkbook.Worksheets
wks.Range("A2") = DateSerial(intYear, CInt(wks.Name), 1)
Next
End Sub
Problemstellung
Wie kann ich die Daten in jeweils einer Spalte von zwei Tabellen vergleichen und doppelte Datensätze löschen?
Problemstellung
Wie kann ich veranlassen, daß eine Tabelle sich beim Öffnen der Arbeitsmappe immer an die auf das aktuelle Datum folgende Kaldenderwoche anpaßt?
Problemstellung
Wie kann ich die Werte von zwei aufeinanderfolgenden Zeile zu einem neuen, gemeinsamen Wert verbinden?
Problemstellung
Wie kann ich bei einem senkrecht geteilten Fenster beim Drücken der rechten Maustaste ein benutzerdefiniertes Kontextmenü im jeweils anderen Fenster aufklappen lassen?
Problemstellung
Wie kann ich mehrere Tabellenblätte nach einer Liste von Artikelnummern durchsuchen lassen und die jeweils letzte Fundstelle neben den Artikelnummern eintragen?
Problemstellung
Wie kann ich eine Adressliste, die jeweils in der ersten Zeile den Namen, in der Zweiten die Straße und in der Dritten den Ort beinhaltet, alphabetisch nach den Namen sortieren lassen?
Problemstellung
Ein Wert soll in die gerade aktive TextBox einer UserForm eingetragen werden.
Problemstellung
Die Zahlen im Bereich B1:Y3 sollen jeweils 4 mal in Spalte AA geschrieben werden.