Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Die Suche hat 11580 Ergebnisse ergeben.
Seite 236 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 233, 234, 235, 236, 237, 238, 239 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Index
Autor Nachricht
  Thema: wer berichtet an wen 
Phelan XLPH

Antworten: 12
Aufrufe: 369

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Nov 2011, 11:12   Titel: AW: wer berichtet an wen Version: Office 2003
Das würde ich mit dem Treeview-Steuerelement lösen.
[url=http://www.office-loesung.de/ftopic408661_15_0_asc.php]Hier lang
  Thema: Hierarchie im Sheet abbilden 
Phelan XLPH

Antworten: 34
Aufrufe: 2949

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Nov 2011, 01:57   Titel: AW: Hierarchie im Sheet abbilden Version: Office 2007
[url=http://www.office-loesung.de/ftopic126638]Datei Upload
  Thema: Do until in Application.Inputbox 
Phelan XLPH

Antworten: 4
Aufrufe: 355

BeitragForum: Excel VBA (Makros)   Verfasst am: 16. Nov 2011, 01:35   Titel: AW: Do until in Application.Inputbox Version: Office 2003
Curser auf Loop setzen und [F1] (VBA-Hilfe) drücken.
  Thema: Array Wertebestimmung bei Datenimport 
Phelan XLPH

Antworten: 25
Aufrufe: 1892

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2011, 20:13   Titel: AW: Array Wertebestimmung bei Datenimport Version: Office 2003
versuchs mal hiermit:

.TextFileColumnDataTypes = [transpose(if(row(1:500)<=16,1,9))]
  Thema: Makro für Einschränkung Auswahl Zellen 
Phelan XLPH

Antworten: 10
Aufrufe: 278

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2011, 19:46   Titel: AW: Makro für Einschränkung Auswahl Zellen Version: Office 2010
Oder so:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim sAdr As String
Select Case Sh.CodeName
Case "Tabelle1" 'ausgeschlossene Tabellen
Case Else
sAdr = "I49, I53, I58, I63, I68, I73, I76"
If Not Intersect(Range(sAdr), Target) Is Nothing Then

If WorksheetFunction.CountA(Intersect(Range(sAdr), Target)) <> 0 Then
Application.EnableEvents = False
Range(sAdr).ClearContents

Intersect(Range(sAdr), Target).Cells(1).Value = "X"
Application.EnableEvents = True
End If
End If
End Select
End Sub
  Thema: Daten auf verschiedene Tabellenblätter verteilen 
Phelan XLPH

Antworten: 14
Aufrufe: 347

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2011, 18:51   Titel: AW: Daten auf verschiedene Tabellenblätter verteilen Version: Office 2010
Hallo Damaris,

Sub ArtNrVerteilen()
Dim ar As Variant
Dim i As Integer
Dim ws As Worksheet
Dim lz As Long
Dim col As Integer
Dim wsQ As Worksheet
Dim sWsName As String
Dim sFormel As String

sWsName = "Abteilung "

Set wsQ = Tabelle1 'Anpassen
wsQ.Activate

wsQ.AutoFilterMode = False



With wsQ.UsedRange
With .Columns(.Columns.Count).Offset(, 1)
col = .Column
.FormulaR1C1 = "=MID(RC3,2,2)"
End With
End With

sFormel = "=transpose(IF(IF(ISNUMBER(MATCH(MID(C:C,2,2),MID(C:C,2,2),0)),MATCH(MID(C:C,2,2),MID(C:C,2,2),0))=ROW(C:C),MID(C:C,2,2)))"

ar = Split(Replace(Replace(Join(Evaluate(sFormel), ";"), False & ...
  Thema: Ganze Zeile löschen 
Phelan XLPH

Antworten: 5
Aufrufe: 359

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2011, 18:39   Titel: AW: Ganze Zeile löschen Version: Office 2010
Filter setzen, Zeilen markieren und löschen.
  Thema: Zellendublikate nebeneinader kopieren 
Phelan XLPH

Antworten: 5
Aufrufe: 230

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2011, 18:38   Titel: AW: Zellendublikate nebeneinader kopieren Version: Office 2003
Option Explicit

Public Sub Find_Methode()

Dim WkSh As Worksheet
Dim lZeile As Long
Dim rZelle As Range
Dim sFundst As String

Application.ScreenUpdating = False

Set WkSh = ThisWorkbook.Worksheets("Tabelle1") ' den Tabellenblattnamen ggf. anpassen!

For lZeile = 2 To WkSh.Cells(Rows.Count, 9).End(xlUp).Row ' die ganze Spalte I abarbeiten
Set rZelle = WkSh.Columns(1).Find(What:=WkSh.Range("I" & lZeile).Value, LookAt:=xlWhole, _
LookIn:=xlValues)
If Not rZelle Is Nothing Then
sFundst = rZelle.Address
Do
With WkSh.Range("I" & lZeile & ":L" & lZeile)
.Copy Destination:=WkSh.Range("B" & rZelle.Row & ":E" & rZelle.Row)
.ClearContents
End With
...
  Thema: Do until in Application.Inputbox 
Phelan XLPH

Antworten: 4
Aufrufe: 355

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2011, 18:36   Titel: AW: Do until in Application.Inputbox Version: Office 2003
Hallo,

hier etwas umfangreicher:

Sub InpuBox_Ganzzahl()
Dim sngJahr As Single
Dim blnFalseInput As Boolean

sngJahr = Year(Date)
Do
sngJahr = Application.InputBox("Bitte Jahr eingeben:", "Jahr der Zieldatei", sngJahr, Type:=1)
If sngJahr = 0 Then Exit Sub
blnFalseInput = False
If Fix(sngJahr) <> sngJahr Then
blnFalseInput = True
sngJahr = Fix(sngJahr)
MsgBox "Bitte eine Ganzzahl eingeben!", , "Info"
End If
If sngJahr < 1999 Or sngJahr > 2099 Then
blnFalseInput = True
sngJahr = Year(Date)
MsgBox "Jahres-Zahl muss größer 1999 und kleiner 2099 sein!", , "Info"
End If
Loop While blnFalseInput

MsgBox sngJahr, , "Ergebnis!!!"
End Sub
  Thema: Hierarchie im Sheet abbilden 
Phelan XLPH

Antworten: 34
Aufrufe: 2949

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2011, 18:17   Titel: AW: Hierarchie im Sheet abbilden Version: Office 2007
mach nen screenshot und stells hier rein.
  Thema: Langsam:User Definded Functions 
Phelan XLPH

Antworten: 12
Aufrufe: 555

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2011, 11:14   Titel: AW: Langsam:User Definded Functions Version: Office 2003
...ja dann viel Erfolg, würde mich interessieren obs geklappt hat und
um wie viel schneller deine UDFs dann sind. Smile
  Thema: ComboBox um Arbeitsblatt auszuwählen 
Phelan XLPH

Antworten: 5
Aufrufe: 318

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2011, 02:20   Titel: AW: ComboBox um Arbeitsblatt auszuwählen Version: Office 2003
Blatt Wechsel wählen
  Thema: Userabfrage 
Phelan XLPH

Antworten: 2
Aufrufe: 161

BeitragForum: Excel VBA (Makros)   Verfasst am: 15. Nov 2011, 02:02   Titel: AW: Userabfrage Version: Office 2003
...oder mit Hilfe der Bed. Formatierung
  Thema: Langsam:User Definded Functions 
Phelan XLPH

Antworten: 12
Aufrufe: 555

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2011, 20:01   Titel: AW: Langsam:User Definded Functions Version: Office 2003
Verwende Pivot.
  Thema: Hierarchie im Sheet abbilden 
Phelan XLPH

Antworten: 34
Aufrufe: 2949

BeitragForum: Excel VBA (Makros)   Verfasst am: 14. Nov 2011, 17:35   Titel: AW: Hierarchie im Sheet abbilden Version: Office 2007
Hallo,

das hinterher durchlaufen lassen:

Sub Baumstruktur_Zeilen_Einrücken()
With Tabelle5.UsedRange 'Blatt Anpassen!!!
With .Columns(1)
.SpecialCells(xlCellTypeBlanks).Formula = _
"=IF(ISERROR(MATCH(""ZZZ!"",RC[1]:RC[255])),"""",INDEX(RC[1]:RC[255],1,MATCH(""ZZZ!"",RC[1]:RC[255])))"
.Copy
.PasteSpecial xlPasteValues
End With
.Resize(, .Columns.Count - 1).Offset(, 1).ClearContents
End With
End Sub
 
Seite 236 von 772 Gehe zu Seite Zurück  1, 2, 3, 4, 5, 6, 7 ... 233, 234, 235, 236, 237, 238, 239 ... 766, 767, 768, 769, 770, 771, 772  Weiter
Gehe zu:  
Alle Zeiten sind
GMT + 1 Stunde

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Microsoft Excel Tricks