Re: Tabelle leer?
30.12.2002 17:32:02
Georg_zi
Hallo L.Viraein Hallo zu Beginn und ein Gruß am Ende läst den Beitrag doch gleich viel freundlicher aussehen. Auch wenn Du den Beitrag am Computer eingibst sitzen an der anderen Seite doch Leute und keine Maschinen die auf Deinen Beitrag Antworten und da sollte Zeit für die paar Worte doch vorhanden sein.
ich habe den Eindruck solche Beiträge bringen den Fragesteller auch nicht weiter.
Option Explicit
Sub Jens()
If ActiveSheet.Type = xlWorksheet Then
If ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Address = "$A$1" And _
Range("A1") = "" And ActiveSheet.Shapes.Count = 0 Then
MsgBox "Tabelle leer"
Else
MsgBox "Tabelle gefüllt"
End If
Else
MsgBox "Das ausgewählte Register ist keine Tabelle"
End If
End Sub
Code eingefügt mit: Excel Code Jeanie
Code Jeanie
Frage
Das Umsetzen nach Html klappt perfekt, auch die Ansicht in den Foren ist gegeben. Bei manchen Foren kann man aber anscheinend nicht den dargestellten Code nach VBA rückkopieren. Warum?
Antwort
Dies liegt nicht an der Code Jeanie !!! Manche Foren interpretieren anscheinend < pre > < /pre > Tags nicht richtig und erzeugen am Zeilenende einen weichen Zeilenumbruch anstatt eines harten Zeilenumbruches. Dies führt dazu, dass im VBA-Editor die Zeilen hintereinander geschrieben werden. Zum Rückkopieren in solchen Fällen: Fügen Sie den kopierten Code aus dem Forum nach Word ein, kopieren Sie ihn dort wieder und fügen Sie ihn dann im VBA - Editor ein
Gruß Hajo