/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
VB & Excel
Fra : Jens Andersen


Dato : 02-08-01 16:24

Hvordan fjerner jeg Kulonne A ?

Min kode ser sådan ud nu

Option Explicit
Dim Ex As Excel.Application

Private Sub Workbook_Open()

Set Ex = New Excel.Application
Ex.DisplayAlerts = False

Sheets("ark1").Activate
If ActiveSheet.Range("a1").Value = "1" Then
' Her skal den fjerne Kulonne A
MsgBox "Der stod 1", , "Test"
End If

End Sub



 
 
Søren Remfeldt (02-08-2001)
Kommentar
Fra : Søren Remfeldt


Dato : 02-08-01 16:35

Indsæt følgende linie :
Columns("A:A").Delete Shift:=xlToLeft
så skulle det virke !
mvh
Søren

"Jens Andersen" <til@infojens.dk> skrev i en meddelelse
news:3b69709d$0$2560$edfadb0f@dspool01.news.tele.dk...
> Hvordan fjerner jeg Kulonne A ?
>
> Min kode ser sådan ud nu
>
> Option Explicit
> Dim Ex As Excel.Application
>
> Private Sub Workbook_Open()
>
> Set Ex = New Excel.Application
> Ex.DisplayAlerts = False
>
> Sheets("ark1").Activate
> If ActiveSheet.Range("a1").Value = "1" Then
> ' Her skal den fjerne Kulonne A
> MsgBox "Der stod 1", , "Test"
> End If
>
> End Sub
>
>



Jens Andersen (02-08-2001)
Kommentar
Fra : Jens Andersen


Dato : 02-08-01 17:15

Din løsning virker også perfekt til opgaven Søren

Tak for den


"Søren Remfeldt" <sremo@post.tele.dk> wrote in message
news:3b697235$0$79877$edfadb0f@dspool01.news.tele.dk...
> Indsæt følgende linie :
> Columns("A:A").Delete Shift:=xlToLeft
> så skulle det virke !
> mvh
> Søren
>
> "Jens Andersen" <til@infojens.dk> skrev i en meddelelse
> news:3b69709d$0$2560$edfadb0f@dspool01.news.tele.dk...
> > Hvordan fjerner jeg Kulonne A ?
> >
> > Min kode ser sådan ud nu
> >
> > Option Explicit
> > Dim Ex As Excel.Application
> >
> > Private Sub Workbook_Open()
> >
> > Set Ex = New Excel.Application
> > Ex.DisplayAlerts = False
> >
> > Sheets("ark1").Activate
> > If ActiveSheet.Range("a1").Value = "1" Then
> > ' Her skal den fjerne Kulonne A
> > MsgBox "Der stod 1", , "Test"
> > End If
> >
> > End Sub
> >
> >
>
>



Jens Andersen (02-08-2001)
Kommentar
Fra : Jens Andersen


Dato : 02-08-01 16:46

Fik den

Dim Ex As Excel.Application

Private Sub Workbook_Open()

Set Ex = New Excel.Application
Ex.DisplayAlerts = False

Sheets("ark1").Activate

Set currentCell = Worksheets("ark1").Range("A1")
currentCell.EntireColumn.Delete

End Sub




Søg
Reklame
Statistik
Spørgsmål : 177558
Tips : 31968
Nyheder : 719565
Indlæg : 6408929
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste