Code ist sehr groß geworden! Was für Profis!!!
26.12.2005 14:52:33
Swen
ich habe mir gerade einen Code gebaut mit laueter Variabeln
und weis nicht ob da so noch Ok ist!
Ich muß den unbedingt zusammenfassen und kleiner bekommen.
Wie würdet ihr sowas machen würde mich über jeden Tip freuen!
Sub Daten_auf_Null_rechnen()
'*** Deklaration der Variabeln ***'
Dim intZaehler1 As Integer, intZaehler2 As Integer, intZaehler3 As Integer, intZaehler4 As Integer
Dim intZahlhohlen As Integer, intStartX As Integer, intAnfangX As Integer, intWertX As Variant
Dim intZaehler5 As Integer, intZahelHolenX As Integer, intZaehler6 As Integer, intZaehler7 As Integer
Dim intZaehler8 As Integer, intZaehler9 As Integer, intStartY As Integer, intAnfangY As Integer
Dim intWertY As Integer, intZahlHolenY As Integer, intZahl As Integer
Dim rngMyRangeX As Range, rngMyRangeY As Range
Application.ScreenUpdating = False
Worksheets("Coordinates").Select
'*** Den Variabeln zur Berechnung der X Werte werden entsprechende Werte zugrordnet ****'
intStartX = Zelle_suchen_Spalte("Lfd.Nr.", 1)
intStartX = intSearchSpalte + 1
intZaehler1 = Worksheets("Coordinates").Cells(17, 3).Value
intZaehler2 = intStartX + intZaehler1
Set rngMyRangeX = Worksheets("Coordinates").Range(Cells(24, 4), Cells(intZaehler2, 4))
intZaehler3 = Application.WorksheetFunction.Min(rngMyRangeX)
intZaehler4 = Worksheets("Coordinates").Cells(17, 3).Value
intZahlhohlen = 1
intAnfangX = 0
intWertX = 1
'*** Den Variabeln zur Berechnung der X Werte werden entsprechende Werte zugrordnet ****'
For intZaehler5 = 1 To intZaehler4
Worksheets("Coordinates").Select
intZahelHolenX = intStartX + intAnfangX
intWertX = Cells(intZahelHolenX, 4).Value
intWertX = intWertX + (intZaehler3 * (-1))
With Cells(intZahelHolenX, 4)
.Select
.Value = intWertX
End With
intAnfangX = intAnfangX + 1
Next
'*** Den Variabeln zur Berechnung der Y Werte werden entsprechende Werte zugrordnet ****'
intStartY = Zelle_suchen_Spalte("Lfd.Nr.", 1)
intStartY = intSearchSpalte + 1
intZaehler6 = Worksheets("Coordinates").Cells(17, 3).Value
intZaehler7 = intStartY + intZaehler6
Set rngMyRangeY = Worksheets("Coordinates").Range(Cells(24, 5), Cells(intZaehler7, 5))
intZaehler8 = Application.WorksheetFunction.Min(rngMyRangeY)
intZaehler9 = Worksheets("Coordinates").Cells(17, 3).Value
intZahlHolenY = 1
intAnfangY = 0
intWertY = 1
'*** Die Y Werte werden auf Null gerechnet ***'
For intZaehler5 = 1 To intZaehler9
intZahl = intStartY + intAnfangY
intWertY = Cells(intZahl, 5).Value
intWertY = intWertY + (intZaehler8 * (-1))
With Cells(intZahl, 5)
.Select
.Value = intWertY
End With
intAnfangY = intAnfangY + 1
Cells(1, 1).Select
Next
blnNadelaufNull = True
Application.ScreenUpdating = True
End Sub
Gruß
Swen