Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 751 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 748, 749, 750, 751, 752, 753, 754 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Zeilen ausblenden bei 2 Bedingungen 
Phelan XLPH

Antworten: 4
Aufrufe: 866

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Feb 2009, 22:11   Titel: AW: Zeilen ausblenden bei 2 Bedingungen Version: Office 2003
Hallo Marvin,

...nur zur Info, deine Prozedur untersucht SpalteA(1) und nicht F(6)

Sub Zeile_Bedingung_ausblenden()
Dim i As Long
For i = 6 To 248
If Cells(i, 6).Value = "" And Cells(i, 7).Value = "" Then
Rows(i).Hidden = True
End If
Next i
End Sub

Gruß
  Thema: Daten in MINUTENTAKT kopieren in andere Tabelle. 
Phelan XLPH

Antworten: 9
Aufrufe: 345

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Feb 2009, 22:04   Titel: AW: Daten in MINUTENTAKT kopieren in andere Tabelle. Version: Office 2007
Hab da auch was jetzt aber korregiert,

Beim Öffnen auf JA klicken und dann auf den Reiter Daten-Aufnahme

Probiers aus, vielleicht gefällts... Smile
  Thema: Daten in MINUTENTAKT kopieren in andere Tabelle. 
Phelan XLPH

Antworten: 9
Aufrufe: 345

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 23:05   Titel: AW: Daten in MINUTENTAKT kopieren in andere Tabelle. Version: Office 2007
Hallo,
soll nach 18Uhr automatisch eine Kopie erstellt werden, und automatisch
mit dem Übertragen in tab2 aufgehört werden.

Beschreib mal näher
  Thema: Tabelle automatisch sortieren 
Phelan XLPH

Antworten: 3
Aufrufe: 762

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 22:02   Titel: AW: Tabelle automatisch sortieren Version: Office XP (2002)
...was ist mit aufzeichnen?
  Thema: Preise ersetzen 
Phelan XLPH

Antworten: 8
Aufrufe: 313

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 21:54   Titel: AW: Preise ersetzen Version: Office 2003
...ich verstehe nicht ganz!

...funz es jetzt oder nicht?

so in vba:

Dim Zahl, Stellen, Text1
Zahl = 53 ' Variable initialisieren.
If Zahl < 10 Then
Stellen = 1
ElseIf Zahl < 100 Then
' Bedingung ist erfüllt, also wird die nächste Anweisung ausgeführt.
Stellen = 2
Else
Stellen = 3
End If
  Thema: Verlgeich von 2 Tabellen wenn ein Wert Identisch ist. 
Phelan XLPH

Antworten: 13
Aufrufe: 336

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 21:25   Titel: AW: Verlgeich von 2 Tabellen wenn ein Wert Identisch ist. Version: Office 2003
Sorry mo,

ich bin kein Profi hab ewig daran gebastelt!

ich wollts nur mal zum testen posten!

Dein Code ist auch Super Crying or Very sad Confused Wink Smile
  Thema: Verlgeich von 2 Tabellen wenn ein Wert Identisch ist. 
Phelan XLPH

Antworten: 13
Aufrufe: 336

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 21:11   Titel: AW: Verlgeich von 2 Tabellen wenn ein Wert Identisch ist. Version: Office 2003
Rückruf-Aktion!!!

8)
  Thema: Dateipfad und Datei im Userdialog vorbelegen und auswählen 
Phelan XLPH

Antworten: 4
Aufrufe: 2476

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 20:30   Titel: AW: Dateipfad und Datei im Userdialog vorbelegen und auswähl Version: Office 2003
ANITA,ANITA bitte schön...Danke sehr..musste grad an son Gaudilied denken Smile

Sub DialogÖffnen()
Dim Pfad As String

ChDrive "D:"
ChDir "D:\Test\"
Pfad = Application.GetOpenFilename("Alle Dateien (*.*),*.* ")

If Pfad = "Falsch" Then Exit Sub
MsgBox Pfad

End Sub
  Thema: Fertige Anwendung Dienstplan mit Fehlern? 
Phelan XLPH

Antworten: 6
Aufrufe: 1257

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 20:19   Titel: AW: Fertige Anwendung Dienstplan mit Fehlern? Version: Office 2007
Hi,

Sieht gut aus...vba ist gesperrt "test" hat nix gebracht Rolling Eyes
  Thema: Zellenformatierung ändern mit einem Code 
Phelan XLPH

Antworten: 2
Aufrufe: 265

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 20:05   Titel: AW: Zellenformatierung ändern mit einem Code Version: Office 2003
Hallo,

nimm das Evil or Very Mad :

Sub ArtNrRotMarkierung()
Dim wks As Worksheet
Dim lngZeile As Long
Dim lngLetzteZeile As Long
Dim lngSpalte As Long

Set wks = Worksheets("Tabelle5")
lngLetzteZeile = wks.Cells(wks.Rows.Count, 1).End(xlUp).Row
With wks.Rows(1)
.Font.ColorIndex = xlColorIndexAutomatic
.Find(Date, , xlFormulas).Font.ColorIndex = 3
lngSpalte = .Find(Date, , xlFormulas).Column
End With
For lngZeile = 3 To lngLetzteZeile
If wks.Cells(lngZeile, lngSpalte) = "" Then
wks.Cells(lngZeile, 2).Font.ColorIndex = 3
Else
wks.Cells(lngZeile, 2).Font.ColorIndex = xlColorIndexAutomatic
End If
Next

End Sub

... Wink
  Thema: In Zellen nur Zahlen erlauben mit ausnahme y,n 
Phelan XLPH

Antworten: 6
Aufrufe: 4905

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 19:14   Titel: AW: In Zellen nur Zahlen erlauben mit ausnahme y,n Version: Office 2007
Haido Ho,

ins Codefenster deines Tabellenblattes:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A15:A30")) Is Nothing And Target.Cells.Count = 1 Then
If Not IsNumeric(Target) And UCase(Target) <> "Y" And UCase(Target) <> "N" Then
Target.Select
MsgBox "Es sind nur Zahlen erlaubt! ...sowie [y] und [n]!", vbCritical, "Hinweis"
Target = ""
End If
End If
End Sub
  Thema: Frage zur Parameterübergabe ByRef 
Phelan XLPH

Antworten: 7
Aufrufe: 4666

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 18:40   Titel: AW: Frage zur Parameterübergabe ByRef Version: Office 2003
Danke für die Info,

Hab auch noch mal ein Auszug aus der Hilfe:

Wenn eine Prozedur erwartet, daß ein Argument als Referenz (ByRef, die Voreinstellung) übergeben wird, muß das übergebene Argument genau dem erwarteten Datentyp entsprechen. Für diesen Fehler gibt es die folgende Ursache und Lösung:

Sie haben ein Argument eines Typs übergeben, der nicht in den erwarteten Typ umgewandelt werden konnte.
Übergeben Sie z.B. eine Variable vom Typ Integer, wenn ein Argument vom Typ Long erwartet wird, so tritt dieser Fehler auf. Wenn eine Umwandlung auf jeden Fall (auch bei Informationsverlust) stattfinden soll, können Sie das Argument in eigene Klammern einschließen. Sie können z.B. das Variant-Argument Var1 an eine Prozedur übergeben, die eine ganze Zahl als Argument erwartet, indem Sie den folgenden Code für den Aufruf verwenden:

Dim Var1
Var1 = 3.1415
Call EineSub((Var1))

Sub EineSub (Num1 As Integer)
Num1 = Num1 + Num1
End Sub

Durch das Einschließen des Argum ...
  Thema: text aus clipboard laden, jedes Wort in neue Zelle 
Phelan XLPH

Antworten: 2
Aufrufe: 466

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 15:37   Titel: AW: text aus clipboard laden, jedes Wort in neue Zelle Version: Office 2003
Hallo,

Test ein bisschen rum:

Sub TextAuslesen()
Dim cb As New DataObject
Dim strText As String
Dim arr As Variant
Range("B2:E2").Copy
On Error Resume Next
cb.GetFromClipboard
strText = CStr(cb.GetText)
arr = Split(strText, vbTab)
Range(Cells(1, LBound(arr) + 1), Cells(1, UBound(arr) + 1)) = arr
End Sub
  Thema: Frage zur Parameterübergabe ByRef 
Phelan XLPH

Antworten: 7
Aufrufe: 4666

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 15:07   Titel: AW: Frage zur Parameterübergabe ByRef Version: Office 2003
Ha, bst

...hab wieder was dazugelernt!

der Standartwert für die Übergabe ist doch ByRef!?

und was ist wenn ich es so (a) also by balue übergebe.

...und sub a(byRef b as String) hab?

ich denk entscheidend ist was in der Argumentenliste steht!..oder?
  Thema: Excel Sicherheitseinstellung über VBA Makro 
Phelan XLPH

Antworten: 4
Aufrufe: 1465

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Feb 2009, 10:23   Titel: AW: Excel Sicherheitseinstellung über VBA Makro Version: Office 97
Moin,

würde mich auch interessieren!!!!

Ich hatte es mal irgendwo gehabt, aber...
 
Seite 751 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 748, 749, 750, 751, 752, 753, 754 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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