WorksheetFunction Mid?

Private Sub CommandButton4_Click() Dim lRow, i, j, m, n lRow = Cells(Rows.Count, 1).End(xlUp).Row For i = 1 To lRow - 6 j = Range("A" & 6 + i).Address m = WorksheetFunction.Mid(j, 6, 1) & Mid(j, 8, 1) n = WorksheetFunction.Mid(j, 13, 1) & Mid(j, 15, 1) Sheets(1).Range(m).Offset(6, 2).Copy Sheets(1).Range(n).Offset(6, 2).Paste Sheets(1).Range(m).Offset(6, 2) = "" 'stoppen für 6 Sekunden End If Next i End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub Test_Mid() Dim j As String Dim m As String j = "das Excel-Forum bei Herber" m = Mid(j, 6, 2) & Mid(j, 10, 2) MsgBox m 'in Zelle A4 steht:das Excel-Forum bei Herber Range("B4").Value = m Range("C4").Formula = "=MID(RC[-2],6,2)" & "&MID(RC[-2],10,2)" End Sub

Hi Jörn,
mit "Dim lRow, i, j, m, n" hast du die Namen (und den Typ) deiner Variablen recht lässig gewählt.
Manchmal rächt sich das.
j = Range("A" & 6 + i).Address
belegt für i=1 die (String-)Variable j mit der Adresse des Bereichs A7, also mit "$A$7".
Du willst in j aber nicht die Adresse von A7, sondern den Wert stehen haben, also etwa "B w $E$2 > $E$3"
Also müsstest du schreiben:
j = Range("A" & 6 + i).Value ' nicht .Address
In der Zeile
If Range("A" & 6 + i).Value = "" Then
fragst du ja dann richtigerweise den Wert der Zelle ab - und nicht deren Adresse.
Da j jetzt der Wert ist, kannst du nun einfach schreiben:
If j = "" Then
In der Zeile
m = WorksheetFunction.Mid(j, 6, 1) & Mid(j, 8, 1)
verwendest du einmal die Excelfkt. TEIL (als WorksheetFunction.Mid()) und einmal die VBA-Fkt. Mid(j, 8, 1).
Welchen Sinn hat das?
Dass m bislang immer der leere String wurde, lag an der falschen Belegung von j.
Der Text "$A$7" ist einfach nicht lang genug. Die 6. und 8. Stelle sind leer.
Probier es mal mit diesem Übersetzungsversuch:


Private Sub CommandButton4_Click()
Dim lngZ As Long, strZug As String
Dim strVon As String, strHin As String
For lngZ = 7 To Cells(Rows.Count, 1).End(xlUp).Row
strZug = Range("A" & lngZ).Value
If strZug = "" Then
MsgBox "Keine Partiedaten"
Else
strVon = Mid(strZug, 6, 1) & Mid(strZug, 8, 1)
strHin = Mid(strZug, 13, 1) & Mid(strZug, 15, 1)
Range(strHin).Offset(6, 2) = Range(strVon).Offset(6, 2)
Range(strVon).Offset(6, 2) = ""
End If
Next lngZ
End Sub

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort

Hallo Gerd,
"Frauenschalter"? klingt irgendwie negativ gegenüber Frauen *find*
Pass halt auf dich auf, nicht daß eine vom womens lib clup mitliest, die kommen dann dann mit der Schere und es macht mal kurz Schnipp, du weißt schon wo sie abschneiden :-)
Wenn du nicht weißt wovon ich rede, macht nix, weiß ich auch oft selbst nicht *gg*, ich meine dieses:
http://translate.google.de/translate?hl=de&sl=en&u=http://en.wikipedia.org/wiki/Feminist_movement&ei=61NYTcGAJor3sganpOGlCw&sa=X&oi=translate&ct=result&resnum=1&ved=0CCkQ7gEwAA&prev=/search%3Fq%3Dwomens%2Blib%26num%3D100%26hl%3Dde%26prmd%3Divns
Wobei mir das viel zu theoretisch ist, ich merke mir das praktische, wenn du was gegen frauen machst kommen die mit der Schere oder messer :-)
Gruß
Reinhard, der nicht wirklich davon überzeugt ist daß sein Beitrag dem Anfrager bei seinem Excelproblem weiterhilft.

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

WorksheetFunction Mid?

12 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

12
Beiträge zum Forumthread

Beiträge zu diesem Forumthread