regel wissen met VBA code met variabele ingave

[grema]

Beste,

klein vraagje , misschien toch complex .


Kan je via een vba code een regel wissen op een zodanige wijze dat je bij het uitvoeren van de opdracht eerst zelf het bereik kan aangeven.


Vb wens lijn 10 te wissen

dan zou code zoiets moeten worden als :

 Range("A10:D10").Select
    Selection.ClearContents

Waarbij je dan de Range zou moeten kunnen ingeven ipv vast gedefinieerd.

Is dit haalbaar???

thx

grema

 

[grema]

betere code / Aleen mogelijkheid op invoegen mankeert ???

 ' wisregel Macro
'Dim Response
   
    Response = MsgBox(" Welke Regel wissen !!! Geef Regel in !!", vbYesNo, " Geef Regel in !!")
    If Response = vbYes Then
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If

    Range("  :   ").Select   ' hier zou dan de keuze moeten komen te staan
    Selection.ClearContents
End Sub

 

[Wigi]

Hoi Mark

zoiets:

Sub regelwissen()

    Dim rWissen As Range
    
    On Error Resume Next
    Set rWissen = Application.InputBox("Klik met de muis in de regel die je wil wissen.", "Regel wissen", Type:=8)
    On Error GoTo 0
    
    If Not rWissen Is Nothing Then Rows(rWissen).ClearContents

End Sub

Wigi

 

[grema]

hoi daar Wim,

Krijg kleine foutmelding :

Fout 13 tijdens uitvoering:
Typen komen niet met elkaar overeen .

Versie Nederlands -- Engels of iets anders. ??

Groet
M.

 

[Wigi]

Op welke regel?

Wat is de inhoud van de variabele rWissen?

Wat heb je met de muis geselecteerd?

 

[grema]

Inhoud van geselecteerde cellen in de rij : vb

$A$12:$E$12

of wanneer de ganse regel wordt aangegeven : $12:$12

 

[Ginger]

Grema, als ik zo heel snel door de code van Wigi scan, denk ik dat je 'm zo moet aanpassen

If Not rWissen Is Nothing Then Rows(rWissen[COLOR="Blue"].row[/COLOR]).ClearContents

(niet getest!)

Groet, Leo

 

[grema]

Leo,

jou code doet het ;
heb toch nog een bijkomende vraag :

Kan je ipv een volledig rij te wissen ook een gedeelte uit een rij wissen met jou of aangepaste formule ??

alvast dank

grema

 

[Ginger]

Grema, ook dit moet ik ff snel en ongetest doen (weinig tijd). Werkt dit?

If Not rWissen Is Nothing Then [COLOR="Blue"]Range(rWissen)[/COLOR].ClearContents

Groet, Leo

 

[grema]

deze laatse doet het niet.

ook niet als ik volgende invoeg :

   (rWissen.Range).ClearContents

zoals je met de code van Wigi deedt.

 

[Finch]

Zoals ik het zie:

gehele rij leegmaken:

If Not rWissen Is Nothing Then rWissen.EntireRow.ClearContents

enkel selectie leegmaken:

If Not rWissen Is Nothing Then rWissen.ClearContents

 

[Ginger]

Grema, Sorry, kleinigheidje in de snelheid vergeten...

If Not rWissen Is Nothing Then Range(rWissen[COLOR="Blue"].Address[/COLOR]).ClearContents

Zo werkt 't we! :thumb:

Groet, Leo

EDIT: ...Finch, je hebt gelijk! Da's nog korter...

 

[Finch]

Grema, Sorry, kleinigheidje in de snelheid vergeten...

If Not rWissen Is Nothing Then Range(rWissen[COLOR="Blue"].Address[/COLOR]).ClearContents

Zo werkt 't we! :thumb:

Groet, Leo

Zo zal ie ook wel werken, maar rWissen is al een range, dus die kan je als dusdanig aanspreken, en moet je niet meer tot een range "omtoveren". Anders was het als rWissen een string was, dan kon je daar een met range(rwissen) een range van maken.

 

[grema]

Ginger en Finch ,


de code draait waarvoor dank !!

grema