Private Sub CommandButton1_Click()
MsgBox "Antal Kvm." & vbNewLine & " " & vbNewLine & "Samlet boligareal" & vbNewLine & "Samlet erhverv" & vbNewLine & "Udnyttet kælder" & vbNewLine & "Udnyttet tagetage" & vbNewLine & " " & vbNewLine & "OBS! - Uudnyttet kvm. i kælder eller tagetage holdes udenfor beregning" & vbNewLine & " " & vbNewLine & "Kælder anvendt til kælderrum, vaskekælder o.lign. betegnes ikke som udnytter" & vbNewLine & " " & vbNewLine & "Byggeforbedringer, udestuer, carporte, redskabsskure og ligende" & vbNewLine & "Er dækket med Brand, storm og anden bygningsbeskadigelse for maksimalt 158.562 kr. pr. bolig"
End Sub
Private Sub CommandButton2_Click()
MsgBox "INGEN PRODUKTION I BYGNINGER!" & vbNewLine & "___________________________" & vbNewLine & "Andels- og ejerforeninger:" & vbNewLine & "I københavn defineres som post nr. 0000-2500" & vbNewLine & "Branchekode 682020+683220" & vbNewLine & " " & vbNewLine & "Boligudlejningsejendomme:" & vbNewLine & "I København defineres som post nr. 0000-2500" & vbNewLine & "Ejendomme primær til udlejning af boliger." & vbNewLine & " " & vbNewLine & "Shopping centre:" & vbNewLine & "Shoppingcentre, butikker og supermarkeder" & vbNewLine & " " & vbNewLine & "Investeringsejendomme" & vbNewLine & "Ejendomme med udlejning til liberalt erhverv, cafe, firnesscenter, bowlinghal o.lign. INGEN PRODUKTION" & vbNewLine & " " & vbNewLine & "Lager og engrosvirksomheder sam logistikejendomme" & vbNewLine & "Lager af ikke tyveritækkelige vare (ej højlager o/8 meter) Engroshandel og logistik ejendomme" & vbNewLine & " " & vbNewLine & "Hotel og restaurant" & vbNewLine & "Ejendomme hvori størstedelen anvedes til hotel og/eller restaurant"
End Sub
Sub Fardigør()
Dim RowCnt As Long
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name <> "Virksomhedsoplysninger" And ws.Name <> "Begæring" And ws.Name <> "Retshjælp" Then
With ws
For RowCnt = 24 To 200
If .Cells(RowCnt, 1).Value = False Then
.Rows(RowCnt).Hidden = True
End If
Next RowCnt
End With
End If
Sheets(Range("z2").Value).Select
Next ws
End Sub
Sub naeste_Tilbud()
ActiveSheet.Next.Select
End Sub