Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 542 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 539, 540, 541, 542, 543, 544, 545 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: suchen und einfügen 
Phelan XLPH

Antworten: 3
Aufrufe: 244

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Sep 2009, 09:06   Titel: AW: suchen und einfügen Version: Office 2003
Sub y()
Dim zell As Range
Dim wks As Worksheet

With Worksheets("Übersicht")
For Each zell In .Range("A1:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
For Each wks In ThisWorkbook.Worksheets
If wks.Name <> "Übersicht" Then
If zell.Value = wks.Range("E4").Value Then
zell.Offset(, 1).Value = wks.Range("Z30").Value
zell.Offset(, 2).Value = wks.Name
End If
End If
Next
Next
End With
End Sub
  Thema: Makro macht den Rechner lahm 
Phelan XLPH

Antworten: 6
Aufrufe: 304

BeitragForum: Excel VBA (Makros)   Verfasst am: 19. Sep 2009, 08:49   Titel: AW: Makro macht den Rechner lahm Version: Office 2003
Auch ne Möglichkeit:

Sub FilterBereichKopieren()
With Tabelle1
If .AutoFilterMode Then
With .AutoFilter.Range
.SpecialCells(xlCellTypeVisible).Copy _
Tabelle2.Range(.Cells(1).Address)
End With
End If
End With
End Sub
  Thema: Zahlen sortieren und löschen 
Phelan XLPH

Antworten: 2
Aufrufe: 312

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Sep 2009, 22:20   Titel: AW: Zahlen sortieren und löschen Version: Office 2003
Makro ist dazu nicht nötig.

Beispiel:
Spalte A = Zahlenspalte
Spalte B = Hilfsspalte

Vorgehensweise:
-In oberste Zelle der Hilfsspalte Formel eintragen: =ZÄHLENWENN($A:$A;A1)
-Doppelklick in rechte untere Ecke der Zelle (Spalte wird mit Formel aufgefüllt)
-Spalten A:B nach Spalte B sortieren
-Alle Zeilen >1 in Spalte B löschen

FERTIG!
  Thema: Textfeld nur Datumseingabe dd.mm. zulassen 
Phelan XLPH

Antworten: 3
Aufrufe: 3137

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Sep 2009, 22:06   Titel: AW: Textfeld nur Datumseingabe dd.mm. zulassen Version: Office 2003
Option Explicit

Const cDatum As String = "01.01.2000" '2000=Schaltjahr

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Dim ka As Byte, dat As String
ka = KeyAscii
Select Case ka
Case 48 To 57, 46
Case Else: ka = 0
End Select
With TextBox1
dat = .Text & Chr(ka) & Mid(cDatum, Len(.Text & Chr(ka)) + 1)
If Not IsDate(dat) Then ka = 0
If Val(Split(dat, ".")(1)) > 12 Then ka = 0
If Len(.Text & Chr(ka)) > 6 Then ka = 0
End With
KeyAscii = ka
End Sub
  Thema: Textfeld Fehleingabe abfangen Sonderzeichen+Buchstaben 
Phelan XLPH

Antworten: 5
Aufrufe: 1629

BeitragForum: Excel VBA (Makros)   Verfasst am: 18. Sep 2009, 07:21   Titel: AW: Textfeld Fehleingabe abfangen Sonderzeichen+Buchstaben Version: Office 2003
Hallo Bernd,

Kopier einfach mal meinen Code in die Userform.
Und probier allemöglichen Werte in die Textbox einzugeben.

Den Namen der TextBox musst du wahrscheinlich noch anpassen.
  Thema: Textfeld Fehleingabe abfangen Sonderzeichen+Buchstaben 
Phelan XLPH

Antworten: 5
Aufrufe: 1629

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 23:38   Titel: AW: Textfeld Fehleingabe abfangen Sonderzeichen+Buchstaben Version: Office 2003
Hallo Berd,

eine Möglichkeit wäre:

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Select Case KeyAscii
Case 48 To 57
Case Else: KeyAscii = 0
End Select
If Len(TextBox1) > 1 Then KeyAscii = 0
If Val(TextBox1 & Chr(KeyAscii)) > 30 Then KeyAscii = 0
If Val(TextBox1 & Chr(KeyAscii)) < 1 Then KeyAscii = 0
End Sub
  Thema: Case is "..." in Array o.ä. speichern 
Phelan XLPH

Antworten: 9
Aufrufe: 679

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 23:21   Titel: AW: Case is "..." in Array o.ä. speichern Version: Office 2007
Jetzt hab ichs doch ausgelagert:

Sub Test_a_b()
If IsMemberSheet(LastSheet) Then
If IsMemberSheet(ActiveSheet.CodeName) Then
MsgBox "a"
Exit Sub
End If
MsgBox "b"
End If
End Sub
Sub Test_c()
If IsMemberSheet(NewSheet) Then MsgBox "c"
End Sub
Sub Test_e()
If IsMemberSheet(LastSheet) Then MsgBox "e"
End Sub

Function IsMemberSheet(SheetName As String) As Boolean
Dim arrSheets As Variant
arrSheets = Array("Tabelle2", "Tabelle4", "Tabelle5", "Tabelle6", "Tabelle8")
If UBound(Filter(arrSheets, SheetName)) >= 0 Then IsMemberSheet = True
End Function
  Thema: Case is "..." in Array o.ä. speichern 
Phelan XLPH

Antworten: 9
Aufrufe: 679

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 20:19   Titel: AW: Case is "..." in Array o.ä. speichern Version: Office 2007
Da ich nicht weiss wie deine case-Anweisungen aussehen kann ich auch
nicht viel dazu sagen.

Deswegen: Nein
  Thema: Summe und Anzahl Filterergebnisse zählen 
Phelan XLPH

Antworten: 2
Aufrufe: 958

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 20:05   Titel: AW: Summe und Anzahl Filterergebnisse zählen Version: Office 2003
Hallo flonad,

schau mal ob dir das zusagt:
  Thema: bestimmte zellen löschen 
Phelan XLPH

Antworten: 7
Aufrufe: 224

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 19:30   Titel: AW: bestimmte zellen löschen Version: Office 2003
Bitte Smile
  Thema: Case is "..." in Array o.ä. speichern 
Phelan XLPH

Antworten: 9
Aufrufe: 679

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 19:29   Titel: AW: Case is "..." in Array o.ä. speichern Version: Office 2007
Poste mal mehr vom Code
  Thema: Zeilen kopieren bei bestimmten Werten in Spalte 
Phelan XLPH

Antworten: 3
Aufrufe: 409

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 19:28   Titel: AW: Zeilen kopieren bei bestimmten Werten in Spalte Version: Office 2007
Hallo Hasberg,

hier mal ein Beispiel, hab deinen Code jetzt nicht näher betrachtet:

Sub Kopie()
Dim wksQ As Worksheet
Dim wksZ As Worksheet
Dim zell As Range

Set wksQ = Tabelle1 'Anpassen
Set wksZ = Tabelle2 'Anpassen

For Each zell In wksQ.Range("H2:H" & wksQ.Range("H" & Rows.Count).End(xlUp).Row)
If LCase(zell) = "offen" Or LCase(zell) = "in arbeit" Then
zell.EntireRow.Copy wksZ.Range("A" & Rows.Count).End(xlUp).Offset(1)
End If
Next
End Sub
  Thema: Case is "..." in Array o.ä. speichern 
Phelan XLPH

Antworten: 9
Aufrufe: 679

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 19:16   Titel: AW: Case is "..." in Array o.ä. speichern Version: Office 2007
Würde ich so lassen und die Cas-Anweisung in eine Function auslagern.
  Thema: Unterschiedliche Einträge suchen und kopieren 
Phelan XLPH

Antworten: 5
Aufrufe: 673

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 19:14   Titel: AW: Unterschiedliche Einträge suchen und kopieren Version: Office 2003
Sub Vergleich()
Dim rngVgl As Range, lngLZ As Long
Dim lngDummy As Long, zell As Range

With Worksheets("Tabelle2")
Set rngVgl = .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
End With
lngLZ = rngVgl.Count + 1

With Worksheets("Tabelle1")
For Each zell In .Range("A2:A" & .Cells(Rows.Count, 1).End(xlUp).Row)
If zell <> "" Then
lngDummy = 0
On Error Resume Next
lngDummy = WorksheetFunction.Match(zell, rngVgl, 0)
On Error GoTo 0
If lngDummy = 0 Then
lngLZ = lngLZ + 1
zell.Copy Worksheets("Tabelle2").Range("A" & lngLZ)
End If
End If
Next
End With
End Sub
  Thema: Registerblätter alphabethisch sortieren 
Phelan XLPH

Antworten: 3
Aufrufe: 1991

BeitragForum: Excel VBA (Makros)   Verfasst am: 17. Sep 2009, 17:24   Titel: AW: Registerblätter alphabethisch sortieren Version: Office 2003
eine Möglichkeit wäre:
Sub BlattSortierenAuf()
Dim i As Integer
Dim k As Integer
For i = Sheets.Count To 1 Step -1
For k = 1 To i - 1
If Sheets(k).Name > Sheets(k + 1).Name Then 'Absteigend ">" rumdrehem
Sheets(k).Move After:=Sheets(k + 1)
End If
Next
Next
End Sub
 
Seite 542 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 539, 540, 541, 542, 543, 544, 545 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

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