[EXCEL] Het grote Excel vragen topic, #3

Hoe kan ik als ik de locatie van een cel heb bepaald met activecell.row en activecell.column later weer terugkeren naar deze cel?

Al gevonden:

quote:

Op dinsdag 24 juli 2007 15:37 schreef DaFan het volgende:
Waarom die Chr(i+64)? Is dat omdat ie anders geen 64 kolommen 'extra' herkent?

i is het kolomnummer en niet de letter die je nodig hebt voor de range functie. omdat CHR(65) "A" is en kolomnummer van kolom "A" 1 is doe je dus CHR(kolomnummer+64) om de kolomletter te krijgen.

Ik heb de code voor scrabble voor wat betreft de letters invullen klaar. het is wel een beetje g4root gewoorden ivm 26 letters . Ik heb een gekleurd vlak van A3 tm O17 (15x15 veld) en twee knop om het veld te wissen (sub Clearfield) en een knop om op de geselecteerde cel een letter in te voeren (sub Letter)

[code]
Sub Clearfield()

Range("A3:O17").Select
Selection.ClearContents
Range("A3").Select

End Sub

Sub Letter()

Dim invoer As String

'slaat lokatie geselecteerde cel op
rij = ActiveCell.Row
kolom = ActiveCell.Column

'controleert of de geselecteerde cel binnen het bereik zit
If rij < 3 Or rij > 17 Then
MsgBox "In het gekleurde vlak blijven, lambek"
Exit Sub
End If

If kolom > 15 Then
MsgBox "In het gekleurde vlak blijven, lambek"
Exit Sub
End If

'controleert of geselecteerde cel leeg is
If ActiveCell.Value <> "" Then
MsgBox "Lege cel selecteren, kweilgat"
Exit Sub
End If

'invoervenster
invoer = InputBox("Geef in te voeren letter", "Scrabble input")

'controleert of er maar 1 letter wordt ingevoerd
If Len(invoer) > 1 Then
MsgBox "Maar 1 letter tegelijk, dufmuts"
Exit Sub
End If

'maakt van kleine letters grote letters
If Asc(invoer) <= 122 And Asc(invoer) >= 97 Then invoer = Chr(Asc(invoer) - 32)

'per letter wordt nu gekeken of die nog ingevoerd mag worden
Select Case invoer
Case "A"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "A" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "A"
End If

'copy paste van de code in case "A" waarbij je de 2x de "A" moet
'vervangen door de gewenste letter en de max_aantal moet aanpassen
Case "B"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "B" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "B"
End If

Case "C"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "C" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "C"
End If

Case "D"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "D" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "D"
End If

Case "E"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "E" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "E"
End If

Case "F"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "F" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "F"
End If

Case "G"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "G" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "G"
End If

Case "H"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "H" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "H"
End If

Case "I"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "I" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "I"
End If

Case "J"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "J" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "J"
End If

Case "K"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "K" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "K"
End If

Case "L"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "L" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "L"
End If

Case "M"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "M" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "M"
End If

Case "N"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "N" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "N"
End If

Case "O"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "O" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "O"
End If

Case "P"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "P" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "P"
End If

Case "Q"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "Q" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "Q"
End If

Case "R"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "R" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "R"
End If

Case "S"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "S" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "S"
End If

Case "T"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "T" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "T"
End If

Case "U"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "U" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "U"
End If

Case "V"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "V" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "V"
End If

Case "W"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "W" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "W"
End If

Case "X"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "X" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "X"
End If

Case "Y"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "Y" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "Y"
End If

Case "Z"
aantal = 0
max_aantal = 5
For i = 1 To 15
For j = 3 To 18
waarde = Range(Chr(64 + i) & j).Value
If waarde = "Z" Then aantal = aantal + 1
Next
Next

If aantal > max_aantal - 1 Then
MsgBox ("Maximaal aantal letters """ & invoer & """ bereikt (" & max_aantal & ")")
Exit Sub
Else
Range(Chr(64 + kolom) & rij).Value = "Z"
End If

Case Else
MsgBox "Wel een letter invoeren stoephoer"

End Select

End Sub
[code]

je moet nog wel ff het max_aantal per letter aanpassen.

_{oh ja en "langste post ever"}

quote:

Op dinsdag 24 juli 2007 16:33 schreef fOubie het volgende:
Hoe zet ik in excel het getal verkregen door [ =maand(NU()) ] om in bv de maandnaam

bv: =maand(nu()) geeft als waarde een 1, dan wil ik dat er in die cel bijvoorbeeld Januari komt.
Een als is geen idee, hier is de lengte beperkt tot misschien een 8 als statements.

Bedankt op voorhand

neem een macrootje op en vervang de macro code vervolgens met onderstaande code


Vervolgens in een excelcel doe je =maandnaam(month(now())) en dan krijg je de naam van de maand

quote:

Op dinsdag 24 juli 2007 16:54 schreef Deetch het volgende:

[..]

neem een macrootje op en vervang de macro code vervolgens met onderstaande code

[ code verwijderd ]

Vervolgens in een excelcel doe je =maandnaam(month(now())) en dan krijg je de naam van de maand

Ja, of dit:

quote:

Op dinsdag 24 juli 2007 16:47 schreef Frollo het volgende:
Als in C1 nou dat =maand(nu()) staat, dan werkt dit volgens mij wel:

=TEKST(DATUM(2007;C1;1);"mmmm") (of ..."mmm")

quote:

Op dinsdag 24 juli 2007 16:57 schreef Frollo het volgende:

[..]

Ja, of dit:
[..]

veel beter

Ik zit met een probleem! Ik ben nou niet een hele ster in Excel maar grootste gedeelte probeer ik zelf op te lossen. Soms lukt het aardig maar nu even niet

Ik ben zelf een weerrapport aan het maken.

1.2.3.4.5.6.7.8.9.10.11.12.13.14.15.16.17.18.19.20.21.......31
Tmin-------------------------------------------------31X hokjes
Tmax------------------------------------------------31X hokjes
Gem-------------------------------------------------31X hokjes

Nu komt het, ik ga dus met gemiddelde waardes werken, opzich niet moeilijk, average aanklikken, hokjes aanwijzen en klaar zou je denken, nee dus. Probleem is dan hij een #DIV/0! fout aangeeft. Nu weet ik niet precies wat dit inhoud, als ik er cijfers in plaats dan is er niks aan de hand, maar zodra ik de vakjes weer leeg gooi krijg ik die fout weer. Is dit op een 1 of andere manier op te lossen? Zodat ik dus gewoon een kaal vakje heb, maar tijdens het invoeren van de temps, dat die gem in werking gaat

Ik heb zelf weerrapport van iemand anders gedownload, daar is alles oke, echter kan ik het allemaal maar niet ontdekken waar het probleem ligt. Aangezien die persoon nogal wat dingen heeft die ik niet gebruik maak ik dus zelf 1 maar moet het wel werken natuurlijk!

quote:

Op woensdag 25 juli 2007 09:20 schreef SpeedyGJ het volgende:

Nu komt het, ik ga dus met gemiddelde waardes werken, opzich niet moeilijk, average aanklikken, hokjes aanwijzen en klaar zou je denken, nee dus. Probleem is dan hij een #DIV/0! fout aangeeft. Nu weet ik niet precies wat dit inhoud, als ik er cijfers in plaats dan is er niks aan de hand, maar zodra ik de vakjes weer leeg gooi krijg ik die fout weer. Is dit op een 1 of andere manier op te lossen? Zodat ik dus gewoon een kaal vakje heb, maar tijdens het invoeren van de temps, dat die gem in werking gaat

Dit is volgens mij de meest elegante manier om een deel/0-fout te ondervangen:

=IF(ERROR.TYPE(AVERAGE(A1:A31)=2),"Geen gegevens",AVERAGE(A1:A31))

Ervan uitgaande dat de getallen waarvan je het gemiddelde wilt berekenen in A1 t/m A31 staan.

Niet alles in 1 keer, B3 B4 C3 C4 etc. De Tmin en Tmax wordt onderaan berekent in een aparte tabel, op deze manier krijg ik de maand uitslag. Maar het gaat nu voornamelijk om de dagelijkse gemiddelde. Wat moet ik met die zin doen?:@

A1:A31 vervangen door B3:B4 en dan doorkopieren.

Gewoon in het vakje zo ja, dan werkt het niet, werk trouwens met excel 2007.

Nou ja, waar het op neerkomt is dat je overal waar nu

=AVERAGE(bladibla)

staat, dit verandert in

=IF(ERROR.TYPE(AVERAGE(bladibla)=2),"Geen gegevens",AVERAGE(bladibla))

quote:

Op woensdag 25 juli 2007 10:21 schreef DaFan het volgende:
Ik zou ISERROR gebruiken ipv ERROR.TYPE = 2 , zo vang je direct alle foutmeldingen op, al maakt het in dit geval weinig uit (er kan niet veel anders mis gaan hier dan delen door 0).

Ja tuurlijk, is ook zo. Maar mijn oplossing kun je in principe nog uitbreiden met routines voor andere soorten fouten (bijvoorbeeld als er letters tussen de getallen staan) en daarom vind ik 'm eleganter.

een beetje de kantjes eraf aan het lopen zeg maar

quote:

Op dinsdag 24 juli 2007 16:53 schreef DaFan het volgende:
Hehe Deetch En je vergeet nu je eigen regel die je net hebt gepost. Ik zou het zo proberen:

Achter max_aantal komt een reeks getallen die aangeven hoe vaak A t/m Z mag voorkomen, gescheiden door komma's, dus 26 keer)
[ code verwijderd ]

Ook hier wordt Chr(x) vervangen door A > Z.

Scheelt een hoop nietwaar

beter

en volledig:

Hoi, weet iemand of het mogelijk is om te linken (hyperlink) naar een bepaalde cel in een ander werkblad?

In HTML zou de link er zo uitzien:
bla.html#51816555

Dus als je er op klikt moet excel dat andere tabblad openen en meteen naar die bepaalde cel springen...

*EDIT is al gelukt.. .was simpel

[ Bericht 6% gewijzigd door FortunaHome op 25-07-2007 15:01:40 ]

quote:

Op woensdag 25 juli 2007 10:18 schreef Frollo het volgende:
Nou ja, waar het op neerkomt is dat je overal waar nu

=AVERAGE(bladibla)

staat, dit verandert in

=IF(ERROR.TYPE(AVERAGE(bladibla)=2),"Geen gegevens",AVERAGE(bladibla))

En dat vertikt die dus.

quote:

Op woensdag 25 juli 2007 14:57 schreef SpeedyGJ het volgende:

[..]

En dat vertikt die dus.

Misschien gebruik je een Engelse Excel onder een Nederlandse Windows? Helpt het als je van de komma's puntkomma's maakt? Dus:

=IF(ERROR.TYPE(AVERAGE(bladibla)=2);"Geen gegevens";AVERAGE(bladibla))