Liegt eine Zeit in einem Zeitraum?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hi Boris,
Das habe ich im Forum microsoft.public.de.excel gelesen - Autor: Bert Schulze ...
... liest sich, als hätte B.H. eine Hymne auf sich selbst geschrieben ;-) ...
Ich war blutiger Anfänger in Excel, und habe durch Bernd Held viele Probleme
lösen können, die ich vorher nicht lösen konnte. Daher hat sich das Buch
Excel VBA für mich absolut bezahlt gemacht. Wer schon alles weiß, muß sich
das Buch nicht kaufen und braucht es auch nicht kommentieren. Wer nichts
weiß, der ist mit dem Buch gut bedient. Ich finde, daß sich über Code immer
streiten läßt, aber Tatsache bei Excel sollte doch immer das Ergebnis
bleiben. Wenn ich ein Makro laufen lasse, dann ist es mir wurscht wie es
läuft, hauptsache das Ergebnis stimmt. Klar, wenn ich jetzt was richtig
Großes programmiere, muß man auch hier an die Laufzeit usw. denken, aber das
Buch Excel VBA richtet sich doch mehr an die Anfänger, und die werden doch
bestimmt nicht gleichen einen Mörder-Code von mehreren hundert Seiten
produzieren.
Also hier meine Nachricht an Bernd Held. Ich danke Dir für Deine Bücher und
Dein Wissen. Mag sein, daß es andere besser wissen, aber dann sollen die
doch einfach ihre eigenen Bücher schreiben und Dich vom Markt verdrängen.
Aber warum wohl macht das niemand, warum verkaufen sich Deine Büche so gut.
Ganz einfach, weil sie für die, die am Anfang hilfe suchen, gut zu lesen
sind. Wer ein absoluter Profi ist, der kann sich doch andere Lektüre
besorgen und damit seine Wissensstärken erweitern. Für mich jedenfalls war
Dein Buch ein voller Erfolg.
In diesem Sinne wünsche ich weiterhin viel Erfolg.
PS. Beleidigende Worte sollten in Foren generell nichts zu suchen haben. Wir
sind alle Menschen, und so sollten wir auch miteinander umgehen.
(Kopie davon geht an Bernd Held)
------------------------------------------------------------------------------
Na dann Prost!!!
Am Besten finde ich: "... dann ist es mir wurscht wie es läuft, Hauptsache das Ergebnis stimmt"
Aha! Dem Herrn ist es also sicher auch egal, wenn er über Athen von Berlin nach Bremen fährt ... :D :D :D :D :D
Servus aus dem Salzkammergut
Franz

Hi K.Rola,
...was hälst du davon?
'######################################################
'Anzeige aller ausgeblendeter Zeilen
Sub AlleAusgeblendetenZeilenAnzeigen()
Dim r As Variant
For Each r In ActiveSheet.UsedRange.Rows
If r.Hidden = True Then r.Hidden = False
Next r
End Sub
'######################################################
'Änderungen Spalte A--> Spalte B (Datum+Zeit) festgelegt


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Target.Offset(0, 1).Value = Now
End Sub

'######################################################
'Funktion prüft, ob eine Arbeitsmappe bereits geöffnet ist
Function ArbeitsmappeOffen(AMappe As String) As Boolean
On Error Resume Next
MappeText = Workbooks(AMappe).Name
On Error GoTo Fehler
Workbooks.Open AMappe
OpenBook = True
Exit Function
Fehler:
ArbeitsmappeOffen = False
End Function
'######################################################
'Letzten Wert einer Spalte ermitteln
Function letzterWert(s As String, Spalte As Integer)
Worksheets(s).Select
Cells(1, Spalte).Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Select
Loop
letzterWert = ActiveCell.Offset(-1, 0).Value

End Function

Sub Test()
MsgBox letzterWert("Tabelle2", 2)
End Sub
'######################################################
'Leerzeichen aus ausgewähltem Bereich entfernen
Sub LeerzeichenEntfernen()
Dim Zelle As Range
Dim s As String

For Each Zelle In Selection
For i = 1 To Len(Zelle)
If (Mid(Zelle, i, 1)) " " Then s = s & Mid(Zelle, i, 1)
Next i
Zelle.Value = s
s = ""
Next Zelle
End Sub
'######################################################
'PLZ und Ort trennen
Sub PLzTrennen()
Range("C2").Select
Do Until ActiveCell.Value = ""
ActiveCell.Offset(0, -1).Value = Left(ActiveCell.Value, 5)
ActiveCell.Value = Mid(ActiveCell.Value, 7, 100)
ActiveCell.Offset(1, 0).Select
Loop
End Sub
'######################################################
'Jede dritte Zelle einfärben
Sub JEdeDritteFärben()
Do Until ActiveCell.Value = ""
For i = 1 To 3
ActiveCell.Offset(1, 0).Select
Next i
ActiveCell.Interior.ColorIndex = 3
Loop
End Sub
'######################################################
'Alle ungültigen E-Mail-Adressen aus Liste entfernen
Sub NichtEmailAdressenEntfernen()
Range("A1").Select

Do Until ActiveCell.Value = ""
If InStr(ActiveCell.Value, "@") > 0 Then
ActiveCell.Offset(1, 0).Select
Else
ActiveCell.EntireRow.Delete
End If
Loop
End Sub
'######################################################
'Ausgabe vom Inhalt und Länge eines Textfeldes
Sub TextAusTextfeld()
Dim t, z As Integer
With ActiveSheet.TextBoxes(1)
For z = 1 To .Characters.Count Step 255
t = t & .Characters(z, 255).Text
Next z
End With
MsgBox Len(t) & " " & t
End Sub
'Anmerkung:
'Das erste Textfeld des aktiven Tabellenblattes wird ausgelesen.
'Die max. Kapazität eines Textfeldes beträgt 256 Zeichen.
'Der Operator "&" verkettet die Anzahl der Zeichen und den
'Inhalt des Textfeldes.
Grüße Boris

Beliebteste Forumthreads (12 Monate)

Liegt eine Zeit in einem Zeitraum?

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Liegt eine Zeit in einem Zeitraum?

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread