Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1272to1276
1272to1276
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro for each Zelle In ActiveSheet

Makro for each Zelle In ActiveSheet
Andreas
Hallo,
ich habe funktionierendes Makro, welches mir Felder mit Kommentar das Kommentrafeld gleich groß macht. Jedoch sollte es für alle Tabellen in der Mappe funktionieren, nicht nur für die aktuell aktive.
Wie kann man das lösen? 
Sub Comment()
Dim Zelle As Range
For Each Zelle In ActiveSheet.Cells.SpecialCells(xlCellTypeComments)
Zelle.Comment.Shape.Height = 150
Zelle.Comment.Shape.Width = 100
Next Zelle
End Sub

Zeile 3 In ActiveSheet.Cells.SpecialCells mit In ThisWorkbook.Worksheets ersetzen klappt nicht wirklich. Wer kann mir da einen Hinweis geben? Danke für Tips bzw. Hionweise
mfG
A. Müller
AW: Makro for each Zelle In ActiveSheet
17.08.2012 20:37:16
Rudi
Hallo, 
Sub Comment()
Dim Zelle As Range, wks as Worksheet
For Each wks in Worksheets
For Each Zelle In wks.Cells.SpecialCells(xlCellTypeComments)
Zelle.Comment.Shape.Height = 150
Zelle.Comment.Shape.Width = 100
Next Zelle
Next wks
End Sub

Gruß
Rudi
AW: Makro for each Zelle In ActiveSheet
17.08.2012 20:52:04
Josef

Hallo Andreas,
Kommentare kann man auch direkt ansprechen.
Sub sizeComment()
  Dim objSh As Worksheet, objCmnt As Comment
  
  For Each objSh In ThisWorkbook.Worksheets
    For Each objCmnt In objSh.Comments
      With objCmnt.Shape
        .Width = 100
        .Height = 150
      End With
    Next
  Next
  
End Sub



« Gruß Sepp »

Anzeige
Funktional!! - Makro for each Zelle In ActiveSheet
17.08.2012 22:18:50
Andreas
Hallo an beide,
danke für beide, schnelle und auch funktionale Lösungen. Da ich auch Kommentare im Querformat habe (ca. 150 Stück) wird es dafür wohl keine Lösung dafür geben, wie man diese wenige von ca. 1900 Kommentaren von dem Makro unberührt bzw. Height und Width einfach vertauscht. Naja, aber damit kann ich leben wenn das nicht geht ;-).
Gruß und noch einmal danke
Andreas
AW: Funktional!! - Makro for each Zelle In ActiveSheet
17.08.2012 22:24:16
Josef

Hallo Andreas,
vielleicht so.
Sub sizeComment()
  Dim objSh As Worksheet, objCmnt As Comment
  
  For Each objSh In ThisWorkbook.Worksheets
    For Each objCmnt In objSh.Comments
      With objCmnt.Shape
        If .Width > .Height Then
          .Width = 150
          .Height = 100
        Else
          .Width = 100
          .Height = 150
        End If
      End With
    Next
  Next
  
End Sub


« Gruß Sepp »

Anzeige
AW: Funktional!! - Makro for each Zelle In ActiveSheet
18.08.2012 09:54:27
Andreas
Hi,
danke, funktioniert! Was ich nicht ganz verstehe ist, wie er den Unterschied des Formates in den Kommentarfeldern findet?
If .Width > .Height Then
Auf deutsch, wenn Width größer (>) als Height, dann mach das ansonsten Else Schleife. Passt das so was ich meine?
Merci auf alle Fälle. Wenn ich als eure Lösungen anschaue, denke ich dass VBA dann doch nicht ganz soooo schwer sein kann. Man muss sich wahrscheinlich nur reinfuchsen in das Thema, eben wie bei allem.
Gruß Andreas
2 x Richtig ...
18.08.2012 10:40:37
Matthias
Hallo
Passt das so was ich meine?
Ja
Man muss sich wahrscheinlich nur reinfuchsen in das Thema, eben wie bei allem.
Ja
Gruß Matthias
Anzeige
Trotzdem gibt's bei Letzterem Richtungen und ...
18.08.2012 18:11:34
Luc:-?
…Levels, Andreas,
die ihre Zeit brauchen, um erreicht zu wdn! Um das zu erkennen, genügt ein Blick auf einschlägige WebSites. Diese sind entweder von Programmierern oder von Amateuren mit mehr oder weniger ordentlichen VBA-Kenntnissen. Während die Pgmierer idR das tun, was sie immer tun, nämlich alle Ressourcen (DLLs, spart Arbeit und grenzt für den Laien manchmal beinahe an Wunder) nutzen (für den der so etwas machen will, gibt's da schöne Sites), holpern die Amateure je nach Gusto durch einen Dschungel aus einfachsten udFktt, komplexeren Subroutinen und beinahe kryptischen Fkts-Deklarationen. Die Zwischenform, quasi eine Art excelformeln auf VBA-Basis, fehlt weitgehend oder ist, falls ansatzweise zu finden, meist recht primitiv.
Mit VBA ist das wie mit Englisch; man kann sich recht schnell verständl machen, aber bis zur großen Literatur ist der Weg sehr weit!
Gruß+schöheiWE (auch an Matti), Luc :-?
Anzeige

313 Forumthreads zu ähnlichen Themen

for each zelle in sheet problem
thomas

Hallo Leute
Ich hab mal eine allgemeine Frage.
Und zwar möchte ich jede Zelle im sheet nach einem string durchsuchen.
Die Suche klappt auch soweit.
Nur möchte ich keine 2 For next schleifen verwenden sondern:
ZeileEnde=Sheets("Tabelle1").Cells(row.count,1).End(xlUp).row
...
08.04.2009 10:06:35
Thread-ID: 1067622
3 Beiträge
Anzeige
Worksheetübergabe an anderes Workbook
Elke

Liebe Excelgemeinde,
mit dem Problem hatte ich mich schonmal gemeldet und es lief auch wieder eine ganze Weile reibungslos. Nun passiert es wieder, daß auf 2 bestimmten Rechner unter Win 7 unten stehende eigentlich triviale Prozedur nicht ausgeführt wird.
Es soll ein Worksheet "Fall_X"...
15.05.2012 21:00:05
Thread-ID: 1263634
17 Beiträge
VBA: mehrere workbooks & -sheets
Dani

Hallo Excel- Koryphäen,
Habe folgendes Problem, wo ich keinen passenden code im Archiv finden konnte.
Habe 17 xls-files mit je 2 worksheets.
Der Tabellen-Aufbau ist immer identisch und ich möchte nun für all diese 17 workbooks & deren 2 worksheets die Spaltenbreite anpassen und...
02.08.2012 14:21:51
Thread-ID: 1273532
7 Beiträge
Anzeige
[VBA-Schleife] Worksheets öffnen und speichern
Nico

Hallo,
ich möchte mit verschiedenen Filtern mehrere Worksheets aus einer Datentabelle erstellen. Im Prinzip klappt auch alles.
Einziges Problem:
Beim automatischen erstellen & schließen der Excel-Dateien tauchen unregelmäßig Fehlermeldungen auf.
Einige erstelle Dateien in d...
26.03.2013 11:12:30
Thread-ID: 1306027
3 Beiträge
For Each rCell In Worksheets("_HISTORY").Range("_H
Peter

Guten Abend
Weshalb läuft mein Code nicht, wenn ich
den Range wie folgt anspreche:
For Each rCell In Worksheets("_History").Range("_HIST")
...
Next
Wenn ich "In Wroksheets" weglasse, funktioniert es.
Der Worksheet-Name ist richtig geschrieben, wie die Abfrage im Dire...
09.12.2013 22:29:02
Thread-ID: 1341925
4 Beiträge
VBA Private Worksheets Change zusammenfügen
Hanna

Hallo zusammen,
ich bin gerade dabei, mich ein bisschen mit Makros auseinanderzusetzen.
Konkret geht es darum, dass ich eine Excel-Tabelle habe, die verschiedene Eingabe(Listen)felder hat, insgesamt 11 Stück.
Bei der Arbeit mit der Tabelle kann es vorkommen, dass nur das erste Einga...
26.05.2015 21:31:02
Thread-ID: 1427868
8 Beiträge
VBA - Worksheets.Paste funktion
Jochen

Hallo liebes Herber-Forum,
ich habe folgendes Problem, an dem ich verzweifle.
ich habe in Excel ein Registerblatt "Nachweis", dass mit Funktionen, Makros und bestimmten Zellen, Zeilen und Spaltenformatierungen versehen ist.
Aus diesem Registerblatt "Nachweis" heraus werden per Marko...
12.06.2015 11:54:55
Thread-ID: 1430577
3 Beiträge
VBA Array mit Worksheets aus verschiedenen Dateien
Crizz

Hallo Forumsmitglieder,
ich habe ein Probmlem beim füllen eines Arrays mit worksheets aus verschiedenen Dateien.
Beim ausführen wird immer das letzte Feld gelb markiert

Set wksSteuer = ActiveWorkbook.Worksheets("Steuerung")
'Zugriff auf Daten von CSIM Gruppen C, NX & Ko...
22.06.2015 07:57:47
Thread-ID: 1432293
3 Beiträge

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
4
16
6
2
2
3
7
2
2
6
3
4
4
5
5
5
4
7
9
8
4
4
1
1