Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 515 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 512, 513, 514, 515, 516, 517, 518 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Nach Inputbox gewählten Bereich löschen 
Phelan XLPH

Antworten: 15
Aufrufe: 759

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2009, 18:03   Titel: AW: Nach Inputbox gewählten Bereich löschen Version: Office 2007
Hier ein "unsinniges" Beispiel:

Private Sub Worksheet_Calculate()
Dim cell As Range

For Each cell In Range("A3:A10") 'Bereich Anpassen******************
Select Case cell.Value
Case Is <= 1000: Call test1(cell.Value)
Case Is <= 2000: Call test2(cell.Value)
Case Is <= 3000: Call test3(cell.Value)
Case Is <= 4000: Call test4(cell.Value)
Case Is <= 5000: Call test5(cell.Value)
End Select
Next
End Sub

Sub test1(ByVal zahl As Double)
MsgBox zahl & " <=1000", , "...geht doch!!!"
End Sub
Sub test2(ByVal zahl As Double)
MsgBox zahl & " <=2000", , "...geht doch!!!"
End Sub
Sub test3(ByVal zahl As Double)
MsgBox zahl & " <=3000", , "...geht doch!!!"
E ...
  Thema: Nach Inputbox gewählten Bereich löschen 
Phelan XLPH

Antworten: 15
Aufrufe: 759

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2009, 17:51   Titel: AW: Nach Inputbox gewählten Bereich löschen Version: Office 2007
Mensch Leute, Bereichs-Überwachung schreit doch regelrecht nach dem
Change-Ereigniss !


Oder das Calculate!!!!


so geht das wunderbar, ins codefenster der tabelle.

Private Sub Worksheet_Calculate()
If Range("A4") > 5000 Then Call test
End Sub

Sub test()
MsgBox "...geht doch!!!"
End Sub
  Thema: sehr langer Code zum ausblenden von Zeilen 
Phelan XLPH

Antworten: 10
Aufrufe: 381

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2009, 17:47   Titel: AW: sehr langer Code zum ausblenden von Zeilen Version: Office 2007
Private Sub Worksheet_Calculate()
Dim intCalc As Integer

On Error GoTo ENDE

intCalc = Application.Calculation
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
Application.ScreenUpdating = False

If Range("C45") = 0 Then Range("C47,G47,K47,O47,S47").Value = ""
Rows("47:48").Hidden = (Range("C45") = 0)

If Range("AF17") = True Then Range("L119,P119,S119").Value = ""
Rows("119:120").Hidden = (Range("AF17") = True)

If Range("AF18") = True Then Range("L154,P154,S154").Value = ""
Rows("157:158").Hidden = (Range("AF18") = True)

If Range("AT135") = True Then Range ...
  Thema: Nach Inputbox gewählten Bereich löschen 
Phelan XLPH

Antworten: 15
Aufrufe: 759

BeitragForum: Excel VBA (Makros)   Verfasst am: 29. Nov 2009, 17:28   Titel: AW: Nach Inputbox gewählten Bereich löschen Version: Office 2007
Statt der Funktion =WENN(A4>5000;Makrostart();"")
verwende das Change-Ereignis des Blattes.
  Thema: Zeilennummer finden und wiedergeben 
Phelan XLPH

Antworten: 20
Aufrufe: 2788

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2009, 18:17   Titel: AW: Zeilennummer finden und wiedergeben Version: Office 2k (2000)
Tetse mal...
  Thema: Zeilennummer finden und wiedergeben 
Phelan XLPH

Antworten: 20
Aufrufe: 2788

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2009, 18:09   Titel: AW: Zeilennummer finden und wiedergeben Version: Office 2k (2000)
Du kannst solche Ereignisse deaktivieren mit Application.EnableEvents=False...

...das wäre mir neu, wenn es um Ereignisse von Steuerelementen geht??!!
  Thema: Zahlenwerte aus string extrahieren. 
Phelan XLPH

Antworten: 10
Aufrufe: 4678

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2009, 16:32   Titel: AW: Zahlenwerte aus string extrahieren. Version: Office 2003
Unschlagbar an Effifience.

Sub x2()
Dim i As Long, x() As Byte
Dim k As Long, y() As Byte
Dim s As String

s = "saf234löjk234ljk234lkj234"
x = StrConv(s, vbFromUnicode)
For i = 0 To UBound(x)
If x(i) >= 48 And x(i) <= 57 Then
ReDim Preserve y(k)
y(k) = x(i)
k = k + 1
End If
Next
MsgBox StrConv(y, vbUnicode)
End Sub
  Thema: Zahlenwerte aus string extrahieren. 
Phelan XLPH

Antworten: 10
Aufrufe: 4678

BeitragForum: Excel VBA (Makros)   Verfasst am: 28. Nov 2009, 16:08   Titel: AW: Zahlenwerte aus string extrahieren. Version: Office 2003
UUUUUNNNDDDDD noch ne Möglichkeit!

Sub x()
Dim i As Long, x() As Byte
Dim s As String, z As String

s = "jolwelhjsdf89754jkhrfg897345jrf7835ltrf90"
x = StrConv(s, vbFromUnicode)
For i = 0 To UBound(x)
If x(i) >= 48 And _
x(i) <= 57 Then _
z = z & Chr(x(i))
Next
MsgBox z
End Sub
  Thema: Blattschutz und trotzdem Sortierung zulassen 
Phelan XLPH

Antworten: 2
Aufrufe: 1489

BeitragForum: Excel VBA (Makros)   Verfasst am: 25. Nov 2009, 20:38   Titel: AW: Blattschutz und trotzdem Sortierung zulassen Version: Office 2003
@pefeu , ?????????
  Thema: Kontonummern als Zahlenwerte lesbar machen 
Phelan XLPH

Antworten: 4
Aufrufe: 256

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Nov 2009, 22:24   Titel: AW: Kontonummern als Zahlenwerte lesbar machen Version: Office 2007
MsgBox Replace(Range("A2")," ","")
  Thema: Mehrere Eingabe-Objekte in Funktion zulassen 
Phelan XLPH

Antworten: 6
Aufrufe: 443

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Nov 2009, 22:08   Titel: AW: Mehrere Eingabe-Objekte in Funktion zulassen Version: Office 2k (2000)
oder

Sub Hauptsub()
SagWas "Hallo ", "Spencer"
End Sub

Public Sub SagWas(ByVal Input1 As String, ByVal Input2 As String)
MsgBox Input1 & Input2
End Sub
  Thema: Ausgeblendete Registerkarten per Command Button anzeigen 
Phelan XLPH

Antworten: 12
Aufrufe: 1472

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Nov 2009, 22:05   Titel: AW: Ausgeblendete Registerkarten per Command Button anzeigen Version: Office 2003
so.
  Thema: Innerhalb einer Zeile sortieren 
Phelan XLPH

Antworten: 8
Aufrufe: 527

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Nov 2009, 15:18   Titel: AW: Innerhalb einer Zeile sortieren Version: Office 2003
Jetzt gehts.

siehe unten
  Thema: Zahl in Binärcode übersetzen 
Phelan XLPH

Antworten: 8
Aufrufe: 7887

BeitragForum: Excel VBA (Makros)   Verfasst am: 24. Nov 2009, 06:49   Titel: AW: Zahl in Binärcode übersetzen Version: Office 2007
@Haho76

Auszug aus der Hilfe:

Wandelt eine dezimale Zahl in eine binäre Zahl (Dualzahl) um.

Syntax

DEZINBIN(Zahl;Stellen)

Zahl ist die dezimale ganze Zahl, die Sie umwandeln möchten. Ist Zahl negativ, werden gültige Werte für Stellen ignoriert, und DEZINBIN gibt eine aus 10 Zeichen (10 Bits) bestehende Binärzahl zurück. Das signifikante Bit dieser Zahl ist das Vorzeichenbit. Die anderen 9 Bits sind Betragsbits. Negative Zahlen werden mit der Zweier-Komplement-Schreibweise dargestellt.

Stellen gibt an, wie viele Zeichen angezeigt werden sollen. Fehlt das Argument Stellen, verwendet DEZINBIN nicht mehr Zeichen, als unbedingt erforderlich sind. Stellen ist speziell dann hilfreich, wenn der jeweilige Rückgabewert mit führenden 0-en (Nullen) aufgefüllt werden soll.

Hinweise

Ist Zahl < -512, oder ist Zahl > 511, gibt DEZINBIN den Fehlerwert #ZAHL! zurück.
Ist Zahl kein numerischer Ausdruck, gibt DEZINBIN den Fehlerwert #WERT! zurück.
Benötigt die DEZI ...
  Thema: VBA + RegExp 
Phelan XLPH

Antworten: 18
Aufrufe: 7524

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Nov 2009, 16:40   Titel: AW: VBA + RegExp Version: Office 2007
oder das hier:
 
Seite 515 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 512, 513, 514, 515, 516, 517, 518 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Web Editor Forum