Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 540 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 537, 538, 539, 540, 541, 542, 543 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: Spalten in abhängigkeit von einem Zellenwert ausblenden 
Phelan XLPH

Antworten: 5
Aufrufe: 1855

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Sep 2009, 18:10   Titel: AW: Spalten in abhängigkeit von einem Zellenwert ausblenden Version: Office 2003
dann so:

Private Sub Worksheet_Calculate()
With Worksheets("Produkte")
Select Case Range("A2").Value
Case 1
.Columns("A").Hidden = False
.Columns("B:C").Hidden = True
Case 2
.Columns("B").Hidden = False
.Range("A:A,C:C").EntireColumn.Hidden = True
Case 3
.Columns("C").Hidden = False
.Columns("A:B").Hidden = True
Case Else
.Columns("A:C").Hidden = True
End Select
End With
End Sub
  Thema: Listbox aktualisiert sich nur bei Sheetwechsel 
Phelan XLPH

Antworten: 3
Aufrufe: 302

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Sep 2009, 18:01   Titel: AW: Listbox aktualisiert sich nur bei Sheetwechsel Version: Office XP (2002)
Poste mal den Code. Wo wird denn die Box gefüllt?
  Thema: Dynamisch Listboxes erzeugen und verwalten 
Phelan XLPH

Antworten: 4
Aufrufe: 374

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Sep 2009, 17:47   Titel: AW: Dynamisch Listboxes erzeugen und verwalten Version: Office 2k (2000)
Tatsache?! Shock

Beim Erstellen wird .Locked auf TRUE gesetzt.

Hab das hier mit reingenommen, bringt aber auch nix.
test.Object.Locked = False

Vielleicht weiss einer der Profis Rat?
  Thema: Kassenprogramm 
Phelan XLPH

Antworten: 5
Aufrufe: 2137

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Sep 2009, 17:36   Titel: AW: Kassenprogramm Version: Office 2003
..also ist das ein Berechnungstool.

Ich dachte das sei ein "genormter" Begriff, mit einer geanuen Deffinition.

Danke
  Thema: Kassenprogramm 
Phelan XLPH

Antworten: 5
Aufrufe: 2137

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Sep 2009, 14:35   Titel: AW: Kassenprogramm Version: Office 2003
Wahrscheinlich, aber habe keine ausreichend Kenntnisse in Access.

Erst mal möchte ich nur wissen was denn ein Kassenprogramm charakterisiert.

Warum in Access? Fallen denn so viele Daten an?
  Thema: Kassenprogramm 
Phelan XLPH

Antworten: 5
Aufrufe: 2137

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Sep 2009, 14:20   Titel: Kassenprogramm Version: Office 2003
Hallo Miteinander,

ich habe den Auftrag bekommen ein Kassenprogramm zu erstellen.

Weiß jemand wie so etwas auszusehen hat und was genau die Funktion eines
Kassenprogramms ist.

Welche Eigenschaften muss denn ein Kassenprogramm haben, usw.

Hat mir da jemand gute Links zu dem Thema oder schon selber eins
erstellt? Ich benötige nur die Info über Funktion, Eigenschaften und Layout.
Programmieren würde ich es dann selber.

Danke
  Thema: Zeichenfolge finden und ausschneiden 
Phelan XLPH

Antworten: 21
Aufrufe: 1892

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Sep 2009, 09:54   Titel: AW: Zeichenfolge finden und ausschneiden Version: Office 2007
Regexp ist halt unschlagbar...wat soll man da sagen...

war zu faul.


Meinen Code kannste knicken!
  Thema: Zeichenfolge finden und ausschneiden 
Phelan XLPH

Antworten: 21
Aufrufe: 1892

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Sep 2009, 09:38   Titel: AW: Zeichenfolge finden und ausschneiden Version: Office 2007
in ein StandardModul:
Function Auszug(Text As String, SucheZeichen As String, SucheAnzahlZiffern As Byte) As String
Dim strSuchTxt As String
strSuchTxt = SucheZeichen & String(SucheAnzahlZiffern, "#")
If Text Like "* " & strSuchTxt & " *" Then _
Auszug = Mid$(Text, InStr(Text, SucheZeichen), Len(strSuchTxt))
End Function

Funktionaufruf in einer Zelle (Bsp):
=Auszug(C4;"ZL";4)
  Thema: Format in TextBox nur ganze Zahlen 
Phelan XLPH

Antworten: 3
Aufrufe: 2117

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Sep 2009, 09:18   Titel: AW: Format in TextBox nur ganze Zahlen Version: Office 2003
'Runden
TextBox12.Text = WorksheetFunction.Round(CDbl(TextBox7.Text) * CDbl(TextBox10.Text) - CDbl(TextBox7.Text) * CDbl(TextBox11.Text), 0)
'Auf-Runden
TextBox12.Text = WorksheetFunction.RoundUp(CDbl(TextBox7.Text) * CDbl(TextBox10.Text) - CDbl(TextBox7.Text) * CDbl(TextBox11.Text), 0)
  Thema: Dynamisch Zellen zusammenfuegen 
Phelan XLPH

Antworten: 2
Aufrufe: 242

BeitragForum: Excel VBA (Makros)   Verfasst am: 23. Sep 2009, 08:21   Titel: AW: Dynamisch Zellen zusammenfuegen Version: Office 97
Hallo,

hier als Funktion, in ein Standard-Modul
Function Verketten2(Bereich As Range, Optional Trennzeichen As String = " ") As String
Verketten2 = Join(WorksheetFunction.Transpose(WorksheetFunction.Transpose(Bereich.Rows(1).Cells)), Trennzeichen)
End Function

Funktionaufruf in einer Zelle:
=verketten2(A2:D4)
  Thema: Datum in die nächsten freien Zellen kopieren 
Phelan XLPH

Antworten: 5
Aufrufe: 410

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Sep 2009, 21:47   Titel: AW: Datum in die nächsten freien Zellen kopieren Version: Office 2007
Sub OLA()
On Error Resume Next
With Range("A1:A" & Cells.Find("*", , , , , xlPrevious).Row)
With .SpecialCells(xlCellTypeBlanks)
.Formula = "=" & .Cells(1).Offset(-1).Address(0, 0)
End With
.Copy
.PasteSpecial xlPasteValues
End With
Application.CutCopyMode = False
On Error GoTo 0
End Sub
  Thema: Zellinhalte hinter Sternchen verbergen 
Phelan XLPH

Antworten: 13
Aufrufe: 635

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Sep 2009, 21:16   Titel: AW: Zellinhalte hinter Sternchen verbergen Version: Office XP (2002)
Hallo Roland,

hat das hier einen bestimmten Grund, kann ich nicht ganz nachvollziehen?
CheckBox1.Value = Not CheckBox1.Value
  Thema: Komplexe Schleife 
Phelan XLPH

Antworten: 4
Aufrufe: 296

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Sep 2009, 21:10   Titel: AW: Komplexe Schleife Version: Office 2007
@Klavier

ich denke er meinte es so:
Sub SetupFinden()
Dim i As Long
Dim e As Integer

Dim Sht As Worksheet
Set Sht = Sheets("Tabelle2") 'Anpassen


'Spalten in der Schleife anpassen
For i = 1 To Sht.UsedRange.Rows.Count
If UCase(Sht.Range("A" & i)) = "SETUP" Then
If UCase(Sht.Range("B" & i)) = "TOOLCHANGE" Then
e = e + 1
If e > 1 Then
Sht.Range("B" & i) = "Unknown"
End If
End If
Else
e = 0
End If
Next i

End Sub
  Thema: Letzte Zeile ermitteln bei ZeilenAusblendung 
Phelan XLPH

Antworten: 8
Aufrufe: 849

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Sep 2009, 21:02   Titel: AW: Letzte Zeile ermitteln bei ZeilenAusblendung Version: Office 2007
Nachtrag:

bin auf folgendes gestossen:
trotz gesetztem Filter

...in einer Spalte:
Public Sub LezteZeileImSpaltenBereich()
With ThisWorkbook.Worksheets("Tabelle1")
With .Range("A" & Rows.Count).End(xlUp).CurrentRegion
MsgBox .Row + .Rows.Count - 1
End With
End With
End Sub
...im gesamten Bereich:(Fehler bei gänzlich leerem Blatt)
Public Sub LezteZeileInGesamtBereich()
With ThisWorkbook.Worksheets("Tabelle1")
With .Cells.Find("*", , , , , xlPrevious).CurrentRegion
MsgBox .Row + .Rows.Count - 1
End With
End With
End Sub
PS: wäre auch interessant für Rolf-H
  Thema: Spalten in abhängigkeit von einem Zellenwert ausblenden 
Phelan XLPH

Antworten: 5
Aufrufe: 1855

BeitragForum: Excel VBA (Makros)   Verfasst am: 22. Sep 2009, 17:51   Titel: AW: Spalten in abhängigkeit von einem Zellenwert ausblenden Version: Office 2003
ins Codefenster der Tabelle "Berechnung"

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "A2" Then
With Worksheets("Produkte")
Select Case Target.Value
Case 1
.Columns("A").Hidden = False
.Columns("B:C").Hidden = True
Case 2
.Columns("B").Hidden = False
.Range("A:A,C:C").EntireColumn.Hidden = True
Case 3
.Columns("C").Hidden = False
.Columns("A:B").Hidden = True
Case Else
.Columns("A:C").Hidden = True
End Select
End With
End If
End Sub
 
Seite 540 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 537, 538, 539, 540, 541, 542, 543 ... 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