Fehler bei .Range

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Re: Fehler bei .Range

10.12.2002 13:42:44

Hajo_Zi

Re: Fehler bei .Range

10.12.2002 13:50:21

Philipp

Re: Fehler bei .Range

10.12.2002 13:54:00

Hajo_Zi

Sorry, und DANKE!

10.12.2002 14:30:45

Philipp

Hallo Philipp

es fehlten paar Punkte und klammern brauchten nicht zu sein.


Option Explicit

	

Sub Philipp()

	Dim Zähl As Integer

	Dim y1 As Integer

	Dim var1 As Integer

	var1 = 10

	y1 = 3

	Zähl = 3

	With Worksheets(3)

		.Cells(Zähl, 1) = "NETWORK"

		.Cells(Zähl, 1).Offset(1, 0) = "TITEL=Meldung:"

		.Cells(Zähl, 2).Offset(1, 0) = y1 + 1

		.Cells(Zähl, 3).Offset(1, 0) = "-" & y1 + 8

		.Cells(Zähl, 4).Offset(1, 0) = "/Erstwertmeldung:"

		.Cells(Zähl, 5).Offset(1, 0) = var1

		.Cells(Zähl, 6).Offset(1, 0) = "-" & var1 + 7

		.Range(.Cells(Zähl + 2, 1), .Cells(Zähl + 9, 1)) = "UN"

	End With

End Sub

Code eingefügt mit: Excel Code Jeanie

Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend <pre> Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein

Gruß Hajo

Und wo war jetzt der Fehler?

Sub S7_Schleife()
Dim Sirow As Integer
Dim zähl As Integer
Dim var1 As Integer
zähl = 14
var1 = 1
y1 = Sheets(5).Cells(1, 1)
y2 = Sheets(5).Cells(1, 2)
For Sirow = 1 To 500
With Worksheets(3)
.Cells(zähl, 1) = "NETWORK"
.Cells(zähl, 1).Offset(1, 0) = "TITEL=Meldung:"
.Cells(zähl, 2).Offset(1, 0) = y1 + 1
.Cells(zähl, 3).Offset(1, 0) = "-" & y1 + 8
.Cells(zähl, 4).Offset(1, 0) = "/Erstwertmeldung:"
.Cells(zähl, 5).Offset(1, 0) = var1
.Cells(zähl, 6).Offset(1, 0) = "-" & var1 + 7
.Range(Cells((zähl + 2), 1), Cells((zähl + 9), 1)) = "UN"
.Range(Cells((zähl + 2), 1), Cells((zähl + 9), 1)).HorizontalAlignment = xlCenter
.Range(Cells((zähl + 2), 3), Cells((zähl + 9), 3)) = ";"
.Range(Cells((zähl + 2), 3), Cells((zähl + 9), 3)).HorizontalAlignment = xlCenter
.Range(Cells((zähl + 2), 4), Cells((zähl + 9), 4)) = "="
.Range(Cells((zähl + 2), 4), Cells((zähl + 9), 4)).HorizontalAlignment = xlCenter
.Range(Cells((zähl + 2), 6), Cells((zähl + 9), 6)) = ";"
.Range(Cells((zähl + 2), 6), Cells((zähl + 9), 6)).HorizontalAlignment = xlCenter
End With
var1 = var1 + 8
y1 = y1 + 8
zähl = zähl + 10
Next Sirow
End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread