Hallo nette Leute im Forum,
wer kann mir behilflich sein:
Wie ist es zu bewerkstelligen, dass ich über eine Abfrage Eingaben machen kann, damit das VB script variabel aufgrund der von ... bis Registereingabe auch nur diese verarbeitet? Mein Versuch mit Inputbox mit Zelleneintrag funktionierte nicht. Wer weiß Rat?
Es geht um den von-bis-Bereich bei
'For intIndex = 1 To 12
For intIndex = 1 To 3
Set objSh = Sheets(Format(intIndex, "00"))
Danke. Gruß Horst
Sub Zusammenfassung_Q1()
Dim objShZ As Worksheet, objSh As Worksheet
Dim intIndex As Integer, intCol As Integer, intLastCol As Integer
Dim lngRow As Long, lngLastRow As Long, lngNew As Long
Dim rngFind As Range
On Error Resume Next
Set objShZ = Sheets("Zusammenfassung")
If objShZ Is Nothing Then
Set objShZ = Worksheets.Add(After:=Sheets(Sheets.Count))
With objShZ
.name = "Zusammenfassung"
.Cells(2, 1) = "ObjektNr."
.Cells(2, 2) = "Objekt"
With .Rows("2:2")
.Borders(xlDiagonalDown).LineStyle = xlNone
.Borders(xlDiagonalUp).LineStyle = xlNone
With .Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
...
........ -&gt dann
...
'For intIndex = 1 To 12
For intIndex = 1 To 3
Set objSh = Sheets(Format(intIndex, "00"))
' Application.StatusBar = "Importiere: " & Format(DateSerial(1, intIndex, 1), "mmmm") & ", Bitte warten...."
...